3D-pyramide på Casio 9850G
Hvis du har en Casio 9850G kalkulator eller lignende kan du ved å taste inn programmet som er vist lenger ned på siden snart ha en oppsiktsvekkende og interessant kuriositet som smelter selv det vanskeligste kvinnelige sjekkeobjekt (...eller kanskje ikke. Du får nok juling i overskuelig fremtid pga. høy nerdefaktor).
Programmet roterer en 3D-pyramide rundt alle akser og projiserer punktene for visning på den 2-dimensjonale skjermen.
Se i manualen til kalkulatoren din om du ikke finner bestemte funksjoner. Har du ikke manualen lenger kan du finne den hos Casio. Manual for Casio CFX-9850G / FX-9750G PLUS / CFX-9850G PLUS / CFX-9850GB PLUS / CFX-9850GC PLUS / CFX-9950GB PLUS
Matriser:
Programmet benytter seg av Matrise A, C, E og G. Dette kan modifiseres
i kildekoden. Husk enter-pil etter hver linje (se exe-tasten på kalkulatoren).
Definer matrisene som følger:
Matrise A og E er 12x3 matriser, C er 13x2 og G er 192x2 (litt overdimensjonert :)
Matrise E mates inn med disse punktkoordinatene:
-2, -2, 1
-2,2,1
2,2,1
2,-2,1
-2,-2,1
0,0,-1
2,-2,1
0,0,-1
2,2,1
0,0,-1
-2,2,1
0,0,-1
Programmer:
----------
1->I
For 0->V To 360 Step 30
cos V-> Mat C[I,1]
sin V->Mat C[I,2]
I+1->I
Next
"HOVEDPROG" - Hovedprogram
-----------
AxesOff
Cls
Mat E-Mat A
64->W
0->Q
For 1->L To 12 Step 1
Mat C[L,1]->C
Mat C[L,2]->S
For 1->I To 12 Step 1
Q+1->Q
(Mat A[I,1]xC)+(Mat A[I,2]xS)->X
(-Mat A[I,1]xS)+(Mat A[I,2]xC)->Y
Mat A[I,3]->Z
(XxC)-(ZxS)->P
(XxS)+(ZxC)->Z
P->X
(YxC)-(ZxS)->P
(YxS)+(ZxC)->Z
P->Y
(WxX)/(W+Z)->X
(WxY)/(W+Z)->Y
X->Mat G[Q,1]
Y->Mat G[Q,2]
Next
Next
Do
Prog "Plot"
LpWhile 1=1
"PLOT"
------
Do
Cls
0->R
Q-1->T
For 1->Q To T Step 1
If R=1
Then 0->R:Cls
Else Mat G[Q,1]->X
Mat G[Q,2]->Y
Mat G[Q+1,1]->J
Mat G[Q+1,2]->K
Plot X,Y
Plot J,K
Line
R+1->R
IfEnd
Next
LpWhile 1=1
