How to edit Casio FX-5800P coordinate forward and backward calculation program?
1÷p→c:(p-r)÷(2 HPR)→d: 180÷π→e←┚
0. 1739274226→A:0.3260725774→B:0.06943 18442→K:0.3300094782→L: 1-L→F: 1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD
3 Reverse Operation Program (FS) (not running)
g-90→t:ABS((y-v))cos(t)-(x-u)sin(t)→w:0→z←┚
Lbl 0←┚
Prog "zs": t+qew (c+wd) → l: (j-y) cosl-(I-x) sinl → z: if Abs(Z) 126.9: then go to b: else if k ≤ 259.562 and k > 55652.
LbI A:92094.336 (starting point x coordinate) →U:8287.962 (starting point y coordinate) →V:0 starting point pile number → o:1451'54 "(azimuth) → g:/kloc-0.
lbi b:9 1990. 134→u:8360.388→v: 126.9→o: 145 1 1'54"→g:50→h: 10^(45)→p: 150→r:+ 1→q:Prog " wn ":goto w
LbI C:9 1947.609→U:8386.570→V: 176.9→O: 154 44 ' 5 1 "→G:82.662→H: 150→P: 150→R:+ 1→Q:Prog " WN ":Goto W
lbi d:9 1867. 10 1→u:8399.992→v:259.562→o: 186 19 ' 19 "→g:50→h: 150→p: 10^(45)→r:+ 1→q:Prog " wn ":goto w
LbI W:“pj 1”? T←┚ (This item only has left and right side piles and then left and right offset. If you enter 0, it means that left and right offset is no longer needed, and you can directly calculate the orientation and distance. It is suitable for lofting abutment, capping beam, culvert splayed wall, etc. The direction of the route is forward, forward and backward+).
If T=0: then Z[3]→Z: Z[4]→M: go to p: otherwise go to V: IfEnd←┚.
LbI V:“jj 1”? O←┚ (Left and right side piles deviate from the angle again, minus the route angle 180)
" X 1=": Z[3]+Tcos(F+N+ O)→U◢
" Y 1=" :Z[4]+Tsin(F+N+ O)→V◢
U→Z: V→M: GotoP←┚
LbI P:Pol(Z-S, M-W): if J≤0: then J+360 →J: IfEnd←┚.
"JL =": I ◢ (distance from instrument station to measuring point)
"fwj =": jdms ◢ (azimuth from instrument station to measuring point)
Goto0
Remarks:
1. It is stipulated that the left and right sides should be distinguished by the direction of road centerline (i.e. the direction of mileage increase); Q =-1when the line element is shifted to the left; Q =1when the metaline inclines to the right; When the metal wire is straight, Q=0.
2. When the line element is a straight line, the radius of curvature of its starting point and ending point is infinite, and it is replaced by the 45th power of 10.
3. When a line element is a circular curve, no matter what line element its starting point and ending point are connected with, its radius of curvature is equal to.