body main banner  
torso

BIGSLOPE.8xp

Download BIGSLOPE.8xp

Screenshots

screenshot

Source Code

:ClrHome
:ClrDraw
:ClrListL5,L6
:FnOff
:"OFF"storeStr3
:1storeM
:1storeN
:1storeO
:AxesOff
:"LO"storeStr2
:0storeR
:StorePic 0
:1storeQ
:
:While (Q84)
:ClrHome
:
:Output(1,1,"1. ENTER dY/dX")
:Output(2,1,"2. EDIT SETUP")
:Output(3,1,"3. DRAW SLOPES")
:Output(4,1,"4. EULERS METHOD")
:Output(5,1,"5. DRAW SOLUTION")
:
:Output(7,1,"SELECT 1-5, OR 6TO EXIT.")
:
:5storeD
:While ((D92) and (D93) and (D94) and (D82) and (D83) and (D84))
:getKeystoreD
:End
:ClrHome
:DstoreQ
:
:If (Q84)
:Then
:
:If (Q=92)
:Then
:Input "dY/dX = ",Str1
:StrEqu(Str1,Y0)
:FnOff
:1storeN
:1storeO
:""storeY8
:End
:
:If (Q=93)
:Then
:Output(1,1,"1. Xmin = ")
:Output(1,11,Xmin)
:Output(2,1,"2. Xmax = ")
:Output(2,11,Xmax)
:Output(3,1,"3. Ymin = ")
:Output(3,11,Ymin)
:Output(4,1,"4. YMax = ")
:Output(4,11,YMax)
:Output(5,1,"5. RES = ")
:Output(5,10,Str2)
:Output(6,1,"6. AXES = ")
:Output(6,11,Str3)
:Output(7,1,"7. XScl = ")
:Output(7,11,XScl)
:Output(8,1,"8. YScl = ")
:Output(8,11,YScl)
:
:5storeD
:While ((D92) and (D93) and (D94) and (D82) and (D83) and (D84) and (D72) and (D73))
:getKeystoreD
:End
:ClrHome
:
:If (D=92)
:Input ("Xmin = ",Xmin)
:
:If (D=93)
:Input ("Xmax = ",Xmax)
:
:If (D=94)
:Input ("Ymin = ",Ymin)
:
:If (D=82)
:Input ("YMax = ",YMax)
:
:If (D=83)
:Then
:not(R)storeR
:If R=1
:Then
:"HI"storeStr2
:Else
:"LO"storeStr2
:End
:End
:
:If (D=84)
:Then
:not(M)storeM
:If M=1
:Then
:"OFF"storeStr3
:Else
:"ON"storeStr3
:End
:End
:
:If (D=72)
:Input ("XScl = ",XScl)
:
:If (D=73)
:Input ("YScl = ",YScl)
:
:If ((D=92) or (D=93) or (D=94) or (D=82) or (D=83))
:Then
:ClrHome
:ClrDraw
:StorePic 0
:1storeO
:End
:
:End
:
:If (Q=94)
:Then
:If (O=1)
:Then
:FnOff
:0storeO
:
:If (R=1)
:Then
:6storeE
:10storeF
:16storeG
:"HI"storeStr2
:Else
:8storeE
:8storeF
:12storeG
:"LO"storeStr2
:End
:
:E(Xmax-Xmin)/94storeH
:E(YMax-Ymin)/62storeK
:1/(.4H)2storeA
:1/(.4K)2storeB
:Xmin+0.5HstoreX
:Ymin+0.5KstoreZ
:1storeI
:Lbl P
:1storeJ
:ZstoreY
:Lbl Q
:Y0storeT
:1/sqrt((A+B*T2)storeC
:T*CstoreS
:XstoreU
:YstoreV
:Line(U-C,V-S,U+C,V+S)
:V+KstoreY
:IS>(J,F)
:Goto Q
:U+HstoreX
:IS>(I,G)
:Goto P
:StorePic 0
:End
:
:If (M=0)
:AxesOn
:
:RecallPic 0
:Pause
:AxesOff
:End
:
:If (Q=82)
:Then
:
:Repeat not((N=0) and (P=2))
:If ((N=0) and (P=2))
:1storeN
:If (N=1)
:Then
:ClrListL5,L6
:0storeW
:Input ("INITIAL X = ",X)
:Input ("INITIAL Y = ",Y)
:Input ("STEP SIZE = ",H)
:ClrHome
:If (M=0)
:AxesOn
:
:While ((XXmax) and (XXmin) and (YYMax) and (YYmin) and (W<999))
:W+1storeW
:XstoreL5(W)
:YstoreL6(W)
:X+HstoreU
:Y+H*Y0storeV
:Line(X,Y,U,V)
:UstoreX
:VstoreY
:End
:
:RecallPic 0
:Pause
:
:AxesOff
:ClrHome
:ClrDraw
:End
:Output(1,1,"TRY REGRESSION MODELS ?")
:Output(4,1,"PRESS 1 FOR YES,2 FOR NO.")
:
:While ((D92) and (D93))
:getKeystoreD
:End
:
:ClrHome
:D-91storeP
:If (P=1)
:Then
:
:0storeN
:Output(1,1,"1. QuadReg ")
:Output(2,1,"2. CubicReg")
:Output(3,1,"3. QuartReg")
:Output(4,1,"4. LnReg ")
:Output(5,1,"5. ExpReg ")
:Output(6,1,"6. PwrReg ")
:Output(7,1,"7. LOGIstIc")
:Output(8,1,"8. SInReG")
:
:5storeD
:While ((D92) and (D93) and (D94) and (D82) and (D83) and (D84) and (D72) and (D73))
:getKeystoreD
:End
:ClrHome
:Fix 3
:
:If (D=92)
:QuadReg L5,L6,Y8
:
:If (D=93)
:CubicRegL5,L6,Y8
:
:If (D=94)
:QuartRegL5,L6,Y8
:
:If (D=82)
:LnReg L5,L6,Y8
:
:If (D=83)
:ExpReg L5,L6,Y8
:
:If (D=84)
:PwrReg L5,L6,Y8
:
:If (D=72)
:LogisticL5,L6,Y8
:
:If (D=73)
:SinRegL5,L6,Y8
:
:EquStr(Y8,Str4)
:
:Output(1,1,"SOLUTION F(X) = ")
:Output(2,1,Str4)
:Pause
:Float
:FnOff
:End
:
:End
:End
:
:If (Q=83)
:Then
:If (N=0)
:Then
:ClrHome
:Output(1,1,"DRAW EULER'S SOLUTION ?")
:Output(4,1,"PRESS 1 FOR YES,2 FOR NO.")
:
:While ((D92) and (D93))
:getKeystoreD
:End
:
:ClrHome
:
:D-91storeL
:
:If L=1
:Then
:EquStr(Y8,Str4)
:StrEqu(Str4,Y9)
:
:End
:End
:If ((N=1) or (L=2))
:Then
:Input "SOLUTION F(X) = ",Str1
:StrEqu(Str1,Y9)
:End
:ClrHome
:
:If (M=0)
:AxesOn
:DrawF Y9
:RecallPic 0
:Pause
:AxesOff
:FnOff
:
:End
:
:End
:ClrHome
:ClrDraw
:End
:""storeY0
:""storeY9
:""storeY8
:AxesOn

Generated by SourceCoder, 2005 Cemetech