非常实用的4800放线程序(增加计算竖曲线标高,增加使用说明).docVIP

非常实用的4800放线程序（增加计算竖曲线标高，增加使用说明） 卡西欧fx-4800p计算机（中、边线坐标放样程序，计算速度快，园曲 线超过半圈后有误差）（此程序可以査找桩号和偏屮距离）SUB-1 A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:X=U+W( ACOS(G+180QKW(1vP+KWD)4-h)+BCOS(G+180QLW(1^P+LWD)vr)+BCOS(G+18 0QW(1-L)(1vP+WD(1-L))-th)+ ACOS(G+180QW(l-K)(lvP+WD(l-K))4-n))： Y=V+W(ASIN(G+180QKW(l+P+KWD)+n)+BSIN(G+180QLW(l+P+LWD)+n)+BSIN (G+180QW(l-L)(l+P+WD(l-L))+n)+ ASIN(G+180QW(l-K)(l+P+WD(l-K))+n)):F=G+180QW(l+P+WD)+n S—0(放线主程序) Deg:Fix 3： Defm 12 (说明：本程序为3个变坡点，如果增加变坡点，相应增加“s-o” 程序的Defm后的数字为(变坡点个数+1)*3) Lbl 7:C “XC=” ：E “YC=”： T “H=” Lbl 1:{N}: N “XL=1,2” ：N=0=gt;{U,V,G,P,R,O,H,Q}:U “X0=” ： V “丫0=”： G“F0=”： P“R1=”： R“R2=”: O“DK1=”： H “DK2=”： Q “L(-1),R(+1),Z(O)”: Prog “SJ” △ Lbl 0:{S,M,Z}:S “ZHUANG HA0=” : T^0=gt;Z=0： Goto 8A {Z}:ZKUAN DU” Lbl 8 N=l=gt; Prog “1” : GOTO 2:乒〉△ N=2=gt； Prog “2” : GOTO 2:乒〉△ N=3=gt; Prog “3” : GOTO 2:关〉△ 1 ??????????.. GOTO 1 Lbl 2:S O-0.001=gt; GOTO 1:关〉△S〉H+O.OOl=gt; GOTO 1:关〉 △ D= (P-R) + (2PR(H-0 ))：W=Abs(S-O)： Prog “SUB1” ： Z=lOOO=gt; GOTO 5 △Z乒0=gt;GOTO3 △ T^O=gt； GOTO 9 A X “XS=” ▲ Y “YS=” ▲FO=gt; F=F+360:关〉AF “QX-FWJ=” ▲ Lbl 4:1=0: J=0: Pol(X-C,Y-E+0.00001)： JO=gt; J=J+360:^ AJ “FWJ=” ▲I “HD=” ▲ T=O=gt; Goto OA Lbl 9: Prog “BG” : {K}:J=G-T+K:J” Goto 0 Lbl3:{M}:M “PJ=” : F=F+M:X=X+ZCOSFAY=Y+ZSINFAGoto 4 Lbl 5:Deg J=0:l=0: Pol(X-C,Y-E+0.00001Ran#)： JO=gt; J=J+360:^ A Abs(lcos(J-F)) 0.010=gt; Goto 6A S=S-lcos(J-F):Pause 0: Goto 8 Lbl6:Z=0:S” JISUANZH=” ▲J-F-180=gt;l” L= m” AGoto 7:乒〉 △ J-F〉180=gt;l” R=m” AGoto 7:乒〉△ J-FO=gt; J-F〉-180=gt;l” R=m” AGoto7:关〉△△ J-F〉O=gt; J-F180=gt;l” L=m” AGoto 7:关〉△△ I” ZX--PT” AGoto 7 竖曲线计算子程序 BG V=4： Y=Z[1] 2 LblO SZ[1] =gt; Goto 2A V4=gt;A=(Z[V-2]-Z[V-5])/(Z[V-3]-Z[V-6]): B=(Z[V+l]-Z[V-2])/(Z[V]-Z[V-3]): L=ABS(Z[V-l]*tan((tan-l B- tan-1 A)/2)) Y=Z[V-3]+L:矣〉△ A=(Z[V+l]-Z[V-2])/(Z[V]-Z[V-3]): B=(Z[V+4]-Z[V+l])/(Z[V+3]-Z[V]): L=ABS(Z[V+2]* tan ((tan-1 B- tan-1 A)/2)) X=Z[V]-L:U=z[v]+L A-B〉0=gt;Q=-l:关〉△ A-B0=gt;Q=l:关〉△ W=(S- X)/Z[V+2]*180/pi S^Y =gt; S^X =gt; ZG=Z[V-2]+A(S-Z[V-3]):