Mathc complexes/h09t
Installer et compiler ces fichiers dans votre répertoire de travail.
|
c00.c |
|---|
/* ------------------------------------ */
/* Save as : c00.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = r_mZ(i_mZ(r,r+C2),999);
double **b = i_mZ(r,C1);
double **Ab = i_Abr_Ac_bc_mZ(r,r+C2,C1);
clrscrn();
printf(" A :");
p_mZ(A, S5,P0, S4,P0, C6);
printf(" b :");
p_mZ(r_mZ(b,999.), S5,P0, S4,P0, C6);
stop();
clrscrn();
printf(" Copy/Past into the octave window.\n\n");
p_Octave_mZ(c_A_b_Ab_mZ(A,b,Ab),"Ab",P0, P0);
printf(" rref(Ab,.00000000001)\n\n");
printf(" gj2_mZ(Ab) :");
gj2_mZ(Ab);
p_mZ(Ab, S8,P4, S8,P4, C3);
f_mZ(Ab);
f_mZ(b);
f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;
srand(time(&t));
do
{
fun(rp_I(R3)+R1);
} while(stop_w());
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
A :
+810-989i +92+314i +524+318i -409-656i -95-596i -90+277i
+886+180i +946+934i -693 +1i -872-752i -649-140i -543+528i
+131+891i +130+360i +310+354i -919-731i -213-116i +201-917i
-376-344i +851+274i -432-638i -771 -14i -256 +55i +374+226i
b :
+953-108i
-927-440i
+81+939i
+92+631i
Press return to continue.
Copy/Past into the octave window.
Ab=[
+810-989*i,+92+314*i,+524+318*i,-409-656*i,-95-596*i,-90+277*i,+953-108*i;
+886+180*i,+946+934*i,-693+1*i,-872-752*i,-649-140*i,-543+528*i,-927-440*i;
+131+891*i,+130+360*i,+310+354*i,-919-731*i,-213-116*i,+201-917*i,+81+939*i;
-376-344*i,+851+274*i,-432-638*i,-771-14*i,-256+55*i,+374+226*i,+92+631*i]
rref(Ab,.00000000001)
gj2_mZ(Ab) :
+1.0000 +0.0000i -0.0000 -0.0000i +0.0000 +0.0000i
+0.0000 -0.0000i +1.0000 +0.0000i -0.0000 +0.0000i
+0.0000 -0.0000i +0.0000 +0.0000i +1.0000 -0.0000i
-0.0000 -0.0000i +0.0000 +0.0000i -0.0000 -0.0000i
+0.0000 +0.0000i +0.5341 -0.3584i -0.3299 -0.2788i
+0.0000 +0.0000i +0.5947 +1.9006i +1.4844 +1.7667i
+0.0000 +0.0000i +0.4367 +1.1496i +0.7828 +0.6479i
+1.0000 +0.0000i +0.6202 +1.1575i +0.6858 +1.4443i
+1.9018 +0.9839i
-5.3347 +5.1742i
-3.1559 +3.2340i
-3.8443 +2.5377i
Press return to continue
Press X to stop