Survey Programe For Fx5800p
#1
Posted 13 May 2008 - 04:24 PM
- senjong likes this
#2
Posted 16 May 2008 - 01:55 AM
I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,
Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..
I have a manual which i can send you for free and compare if the procedures in computation are the same.
#3
Posted 29 May 2008 - 09:25 AM
Anybody have survey programes for fx5800p. pls help me
Yes I have..here is the program..may b later I can send you the instruction to use..anyway u can go to insight4survey.wordpress.com...they have program complete with example manual but in chinese
@@ Program ALL @@ Program 1.RUNMENU "1.COGO" "2.CADESTER" "3.CURVE"?->Z Z=1=>Prog "COGO":Z=2=>Prog"CADES":Z=3=>Prog"CURVE" @@ Program 2LINTER Cls "CTRL N1"?->A:"CTRL E1"?->B Cls "BRG 1"?->E E->W:Prog "P9" W->E Cls Rec(10000,E) I+A->G J+B->H ((G-A)/(H- B) )->M "CTRL N2"?C:"CTRL E2"?D Cls "BRG 2"?->F F->W:Prog "P9" W->F Rec(10000,F) I+C->K J+D->L ((K-C)/(L-D))->N A-MB->O C-ND->P (P-O)/(M-N)->Q QM+O->R Cls "N INTERSECT":R_ "E INTERSECT":Q_ @@ Program BRGDIST Cls Deg:Fix 4 "CTRL PT N"?->N:"CTRL PT E"?->E Lbl 0:Cls "PT N"?->Y Y=-99=>Stop "PT E"?->X Pol(Y-N,X-E) Prog "IF BRG" CLs "BRG":W>DMS_ "JRK":I_ Goto 0 @@ Program CADES Cls "1.TRV-DIR COMP" "2.SOLAR OBS"?->Z Z=1=>Prog "TRAV-DIR-COM" Z=2=>Prog "SOLAR" @@ Program CIR Cls "1.CENTER2P" "2.DEFLECTION"?->Z Z=1=>Prog "CIRCULAR":Z=2=>Prog "DEFLECT" @@ Program CIRCULARCls 30->DimZ ClrMemory Deg:Clrstat:FreqOff:Fix 3 0->Z[1] "CIRCULAR" "IP ANG"?->C C->W Prog "P9" W->C 0->W Cls "Radius"?->R Cls "1.LEFT" "2.RIGHT"?->K Cls "IP COORD N"?->N "IP COORD E"?->E Cls "CH ST"?->D Cls "COORD CH N OR TAN"?->O "COORD CH E OR TAN"?->P Cls "CTL STN N"?->Z[21] "CTL STN E"?->Z[22] Cls Lbl 0 Z[1]+1->Z[1] "SET OUT CH"?->F "SET OUT OF"?->U Cls (W*(2\piR))/360->H Pol(O-N,P-E):Cls If J<0: Then J+360->Z:Else J->Z: IfEnd I+D->G tan((C/2))*R->L G-L->Q ((F-Q)*360)/(2\piR)->A Q+H->M Rec(L,Z):Cls N+I->Y E+J->X If K<>1:Then Rec(R,Z-90):I+Y->S:J+X->T:Rec(R,Z+90+C):I+S->V:J+T->W Rec(R-U,Z+90+A):I+S->G:J+T->Z Else Rec(R,Z+90):I+Y->S:J+X->T:Rec(R,Z-90-C):I+S->V:J+T->W Rec(R+U,Z-90-A):I+S->G:J+T->Z:IfEnd G->Z[25] Z->Z[26] "POIN CORD N":G_ "POIN CORD E":Z_ Prog "P7" Cls "BRG TO PT":W>DMS_ "DIST TO PT":I_ Cls If Z[1]>1:Then Goto 0:IfEnd "PC CORD N":Y_ "PC CORD E":X_ Cls "PT CORD N":V_ "PT CORD E":W_ Cls "ARC LENGTH":H_ Cls "PC CHN":Q_ "PT CHN":M_ Cls Goto 0 @@ Program COGO Cls "1.POINT" "2.LINE"?->Z Z=1=>Prog "PT":Z=2=>Prog "LINE" @@ Program CURVECls "1.CIRCULAR" "2.SPIRAL"?->Z Z=1=>Prog "CIR":Z=2=>Prog "SP" @@ Program DEFLECT Cls Deg:Fix 4 Q+L->Q Z[3]=-99=>Goto 0 "SC N"?->N "SC E"?->E Cls "CH SC"?->Q Cls "IP N"?->G "IP E"?->H Cls "1.LEFT" "2.RIGHT"?->K Cls "RADIUS"?->R Cls Lbl 0 "CTL N"?->Z[21] "CTL E"?->Z[22] Cls Lbl 2 "CH TO SET"?->P P-Q->D ((D/(2\piR))*360)/2->B B*2->A Z[3]=-99=>Goto 1 Pol(G-N,H-E) Prog "IF BRG" Lbl 1 (R/Sin((180-A)/2))*sin(A)->C If K=1:Then Rec(C,U- B) :Else Rec(C,U+ B) :IfEnd "N PT":I+N_ "E PT":J+E_ I+N->Z[25] J+E->Z[26] Prog "P7" "Brg TO PT":W>DMS_ "DIST TO PT":I_ Goto 2 @@ Program IFBRGIF J<0:Then J+360->W:Else J->W:IfEnd Return @@ Program KIBLAT 21.25156->A A->W Prog "P9" W->A 39.49291->L L->W Prog "P9" W->L "LAT(N)DMS"?->B B->W Prog "P9" W->B "LONG(E)DMS"?->M M->W Prog "P9" W->M sin(M-L/((cos( B) *tan(A))-(sin( B) *cos(M-L)))->T tan^-1 (T)->T If B>A:Then 180-T->T:Else 360-T->T:IfEnd "BEARING KIBLAT":T>DMS_ @@ Program LINE Cls "1.ONLINE" "2.OFFSET" "NEXT->EXE"_ Cls "3.2LINTERSECT" "4.ASKAZE ONLINE"?->Z Z=1=>Prog "ONLINE":Z=2=>Prog "OFFSET":Z=3=>Prog"2L-INTERSECT":Z=4=>Prog "ONLINE1" @@ Program LVLCALC Cls:ClrStat "TBM"?->A "BS"?->B Cls A+B->C 0->K Lbl 0 Isz K Cls "PT"?->D D=-99=>Stop C-D->E "LVL=":E_ E->List X[K] Goto 0 @@ Program OFFSET Cls Deg:Fix 4 "N1"?->Y:"E1"?->X Cls "N2"?->N:"E2"?->E Cls N=Y=>Y+0.0000001->Y E=X=>X+0.0000001->X Lbl 0 "N PT"?->S If S=-99:Then Stop:Else "E PT"?->T IfEnd Cls (Y-N)/(X-E)->M (MX+((1/M)*T)-Y+S)/(M+(1/M))->Q Y+M(Q-X)->P \sqrt((T-Q)^2 + (S-P)^2)->O \sqrt((P-Y)^2 + (Q-X)^2)->L "N CL" :P_ "E CL":Q_ Cls "CH":L_ Pol(N-Y,X-E) Prog "If BRG" W->A Pol(S-P,T-Q) Prog "IF BRG" W->B A>270=>Goto A A>180=>Goto B A>90=>Goto B A>0=>Goto C Lbl A B>180=>-O->O Goto D Lbl B B<A=>-O->O Goto D Lbl C B>270=>-O->O LBL D "OFST" :o_ Goto 0 @@ Program ONLINE Cls Deg:Fix 4 "N1"?N:"E1"?E Cls "N2"?Y:"E2"?X Cls "Ans IN?" "1.COORD" "2.BRG DST"?->M Cls If M=1:Then Goto 1:Else "CTRL N"?C:"CTRL E"?D IfEnd Lbl 1 Pol(Y-N,X-E) If J<0:Then J+360->Z:Else J->Z:IfEnd "BRG ALGN":Z>DMS_ "JRK":I_ Lbl 0 "CHN"?->H:"OFST"?->O If O=0:Then 0.0000001->O:IfEnd If H=0:Then 0.0000001->H:IfEnd Rec(H,Z) I+N->A J+E->B If O<0:Then Z-90->T:cos(T)*Abs(O)+A->K:sin(T)*Abs(O)+B->L Else Z+90->T:cos(T)*O+A->K:sin(T)*O+B->L:IfEnd If M=1:Then "N PT":K_ "E PT":L_ Goto 3 Else Goto 2:IfEnd Lbl 2 Pol(K-C,L-D) If J<0:Then J+360->:If End Fix 4 "BRG TO PT":J>DMS_ "DIST TO PT":I_ Lbl 3 Norm1 "NEXT PRSS 1"?R R=1=>Goto 0:Stop @@ Program ONLINE1 Cls "N1"?A:"E1"?B Cls "0.COORD" "1.BRG"?H If H <> 0:Then "BRG"?E:E->W:Prog "P9":Goto 2:W->F:IfEnd "N2"?C:"E2"?D Pol(C-A,D- B) If J<0:Then J+360->F:Else J->F:IfEnd "CH END":I_ "BRG ALG":F>DMS_ Lbl 2 "CH"?G cos(F)*G+A->K sin(F)*G+B->L "CL N":K_ "CL E":L_ "OFL"?M M=0=>Goto 3 F-90->P cos(P)*M+K->Q sin(P)*M+L->R "OL N":Q_ "OL E":R_ "OFR"?N N=0=>Goto 2 F+90->P cos(P)*N+K->Q sin(P)*N+L->R "OR N":Q_ "OR E":R_ Goto 2 @@ Program P6 If W<180:Then W+180->W:Else W-180->W:If End @@ Program P7 Pol(Z[25]-Z[21],Z[26]-Z[22]) Prog "If BRG" @@ Program P9 Int(W)+Int(Frac(W)*100)/60+(Frac(Frac(W)*100)*100)/3600->W @@ Program PT Cls "1.RADIAL" "2.BRG DIST"?->Z Z=1=>Prog "RADIAL":Z=2=>Prog "BRG-DIST" @@ Program RADIAL Cls "NORTH STN"?->N "EAST STN"?->E Cls Lbl 0 "BRG"?->B B->W Prog "P9" W->B "DIST"?->D Rec(D, B) I+N->Y J+E->X Cls "NORTH PT":Y_ "EAST PT":X_ Cls "NEXT PRSS 1"?T Cls If T=1:Then Goto 0 Else Stop @@ Program RESECT "LEFT PT" "N"?A:"E"?B "RIGHT PT" "N"?C:"E"?D Pol(C-A,D- B) I->G J->H "DIST TO 1"?E "DIST TO 2"?F (E+F-G)<0=>"ERROR" (G+F-E)<0=>"ERROR" (G+E-F)<0=>"ERROR" cos^-1 ((G^2+E^2-F^2)/(2*G*E))->K H+K->L cos(L)*E+A->M sin(L)*E+B->N cos^-1 ((E^2+F^2-G^2)/(2*E*F))->P "CHECK ANGLE" :P>DMS_ "PT N":M_ "PT E":N_ Pol(A-M,B-N) J<0=>J+360 "BRG TO 1":J>DMS_ @@ Program SCS Cls 30->DimZ 0->Z[1] ClrMemory "TS N"?->N "TS E"?->E Cls "CH TS"?->Q "IP ANG"?->B Cls "1.LEFT" "2.RIGHT"?->K Cls "IP N"?->G "IP E"?->H Cls "R"?->R "LS"?->L Cls "CTL N"?->Z[21] "CTL E"?->Z[22] Lbl 0 Cls "CH TO SET"?->P P-Q->D P=-99=>Stop If D>L:Then D->Z[1]:L->D:IfEnd Prog "SP-OS" tan^-1 (X/Y)->Z Z[1]>L=>((B-(Z*6))/360)*(2*\pi*R)->C Pol(G-N,H-E) If J<0:Then J+360->V:Else J->V:IfEnd I->O Z[1]?L+C=>Goto 6 If K=1:Then Rec(\sqrt(X^2+Y^2),V-Z):Else Rec(\sqrt(X^2+Y^2),V+Z):IfEnd Z[1]>L=>Goto 5 Cls I+N->Z[25] J+E->Z[26] "N SP1":I+N_ "E SP1":J+E_ Prog "P7" Cls "BRG TO PT":W>DMS_ "DIST TO PT":I_ Goto 0 Lbl 5 I+N->Z[2] J+E->Z[3] V->Z[4] If K=1:Then Z[4]-(Z*3)->Z[5]:Else Z[4]+(Z*3)->Z[5]:IfEnd Z[1]-L->Z[6] (Z[6]/(2\piR))*360->Z[7] (180-Z[7])/2->Z[8] (?/sin(Z[8]))*sin(Z[7])->Z[10] Z[6]*180)/(2\piR)->Z[9] If K=1:Then Rec(Z[10],Z[5]-Z[9]):Else Rec(Z[10],Z[5]+Z[9]):IfEnd Cls Z[2]+I->Z[25] Z[2]+J->Z[26] "N CIR":Z[25]_ "E CIR":Z[26]_ Prog "P7" Cls "BRG TO PT":W>DMS_ "DIST TO PT":I_ Cls 0->Z[1] Goto 0 Lbl 6 L-(Z[1]-(C+L))->D If K=1:Then V-B->F:Else V+B->F:IfEnd Prog "SP-OS" tan^-1 (X/Y)->Z Rec(O,F) G+I->Z[12] H+J->Z[13] If F<180:Then F+180->F:Else F-180->F:IfEnd If K=1:Then Rec(\sqrt(X^2+Y^2),F+Z):Else Rec(\sqrt(X^2+Y^2),F-Z):IfEnd Cls Z[12]+I->Z[25] Z[13]+J->Z[26] "N SP2":Z[25]_ "N SP2":Z[26]_ Prog "P7" Cls "BRG TO PT":W>DMS_ "DIST TO PT":I_ Cls 0->Z[1] Goto 0You can convert this using casform to fa124 format..download casform from engineering surveyor.com and casio link software fa124 and then paste them into new prog @@ symbol notes that it is separate program (file)
#4
Posted 29 May 2008 - 11:13 AM
This is bert from the Philippines.
I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,
Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..
I have a manual which i can send you for free and compare if the procedures in computation are the same.
hi berth! I am kusairi from malaysia
I am intrested to have the land survey programs for 9860G from you..juz to have some more collection so that I can improve the program that I have now.If you want my program also I can email to you.but my program is more on land survey for construction. Some of them I just translate from http://asakaze.net/fx-4800p and I have also collection from http://insight4survey.wordpress.com/ for 7400G but its work also in 9860G.
Diffrent with 5800 only some program that compatible with graphic model because 5800 can ask user input to asign to variable in diffrent way (e.g "bearing"?->W) but it also can be written in "bearing"?W the diffrent is just the program will prompt current value for the variable if we do not put ->
5800 also juz have 3 list that is list list[Y] and Sum unlike the graphical model list[1~30](9860G) or only 6 in 7400G. there is may b some diffrent in the syntax or expression. I am not sure the term for prog that I use correct or not...I am not a pure programmer.
in the blog insight4survey he also has put link to download 5800 program in chinese language.I found that 5800 has slower processor infact slower than 7400G and 4800. 9860G..I think it is the fastest in casio family.
my email kucai_dsg AT yahoo.com
#5
Posted 03 June 2008 - 08:05 AM
Anybody have survey programes for fx5800p. pls help me
download it!
http://casiolandsurv...vey-program.pdf
#6 Guest_Guest_sajeevkumar_*_*
Posted 05 June 2008 - 07:05 PM
Haidownload it!
http://casiolandsurv...vey-program.pdf
you can get the programme frome the web site
engineering surveyor.com
I have some programme in PDF format that I canotpast in this page
sajeev
sajeevknu AT rediffmail.com
#7
Posted 06 June 2008 - 05:54 AM
#8
Posted 03 January 2009 - 03:01 PM
<br /><br /><br /><br />This is bert from the Philippines.<br /> <br />I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,<br />Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..<br /><br />I have a manual which i can send you for free and compare if the procedures in computation are the same.<br />
Hi my freind i can solve your problem if i find that casio 5800 have ARRAY variable other than Z[] ?
#9 Guest_alexander_*
Posted 16 May 2009 - 02:10 AM
#10 Guest_Guest_*
Posted 16 May 2009 - 02:14 AM
Anybody have survey programes for fx5800p. pls help me
send me your EMail and i can give you a copy of my land surveying program for 5800p
#11 Guest_AJ_Jhyne_*
Posted 10 August 2009 - 01:24 PM
.,ahm, ana jhyne bustillo from the philippines.,ahm, my dad is currently studying his mastery for engineering and he has a hard time in programming in his calculator(fx=5800p).,if you mind can i ask the program of area computation by coordinates?., pls and thank you and more power to you.,
#12 Guest_ckchoo_*
Posted 20 August 2009 - 11:14 AM
my email: ckchoo57 AT gmail.comsend me your EMail and i can give you a copy of my land surveying program for 5800p
#13 Guest_ana jhyne_*
Posted 20 August 2009 - 01:06 PM
#14 Guest_Nasri_*
Posted 16 October 2009 - 04:33 AM
#15 Guest_glenn buca_*
Posted 24 December 2009 - 09:26 PM
#16 Guest_jeansen_*
Posted 15 January 2010 - 07:22 AM
This is bert from the Philippines.
I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,
Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..
I have a manual which i can send you for free and compare if the procedures in computation are the same.
hallo,friend ............i also surveyor ,can u sand to me?
this is my e-mail=jeansen84 AT yahoo.com
#17 Guest_Franco S. Lacandola_*
Posted 03 February 2010 - 06:44 PM
send me your EMail and i can give you a copy of my land surveying program for 5800p
Here is My Email Address, fslacandola AT yahoo.com, i have calculator 5800p but i dont have list of programs, if u dont mine can u send a copy to me, thank you very much
#18
Posted 20 February 2010 - 04:31 AM
Plz help me, and thanks for everybody! :X
My email: square1983 AT gmail.com
Edited by dig31, 20 February 2010 - 04:32 AM.
#19 Guest_yusri_*
Posted 05 June 2010 - 04:18 AM
send me your EMail and i can give you a copy of my land surveying program for 5800p
useniks AT yahoo.com
#20
Posted 09 June 2010 - 06:46 AM
hallo,friend ............i also surveyor ,can u sand to me?
this is my e-mail=jeansen84 AT yahoo.com
Hi jeansen,
U can make Google earth or map source software
thanks
--3R--
#21 Guest_ahmad_*
Posted 23 June 2010 - 12:21 PM
send me your EMail and i can give you a copy of my land surveying program for 5800p
this my emel: cleapo at yahoo.com.sg
#22 Guest_valescotojr@yahoo.com_*
Posted 19 July 2010 - 03:50 PM
My name is val escoto jr. i just bought a new casio5800p. I need some source program for surveying, if you can send me a copy of your programs, i would be very grateful. Thanks and more power to you. My email add is valescotojr AT yahoo.com.Here is My Email Address, fslacandola AT yahoo.com, i have calculator 5800p but i dont have list of programs, if u dont mine can u send a copy to me, thank you very much
#23 Guest_val escoto jr._*
Posted 02 October 2010 - 09:04 AM
This is bert from the Philippines.
I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,
Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..
I have a manual which i can send you for free and compare if the procedures in computation are the same.
I will appreciate it very much if you can send me a copy of the manual for comparison. Pls. send it to valescotojr AT yahoo.com. Thanks and more power to you.
#24
Posted 25 November 2010 - 01:30 AM
my e-mail =
ir.ahmad2000 AT gmail.com
tank you very much
This is bert from the Philippines.
I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,
Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..
I have a manual which i can send you for free and compare if the procedures in computation are the same.
#25 Guest_Khalid Abbasi_*
Posted 14 January 2011 - 06:06 AM
Email: khmabbasi AT yahoo.comsend me your EMail and i can give you a copy of my land surveying program for 5800p
capitalscon AT gmail.com
#26 Guest_ali gill_*
Posted 09 April 2011 - 07:25 AM
send me your EMail and i can give you a copy of my land surveying program for 5800p
my mail id is ali.gill21 AT yahoo.com please send me programes 5800p thanks
#27
Posted 15 April 2011 - 02:09 PM
{EDIT}
NOT the same thing as Simon Lothar's "Insight"
Edited by mfischer, 15 April 2011 - 10:14 PM.
#28
Posted 30 October 2011 - 03:54 AM
Here is My Email Address, fslacandola AT yahoo.com, i have calculator 5800p but i dont have list of programs, if u dont mine can u send a copy to me, thank you very much
my mail id is ali.gill21 AT yahoo.com please send me programes 5800p thanks
Email: khmabbasi AT yahoo.com
capitalscon AT gmail.com
#29
Posted 08 August 2012 - 02:36 AM
#30
Posted 13 August 2012 - 09:38 AM
#31
Posted 24 September 2012 - 06:24 AM
i am looking for " relative coordinates " program for my fx-5800p. plz help anybody
#32
Posted 25 September 2012 - 01:44 PM
Please if you are looking for a program, give more information. Is this something previously released on the web?
Programming the device is also easy, you can program it yourself. What is the program going to do?
#33
Posted 18 March 2014 - 11:18 AM
bert...yaon ako ngunyan didgdi sa saudi tas nabasa ko eni post mo...may na eling ako 9860GII..gusto ko kuta bakalon...matawan m barang ako program noy? ako plan c joel...taga guinobatan..email...joel_brojan75@yahoo.com.....salamat sana noy.This is bert from the Philippines.
I have complete land survey programs for fx 9860G, but i doubt you can use it if your survey standard/practice is different from the philippines. It consists of traverse computation,
Bearing distance area computation, Conversion from Geog to UTM, Intersection, Subdivision, etc..
I have a manual which i can send you for free and compare if the procedures in computation are the same.
#34
Posted 25 July 2014 - 09:21 AM
have calculator 5800p send me too
thank you very much
#35
Posted 01 July 2016 - 04:09 PM
Thank you.
#36
Posted 01 July 2016 - 04:14 PM
Thank you.
#37
Posted 02 July 2016 - 10:39 AM
Hello, Sandah Adamu,
The fx-4800p has Casio Basic 1 programming language, and the fx-5800p has the Casio Basic 2, you have to convert the program manually
Assigment in fx-4800p:
A=B
Assigment in fx-5800p:
B->A
-Input Casio fx-4800p:
A"any string":B"any string":C"any string"
-Input Casio fx-5800p:
"any string"?->A "any string"?->B "any string"?->C
Output: The same, with the output triange
Loops fx-4800p:
A=10 Lbl 1 B=11-A C[B]=B Dsz A: Goto 1
Loops in fx-5800p, using Dsz, or:
1->C 9-> Dim List C For 1->B To 10 B->List C[B] Next
I recommend you to study this great tutorial
http://community.cas...basic-tutorial/
PD: Your new calculator language is more powerful than the fx-4800p, learn to use it.
#38
Posted 17 July 2016 - 07:59 AM
Thank you so much, I really appreciate.
I study what you send for me but there are somethings that I couldn't know how to change. Bellow are the program that I want you to help me change from fx4800p to fx5800p. Thank you.
ZBJS
1. Defm12: I'' XO'': Q'' YO'': L'' Ls'': Z
=180÷(πR)2. Z
=.5L-L3÷(240R2):T=(R-L2÷(24))tan.5A+Z +K◢3. B=Z
L÷2: O=A÷Z +L◢4. E=(R+L2÷(24R)) ÷cos.5A-R◢
5. E '' ZH'' =J'' JD''-T◢
6. Z
'' HY'' = E+L◢7. Z
'' QZ'' =E+.50◢8. Z
'' YH'' =E+O-L◢9. Z
''HY '' =E+O◢10. P '' 1, 2'' : {F}:F ''F '': U'' X (JD) '': Z'' Y (JD) ''
11. Lb1 0: {M}: M'' CD'' : M≤E=˃Goto 6Δ
12. M≤Z
=˃Goto 1Δ13. M<Z
=˃Goto 2Δ14. M≥Z
=˃Goto 7Δ15. M≥Z
=˃Goto 5Δ16. Lb1 1: G=M-E: D=√ ((G-(1^5÷(40R2L2))2+(G^3÷(6RL)-G^5÷(336R^3L))2)
17. P<2=>C=F+Z
G2÷(6L): H=F+BG2÷L2:≠>C=F-Z G2÷(6L): H=F-BG2÷L2Δ Goto 318. Lb1 2: G=M-Z
: W=R (1-cos (B+Z G))+L2÷(24R): D=√ (W2+(Rsin (B+Z G) +Z )219. P<2=>C=F+tan-1 (w÷ (Rsin (B+Z
G) +Z )): H=F+B+Z G: ≠˃C=F- tan-1 (W÷ (Rsin (B+Z G) +Z )): H=F-B-Z G: Δ20. Lb1 3: X=U+Tcos (F-180) +DcosC◢
21. X=Z+Tsin (F-180) +DsinC◢
22. Prog'' HW''
23. Lb1 4: Z
=X: Z =Y: {S}: X'' ZX'' = (Z +Scos(H-90))◢24. Y'' ZY'' = (Z
+Ssin (H-90))◢25. Prog '' HW '' : {N}: X'' YX'' = (Z
+Ncos (H+90))◢26. Y'' YY''= (Z
+NSin (H+90))◢27. . Prog '' HW '' : Goto 0
28. Lb1 5:G=Z
-M: Z[12]= (T-G+G^5÷ (40R2L2)) SinA+ (G^3÷ (6RL)-G^5÷ (336R^3L)) CosA: Z =T+ (T- G+G^5÷ (40R2L2)) CosA- (G^3÷ (6RL) -G^5÷ (336R^3L)) SinA: D=√ (Z 2+Z[12]2)29. P<2=>C= F+tan-1(Z[12]÷Z
): H=F+A-BG2÷L2: ≠˃C=F- tan-1(Z[12] ]÷Z ): H=F-A+BG2÷L2 Δ Goto 330. Lb1 6:D=J-M: C=F+180: H=F: Goto 8
31. Lb1 7: d=t+m-z
: P<2=>C= F+A: ≠˃C=F-A Δ H=C32. Lb1 8:X=U+DCosC◢
33. Y=Z+DSinC◢
34.Prog'' HW '' Goto 4
ZDZB
1. {A}: A'' A'': {B}: B'' B'': X=A+DCosF◢
2.Y=B+DSinF◢
HW
1. Z[10] '' D1'' =√((X-I)2+(Y-Q)2)◢
2. Y-Q≥0=>Z[11] '' F1'' =Arg ((X-I)2+(Y-Q)i)◢
3. ≠˃Z[11] '' F1 '' =Arg (( X-I)2+(Y-Q)i)+360◢
DF
1. {AB}: D=√((A-X)2+(B-Y)2)◢
2. Y-B≥0=> F=Arg ((X-A)2+(Y-B)i)◢
3. ≠˃F=Arg (( X-A)2+(Y-B)i)+360◢
#39
Posted 04 August 2016 - 10:08 AM
It is possible and really easy to convert the program, but for neccesary debugging pruposes, it is neccesary to have a physical fx-5800p.
Try to learn Casio Basic 2, and convert it.
Each calculator is different, and the debugging process is mandatory, 99% probability, the program (relatively big) written in a PC text editor without any testing won't work properly.
Regards
#40
Posted 23 April 2022 - 09:32 AM
have calculator 5800p send me too
thank you very much
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users