Derive version 6.00 DfW file saved on 24 May 2006 Imom:=[-1; 0; -03c6] Impo:=[-03c6; 1; 0] Iomo:=[0; -03c6; -1] Iopm:=[0; 1/200b7221a5 - 1/2; -1] Ipom:=[1; 0; -03c6] Ippo:=[03c6; 1; 0] Kp2pm:=[221a(5/4 - 1/200b7221a5); 221a(1/800b7221a5 + 5/8); - 221a(5/8 - 1/800b7221a5)] Kpp2m:=[221a(5/8 - 1/800b7221a5); 221a(5/4 - 1/200b7221a5); - 221a(1/800b7221a5 + 5/8)] Tp2pm:=[1/400b7221a5 - 1/4; 1/400b7221a5 + 1/4; - 1/2] Tpp2m:=[1/2; 1/400b7221a5 - 1/4; - 1/400b7221a5 - 1/4] 03c6:=(221a5 - 1)/2 Precision:=Exact PrecisionDigits:=10 Notation:=Rational NotationDigits:=10 Branch:=Principal Exponential:=Auto Logarithm:=Auto Trigonometry:=Auto Trigpower:=Auto Angle:=Radian CaseMode:=Insensitive VariableOrder:=[x,y,z] OutputBase:=Decimal InputBase:=Decimal InputMode:=Character DisplayFormat:=Normal TimesOperator:=Dot DisplaySteps:=false CExpnObj8@Benutzer03c6:=(SQRT(5)-1)/28PBenutzerImpo:=[[-03c6],[1],[0]]8BenutzerIppo:=[[03c6],[1],[0]]8`BenutzerIopm:=[[0],[03c6],[-1]]8pBenutzerImom:=[[-1],[0],[-03c6]]8 BenutzerIomo:=[[0],[-03c6],[-1]]80BenutzerIpom:=[[1],[0],[-03c6]]8BenutzerTp2pm:=(Iopm+Ippo)/2`Simp(#8) /Tp2pm:=[[SQRT(5)/4-1/4],[SQRT(5)/4+1/4],[-1/2]]8Benutzer Tpp2m:=(Iopm+Ipom)/2h Simp(#10) /Tpp2m:=[[1/2],[SQRT(5)/4-1/4],[-SQRT(5)/4-1/4]]8hBenutzer  ABS(Iopm)@ Simp(#12) SQRT(5/2-SQRT(5)/2)8pBenutzer ABS(Tp2pm)  Simp(#14){Gz?108@Approx(Benutzer) 1.1755705048PBenutzer Kp2pm:=Tp2pm*SQRT(5/2-SQRT(5)/2)x@ Simp(#17){Gz?KKp2pm:=[[SQRT(5/4-SQRT(5)/2)],[SQRT(SQRT(5)/8+5/8)],[-SQRT(5/8-SQRT(5)/8)]]8PBenutzer Kpp2m:=Tpp2m*SQRT(5/2-SQRT(5)/2)x@ Simp(#19)KKpp2m:=[[SQRT(5/8-SQRT(5)/8)],[SQRT(5/4-SQRT(5)/2)],[-SQRT(SQRT(5)/8+5/8)]]8P`BenutzerABS(Iopm-Kpp2m)pp Simp(#21){Gz?#SQRT(-SQRT(10-2*SQRT(5))-SQRT(5)+5)8Approx(Benutzer) 0.64248814258Simp(Benutzer){Gz?SQRT(5-2*SQRT(5))8Approx(Benutzer){Gz? 0.7265425280