< Mathc complexes
Installer et compiler ces fichiers dans votre répertoire de travail.
![]() |
det_z_a.c ' |
---|
/* ------------------------------------ */
/* Save as : det_z_a.c */
/* ------------------------------------ */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(void)
{
double a[R3*(C3*C2)] ={ 1,2, 3,4, 5,6,
5,4, 1,3, 6,8,
7,2, 5,1, 1,1};
double **A = ca_A_mZ(a,i_mZ(R3,C3));
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),S4,P0,S5,P0);
printf("\n\n\n");
stop();
f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
fun();
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=[
+1+2*i,+3+4*i,+5+6*i;
+5+4*i,+1+3*i,+6+8*i;
+7+2*i,+5+1*i,+1+1*i]
det(A)
det(A) = -13 +317i
Press return to continue.
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.