CASIO4800匝道程序.docVIP

PAGE PAGE 1CASIO fx-48??匝道坐标程序 0 2??3.11CASIO-fx48?? 匝道坐标放样程序0№XIAN XING ZU （471步）1Deg: Defm 154: M“1SURU 6YIZB 7FY”=7 = Goto 2⊿ M=6 = Goto 5⊿ Z“JIZU XIANXIN”: E=Z: 2T=1: Z［5］= T : L“1JISUAN 2SHURU”=2 = Goto 4⊿ Fixm :｛WGHD｝: Prog“D”: LbI 1: Fixm :3｛ABU｝:Prog“E: S=?: Prog“C”:Prog“A”:Isz T: Prog“B”:Dsz Z: Goto 1: Goto 5 :4LbI 2: Fixm : Isz Z［5］:｛FS｝: F“ZHUANG HAO”S“D”: T=1: LbI 3: F≥Z［7T+5］= Isz T: 5T＜E+1=Goto 3 ⊿⊿ T=T-1: T≤1 = T=1: T＞E+1= T=E ⊿⊿ Prog“B”: L=F-W: Z［5］＞20=6Goto 2: Prog“C”: “END OK! ”:Z［3］= E -3?: N=Z［1］: O=Z［2］: K=Z［6］: L=Z［4］:7Prog“F”: V=J: Prog“G”:J-V: Prog“I”: Goto 2:8LbI 4:Fixm :｛WGHDABU｝: Prog“D”: Prog“E”: Prog“A”: W=W+L: Isz T: Dsz Z: Goto4:Goto 5:9LbI 5:Fixm :｛NOKL｝: Prog“H”: Z［1］=N: Z［2］=O: Z［6］=K: Z［4］=L: Goto 2(主程序结束)A （子程序）（132步）1Z［7T+1］=G: Z［7T+2］=H: Z［7T+3］=U: Z［7T+4］=D: Z［7T+5］=W: Z［7T+12］=W+L: 2Z［7T+6］=A: Z［7T+7］=B: Z［7T+11］=V-9?: Z［7T+8］=X: Z［7T+9］=Y B （子程序）（87步）1G =Z［7T+1］: H=Z［7T+2］: W=Z［7T+5］: A=Z［7T+6］: B=Z［7T+7］: D=Z［7T+4］: C=Z［7T+3］C （子程序）（16?步）1P= Abs C÷C : C= Abs C: V =D + P( AL + L2 ÷2C×(B-A))r +9? : Rad :2X=L: Y = H + ∫( (Sin ( Do+ P( AX + X2÷2C×(B-A ，? ，X ，4 :3X=L: X = G + ∫( (Cos ( Do+ P( AX + X2÷2C×(B-A ，? ，X ，4 : Deg :4X = X + S cos V ◢ Y = Y + S sin V ◢ D （子程序）（49步）1W“QD ZHUANG HAO”G“X1” H“Y1” D“A1 ”E （子程序）（54步）1A “R1”： B “R2”： U “LS”: C=U : L= Abs C: A = A-1 : B = B-1 F （子程序）（3?步）1Pol( K-N ，L-O + Z[3] G （子程序）（3?步）1Pol( X-N，Y-O + Z[3]H （子程序）（53步）1N“X YIQI”O“Y YIQI”K“X HOUSI”L“Y HOUSI”I (子程序）（65步）1Ans＜? = Ans + 36? ⊿2V= Ans: 6? Frac Ans:V “＜JIAO DU”=Int V +.?1 Int Ans + 6m Frac Ans ◢ I“S=” ◢说明：1.本程序根据微积分中牛顿-柯特斯（辛普生）公式编制。可对任何线形（直、缓、园、复、卵、回头曲线）上的坐标及边桩坐标进行计算。并在输入置仪点和后视点坐标后及时给出放样所需的角度,边长。2.本程序一次最多可输入二十组连续线形。若要增加或减少，请将主程序(1)中【Defm 154:】的154改为（线形组数量+2）×7即可。【CASIO-48??扩展内存不能用字母输入是该机的一个设计缺陷。】 3．程序中数据存储在下列寄存器中：线形数量→Z, 线形序号→T, 起算点坐标X1→Z［7T+1］,Y1→Z［7T+2］, 曲线长度LS→Z［7T+3］, 起算点的切线方位角→Z［7T+4］，起算点桩号→Z［7T+5］,线形前半径R1→Z［7T+6］, 线形后半径R2→Z［7T+7］,