Harj. 6 AV

24.10.01 HA

3. Kompleksiesityksen samuusproblematiikkaa

Harjoituksessa ilmeni, että kompleksilaskuissa voidaan saada erinäköisiä esityksiä, joiden pitää teorian mukaan johtaa samaan lopputulokseen. Katsotaan nyt, miten Maijan ja Heikin laskut täsmäävät.

> restart: with(linalg): with(LinearAlgebra):

Warning, the name changecoords has been redefined

Warning, the protected names norm and trace have been redefined and unprotected

Warning, the assigned name GramSchmidt now has a global binding

> A:=<<2,-1>|<10,4>>;

A := _rtable[138662576]

> E:=IdentityMatrix(2,2):

> p:=det(A-lambda*E);

p := lambda^2-6*lambda+18

> lam:=solve(p=0,lambda);

lam := 3+3*I, 3-3*I

> ALI1:=A-lam[1]*E;

ALI1 := _rtable[138298884]

Matriisin rivien oltava LRT, vaikka ei aivan siltä näytä. Jos ominaisvektorit lasketaan ylemmän rivin mukaan, saadaan

ominaisvektori "Maija", kun taas alempi antaa vektorin "Heikki".

> Maija:=<10,1+3*I>;Heikki:=<1-3*I,1>;

Maija := _rtable[138579372]

Heikki := _rtable[138773492]

Todetaan LRV laskemalla vastinalkioiden suhteet:

> Maija[1]/Heikki[1]=Maija[2]/Heikki[2];

1+3*I = 1+3*I

Ovat tosiaanmin samat, kyse on vain tästä:

> (1+3*I)*(1-3*I);

10

Tarkistus:

> eigenvectors(A);

[3+3*I, 1, {vector([1-3*I, 1])}], [3-3*I, 1, {vecto...

> lambda:=lam[1]:

> alpha:=Re(lambda);beta:=Im(lambda);

alpha := 3

beta := 3

Katsotaan nyt, onko esitys "Maija" sama kuin esitys "Heikki".

> uM:=map(Re,Maija);vM:=map(Im,Maija);

uM := _rtable[137206232]

vM := _rtable[136644192]

> uH:=map(Re,Heikki);vH:=map(Im,Heikki);

uH := _rtable[138384224]

vH := _rtable[138569216]

> yM:=exp(alpha*t)*((aM*cos(beta*t)+bM*sin(beta*t))*uM+(bM*cos(beta*t)-aM*sin(beta*t))*vM);

yM := exp(3*t)*((aM*cos(3*t)+bM*sin(3*t))*_rtable[1...

> yH:=exp(alpha*t)*((aH*cos(beta*t)+bH*sin(beta*t))*uH+(bH*cos(beta*t)-aH*sin(beta*t))*vH);

yH := exp(3*t)*((aH*cos(3*t)+bH*sin(3*t))*_rtable[1...

> yH:=map(collect,evalm(yH),{cos(3*t),sin(3*t)});yM:=map(collect,evalm(yM),{cos(3*t),sin(3*t)});

yH := vector([exp(3*t)*(aH-3*bH)*cos(3*t)+exp(3*t)*...

yM := vector([10*exp(3*t)*aM*cos(3*t)+10*exp(3*t)*b...

Kyse on siitä, voidaanko mielivaltainen "Maija"-esitys saada "Heikki"-muotoon ja kääntäen.

Vertaamalla vastinkertoimia johdutaan yhtälösysteemiin.

> MHsys:=(aH-3*bH)=10*aM,(bH+3*aH)=10*bM,aH=(aM+3*bM),bH=(bM-3*aM);

MHsys := aH-3*bH = 10*aM, bH+3*aH = 10*bM, aH = aM+...

Katsotaan, saadaanko mielivaltaiset M-kertoimet lausutuksi H-kertoimien avulla ja kääntäen.

> solve({MHsys},{aH,bH});solve({MHsys},{aM,bM});

{aH = aM+3*bM, bH = bM-3*aM}

{aM = -3/10*bH+1/10*aH, bM = 1/10*bH+3/10*aH}

No saatiin, tulos on siis yksikäsitteinen, vaikkakin sen toteaminen olisi käsin laskien kohtuullisen vaivalloista.