CP MCSIMAGEFILE ¥ ¸.¥` ¥ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ system € ¥ O library 8 ¥ @REV3 8 ¥ @REV2 ”!¥ @REV1 ”!¥ @LOCAL40”!¥ @LOCAL39”!¥ @LOCAL38”!¥ @LOCAL37”!¥ @LOCAL36”!¥ @LOCAL35”!¥ @LOCAL34”!¥ @LOCAL33”!¥ @LOCAL32”!¥ @LOCAL31”!¥ @LOCAL30”!¥ @LOCAL29”!¥ @LOCAL28”!¥ @LOCAL27”!¥ @LOCAL26”!¥ @LOCAL25”!¥ @LOCAL24”!¥ @LOCAL23”!¥ @LOCAL22”!¥ @LOCAL21”!¥ @LOCAL20”!¥ @LOCAL19”!¥ @LOCAL18”!¥ @LOCAL17”!¥ @LOCAL16”!¥ @LOCAL15”!¥ @LOCAL14”!¥ @LOCAL13”!¥ @LOCAL12”!¥ @LOCAL11”!¥ @LOCAL10”!¥ @LOCAL9 ”!¥ @LOCAL8 ”!¥ @LOCAL7 ”!¥ @LOCAL6 ”!¥ @LOCAL5 ”!¥ @LOCAL4 ”!¥ @LOCAL3 ”!¥ @LOCAL2 ”!¥ @LOCAL1 ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ ”!¥ main ”!¥ @APLWORK¸.¥ Graph2D ,
†Graph3D @
†LISTSYS L 4N †Modify € $
†STATCALC ¤ N †STATSYS ¬ \N †Sequence ,
†Sheet 4 |
†Sheet3D ° |
†SolveEq , †SolveLwr 0 †SolveUpr < †StupFLG1 H ( †StupList p D
†StupPict ´ $
†ViewWind Ø
†ä ô †ä †ä †ä †ä $ †ä 0 †ä < †ä H †ä T †ä ` †ä l †ä x †ä „ †ä †ä œ †ä ¨ †ä ´ †ä! À †ä" Ì †ä# Ø †ä$ ä †ä% ð †ä& ü †ä' †ä( †ä) †ä* , †ä+ 8 †ä, D †ä- P †ä. \ †ä0 h †ä1 t †ä2 € †ä3 Œ †ä4 ˜ †ä5 ¤ †äE ° †äF ¼ †äH È †äI Ô †äJ à †äK ì †äL ø †äM †äN †äO †äP ( †äQ 4 †äR @ †äS L †äT X †ä] d
†ä^ h
†ä_ l
†ä` p
†äa t
†äb x
†ä” | †ä• ˆ †äÍ ” †äÎ †äÐ ¬ † system ä] listsystem ä^ ]= system ä_ ä^ system ä` ä_ system äa ä` system äb ~ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ aÁ a seq_histb NewFolde
ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ ï system ä] listsystem ä^ ]= system aÁ 0 @ PSheet1 € ¥J#^ Sheet2 € ¥J#^ Sheet3 € ¥J#^ Sheet4 € ¥J#^ Sheet5 € ¥J#^ Sheet Sheet3D 0 @ PSheet1 è J#^ Sheet2 è J#^ Sheet3 è J#^ Sheet4 è J#^ Sheet5 è J#^ Sheet Sheet3D i™ ™ ¨"^ ›^ $ ` P ` P ` p ` p ™€ ` € (1…0qy` #Y‡uYƒ ˜ ` ™Calc Œ 8U „Graph Ä ˜U „Runcas \ U „Setup ü hU „Solve d @U „Stat ¤ ¬U „StupFLG2 P „ Calc Random Value (CalRandom) ÿÿÿÿ Graph Graph Sheet 2D (Sheet),ä&~ä+,ä0,ä1,ä3,ä4,ä5,(f1-f100),(Modify),(Graph2D) Graph Graph Sheet 3D (Sheet3D),ä2,(z1-z100),(Graph3D) Graph Graph Summary (summary) Graph View Window ä~ä#,äÐ,(ViewWindow) Graph View Window 3D ä~ä Graph Factor ä$,ä% Graph Table ä/,ä,,ä-,ä. Graph Conics Eq ä\ Graph Sequence äG,äE,äF,äH,äR,äS,äT,äI~äQ,(an-cn+2),(seq_hist),(Sequence) ÿÿÿÿ Runcas Ans Memory (ANSMEM) Runcas Main History (HISTRY) Runcas eAct (EAC_TEMP) Runcas Geometry (GEO_TEMP) Runcas Clipboad (CLIP) ÿÿÿÿ Setup Setup "system\StupList","system\StupPict","system\StupFLG1",(StupFLG2) ÿÿÿÿ Solve Numeric Solve (NumericSolveData) ÿÿÿÿ Setup Setup "system\STATSYS","system\LISTSYS" Stat Stat List "system\STATSYS","system\LISTSYS",ä]~äb Stat Stat Result äc,äd~äu,(IntrnalCodeS) ÿÿÿÿ hypercu2 ( ÐN hypercub ø ,N Lua Source 10>jÁÙ®require("draw","table")
keypad(0)
showgraph()
draw.onbuffer()
N=50
sin=math.sin
cos=math.cos
function rotat()
local i
for i=1,16 do
T[i]={}
T[i][3],T[i][4]=cube[i][3]*cos(A6)+cube[i][4]*sin(A6),cube[i][4]*cos(A6)-cube[i][3]*sin(A6)
T[i][2],T[i][4]=cube[i][2]*cos(A5)+T[i][4]*sin(A5),T[i][4]*cos(A5)-cube[i][2]*sin(A5)
T[i][2],T[i][3]=T[i][2]*cos(A4)+T[i][3]*sin(A4),T[i][3]*cos(A4)-T[i][2]*sin(A4)
T[i][1],T[i][4]=cube[i][1]*cos(A3)+T[i][4]*sin(A3),T[i][4]*cos(A3)-cube[i][1]*sin(A3)
T[i][1],T[i][3]=T[i][1]*cos(A2)+T[i][3]*sin(A2),T[i][3]*cos(A2)-T[i][1]*sin(A2)
T[i][1],T[i][2]=T[i][1]*cos(A1)+T[i][2]*sin(A1),T[i][2]*cos(A1)-T[i][1]*sin(A1)
end
end
function transpos(a)
local x,y,z
x=4*T[a][1]/(T[a][4]+5)
y=4*T[a][2]/(T[a][4]+5)
z=4*T[a][3]/(T[a][4]+5)
x=4*x/(z+5)
y=4*y/(z+5)
return x,y,z
end
function line(a,b)
local x,y,z,x2,y2,z2
x,y,z=transpos(a)
x2,y2,z2=transpos(b)
draw.line(80+x*N,100+y*N,80+x2*N,100+y2*N,1,5/((z+z2)/2+2))
end
function affiche()
line(1,2)
line(1,3)
line(1,5)
line(1,9)
line(2,4)
line(2,6)
line(2,10)
line(3,4)
line(3,7)
line(3,11)
line(4,8)
line(4,12)
line(5,6)
line(5,7)
line(5,13)
line(6,8)
line(6,14)
line(7,8)
line(7,15)
line(8,16)
line(9,10)
line(9,11)
line(9,13)
line(10,12)
line(10,14)
line(11,12)
line(11,15)
line(12,16)
line(13,14)
line(13,15)
line(14,16)
line(15,16)
end
cube={
{1,1,1,1},
{1,1,1,-1},
{1,1,-1,1},
{1,1,-1,-1},
{1,-1,1,1},
{1,-1,1,-1},
{1,-1,-1,1},
{1,-1,-1,-1},
{-1,1,1,1},
{-1,1,1,-1},
{-1,1,-1,1},
{-1,1,-1,-1},
{-1,-1,1,1},
{-1,-1,1,-1},
{-1,-1,-1,1},
{-1,-1,-1,-1}}
T={}
A1,A2,A3,A4,A5,A6=0,0,0,0,0,0
k=testkey
while 1 do
rotat()
draw.clear()
affiche()
draw.update()
if k(K_0) then
A1,A2,A3,A4,A5,A6=0,0,0,0,0,0 end
if k(K_1) then A1=A1+.1 end
if k(K_2) then A2=A2+.1 end
if k(K_3) then A3=A3+.1 end
if k(K_4) then A4=A4+.1 end
if k(K_5) then A5=A5+.1 end
if k(K_6) then A6=A6+.1 end
end )
Lua Source 10>jÁÙ require("draw")
keypad(0)
showgraph()
draw.onbuffer()
N=50
sin=math.sin
cos=math.cos
function rotat(a,d,e)
local i
for i=1,16 do
cube[i][d],cube[i][e]=cube[i][d]*cos(a)+cube[i][e]*sin(a),cube[i][e]*cos(a)-cube[i][d]*sin(a)
end
end
function transpos(a)
local x,y,z
x=4*cube[a][1]/(cube[a][4]+5)
y=4*cube[a][2]/(cube[a][4]+5)
z=4*cube[a][3]/(cube[a][4]+5)
x=4*x/(z+5)
y=4*y/(z+5)
return x,y
end
function line(a,b)
local x,y,x2,y2
x,y=transpos(a)
x2,y2=transpos(b)
draw.line(80+x*N,100+y*N,80+x2*N,100+y2*N)
end
function affiche()
line(1,2)
line(1,3)
line(1,5)
line(1,9)
line(2,4)
line(2,6)
line(2,10)
line(3,4)
line(3,7)
line(3,11)
line(4,8)
line(4,12)
line(5,6)
line(5,7)
line(5,13)
line(6,8)
line(6,14)
line(7,8)
line(7,15)
line(8,16)
line(9,10)
line(9,11)
line(9,13)
line(10,12)
line(10,14)
line(11,12)
line(11,15)
line(12,16)
line(13,14)
line(13,15)
line(14,16)
line(15,16)
end
cube={
{1,1,1,1},
{1,1,1,-1},
{1,1,-1,1},
{1,1,-1,-1},
{1,-1,1,1},
{1,-1,1,-1},
{1,-1,-1,1},
{1,-1,-1,-1},
{-1,1,1,1},
{-1,1,1,-1},
{-1,1,-1,1},
{-1,1,-1,-1},
{-1,-1,1,1},
{-1,-1,1,-1},
{-1,-1,-1,1},
{-1,-1,-1,-1}}
rotat(.5,1,3)
--rotat(.5,2,3)
while 1 do
rotat(.1,2,4)
draw.clear()
affiche()
draw.update()
end