abe SISTEME nestandard. METODE noi de rezolvare - GInfo

Ginfo nr. 3 - martie 2001
38babel
> # adaug la soluþia finalã doar soluþia realã
> sol_final:=sol_final union { sol_aprox[1] };
sol_final:={ {z=1, y=-4, x=2}, {
1.386722548701269, 2.080083823051904,
2.773445097402538 } }
># Tratez cazul generat prin RootOf (am douã
># situaþii). Mai pot adãuga rãdãcini la
># soluþia finalã
># a doua situaþie
> zz2:=[allvalues(RootOf(z^2+z+1))];
zz2:=[ , ]
> # Tratez un caz mai general ; pot avea
> # diverse dimensiuni.
> # Aleg dimensiunea
> dimm:=2;
> # Calculez soluþiile cazului al doilea
> for i from 1 to dimm do
> sol_exact[i]={ (2/3)*zz2[i],
(4/3)*zz2[i], zz2[i] }
> od;
sol_exact1:={ , , }
sol_exact2:={{ , , }}
> # Observ cã nu am nici o soluþie realã
> # Adaug la soluþia finalã doar soluþia realã
> # (este cea vidã)
> sol_final:=sol_final union { };
sol_final:={ {z=1, y=-4, x=2}, {
1.386722548701269, 2.080083823051904,
2.773445097402538 } }
> # SOLUÞIA FINALÃ:
Imagini obþinute cu MAPLE V
> sol_final;
{ {z=1, y=-4, x=2}, { 1.386722548701269,
2.080083823051904, 2.773445097402538 } }
Soluþia obþinutã este datã în forma {z,y,x} . Ea are
valori exacte sau o aproximaþie de 15 zecimale (ºi încã se
mai pot adãuga), adicã suficient de bunã.
Putem spune cã legãtura dintre un limbaj puternic calculatoriu
(dar totuºi limbaj) ºi problemele sistemice este
foarte eficientã.
Bibliografie
1. http://www.maplesoft.com
2. Ion Nanu, Lucian Tuþescu, Ecuaþii nestandard, Editura
Appolo, Craiova, 1994
Dl. prof. drd. Laviniu Bejenaru este cadru didactic la Colegiul Naþional
"Traian" din Drobeta Turnu Severin. Poate fi contactat prin e-mail la
adresa bejenaru@traian.expert.ro.