< Mathc complexes
Installer et compiler ces fichiers dans votre répertoire de travail.
![]() |
c01a.c ' |
---|
/* ------------------------------------ */
/* Save as : c01a.c */
/* ------------------------------------ */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = r_mZ(i_mZ(r,r),9);
clrscrn();
printf(" Copy/Past into the octave window. \n\n");
printf(" octave give a bad result. \n");
printf(" If you past this type of numbers +1 -2*i \n");
printf(" instead of this type (see space) +1-2*i\n\n");
p_octave_mZ(A,"A",1,0 ,0);
printf(" det(A)\n\n\n");
printf(" det(A) = ");
p_Z(det_Z(A),S1,P0,S1,P0);
f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;
srand(time(&t));
do
{
fun(rp_I(3)+R2);
} while(stop_w());
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
Copy/Past into the octave window.
octave give a bad result.
If you past this type of numbers +1 -2*i
instead of this type (see space) +1-2*i
A=[
-9-5*i,+6+8*i,+4-7*i,+8-7*i,-7+2*i;
-1-1*i,+4-3*i,+8-1*i,-7+2*i,-5-5*i;
-1+2*i,+2+4*i,+4-5*i,-1+8*i,-3-1*i;
+8+2*i,-3+2*i,-7-7*i,-9-3*i,+2+6*i;
+4+2*i,-5-5*i,-3-1*i,+4-9*i,-3+8*i]
det(A)
det(A) = -26280+132141i
Press return to continue
Press X to stop
Cet article est issu de Wikibooks. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.