Program TRAVERSE (POLYGON TERTUTUP)Kalkulator casio fx-5800P
Assalamualaikum,
Pada kesempatan kali ini saya akan membagikan Program TRAVERSE (POLYGON TERTUTUP) Kalkulator casio fx-5800P,untuk program azimuth dan lain-lain bisa dicari dipostingan terdahulu .
FX5800P |
Sebelum ke Program TRAVERSE (POLYGON TERTUTUP) Kalkulator casio fx-5800P,anda harus terlebih dahulu mengisi program DDMMSS (Degree,minute,second).Fungsinya adalah untuk mengubah sudut azimuthnya menjadi desimal.
Langsung saja ini dia Program DDMMSS untuk kalkulator fx5800P:
Filename: DDMMSS
Frac (P)x100 →Q↵
Int (P)+Int (Q) : 60+(Q-Int (Q)) :36→P↵
Return
Untuk cara memasukan programnya ke kalkulator silahkan baca :disini
Selanjutnya setelah mengisi Program DDMSS diatas sudah selesai,kita akan mengisi Program TRAVERSE (POLYGON TERTUTUP) seperti dibawah ini :
Filename :TRAVERSE (bisa juga ditulis POLYGON sesuai selera aja)
ClrMemory:"N1"?→N↵
N=0⇒Goto 8↵
"E1"?→E↵
Lbl 8↵
N→Y:E→X↵
1→R:1→S↵
N=0⇒Goto 7↵
"N2"?→A↵
A=0⇒Goto 7↵
"E2"?→H↵
AÇ‚0⇒Goto 1↵
Lbl 7↵
N→A:E→H↵
Lbl 1↵
"BRG"?→P:Prog"DDMMSS"P→B↵
"DIST"?→D↵
D=0⇒Goto 2↵
T+D→T↵
Rec(D,B)↵
I+(Abs(I):RxF)→I↵
J+(Abs(J):SxG)→J↵
Y+I→Y:X+J→X↵
K+Abs(I)→K:L+Abs(J)→L↵
C+J+M→C:Z+CxI→Z↵
J→M↵
N=0⇒Goto 1↵
"N=":Y⊿
"E=":X⊿
Goto 1↵
Lbl 2↵
W=2⇒Goto 4↵
A-Y→F:H-X→G↵
Pol(F,G)↵
J˂0⇒J+360→J↵
"BRG=":J➧DMS⊿
"DIST=":I⊿
"TOT.DIST=":T⊿
"DELTA Y=":F⊿
"DELTA X=":G⊿
"1 IN":Int (T:I+0.5)⊿
Lbl 4↵
"AREA=":Abs(Z):2⊿
W=2⇒STOP ↵
"0=DISPLAY 1=CONT 2=ADJUST 3=2ML"?→W↵
W=0⇒Goto 2 ↵
W=2⇒Goto 3 ↵
W=3⇒Goto 5 ↵
W=1⇒0→F:O→G ↵
Goto 1 ↵
Lbl 3 ↵
O→T:O→C:O→Z:O→M ↵
K→R:L→S ↵
O→K:O→L↵
N→Y:E→X ↵
Goto 1 ↵
Lbl 5 ↵
"BX"?→P:Prog "DDMMSS":P→U↵
"BY"?→P:Prog "DDMMSS":P→V↵
Lbl 6 ↵
"DX=":Abs((I:sin (U-V)) x sin (V-J))⊿
"DY=":Abs((I:sin (U-V)) x sin (J-U))⊿
"0=DISPLAY 1=CONT"?→W ↵
Belum ada Komentar untuk "Program TRAVERSE (POLYGON TERTUTUP)Kalkulator casio fx-5800P"
Posting Komentar