曲线任意里程中边桩坐标正反算（4850P计算器）程序（第四次修改(5)

80 楼：测量员 hanniu_1973: 回 谢谢真还不太清楚,那整个计算器里如果有其它程序用同样的扩展变量,启不 乱套,comp状态下用扩展也得注意了啊.以前真还没么用过....还有那扩展变量的所有值都得一个个在comp状态下赋值吗???? 81 楼：KENT 回 我有一个PC-E500S计算机程序，没有说明书，不知怎么用，我传上来，请各位大师帮个忙，告诉我怎么用， 82 楼：KENT PC-E500S计算机全中文综合曲线计算坐标程序 1000 CLS :WAIT &:TT=4321:C$=\1E64C080FFFE00C03C1E64C080000010D0FFFED0B022A222E2E2A2233220\(&,&7):GPRINT C$;\0\1005 D$=\848486C58000000601FF7F20190E4743FF7F01073C18\(&1,&F):GPRINT D$;\1010 LOCATE &C,&:INPUT \&C,&1:INPUT \1015 GCURSOR (&2,&17):GPRINT \4C080FFFE00C03C1E64C080000010D0FFFED0B022A222E2E2A2233220\(&14,&17):GPRINT A$ 1020 GCURSOR (&1,&1F):GPRINT \000818484848584FFFF8584848486C58000000601FF7F20190E4743FF7F01073C18\(&10,&1F):GPRINT B$ 1025 LOCATE &C,&2:INPUT \&C,&3:INPUT \1030 XCHA=X2-X1:YCHA=Y2-Y1+1E-55 1031 S=SQR (XCHA*XCHA+YCHA*YCHA):T=&B4-&5A*SGN YCHA-ATN (XCHA/YCHA) 1035 GCURSOR (&90,&7):GPRINT C$;\0010D0FFFF901000FEFC0407F6E40604 1040 GCURSOR (&91,&F):GPRINT D$;\7F018340BF8F8181FFFF8181\&1A,&2:PRINT \&1A,&3:INPUT V 1045 CLS :WAIT &:A$=\(&10,&7):GPRINT \2F8F0101010F0F81\1050 GCURSOR (&32,&7):GPRINT \ \1055 GCURSOR (&10,&F):GPRINT \1060 GCURSOR (&32,&F):GPRINT \回 1065 LOCATE &E,&:INPUT \&E,&1:INPUT \A:LOCATE &1A,&:INPUT \1066 X0=LS-LS^3/40/R/R:Y0=LS^2/6/R-LS^4/336/R^3 1067 P=LS*LS/24/R:Q=LS/2-LS^3/240/R/R:B0=90*LS/R/PI 1070 TH=(R+P)*TAN(A/2)+Q:LH=R*(A-2*B0)*PI/180+2*LS:LY=R*(A-2*B0)*PI/180:EH=(R+P)/COS(A/2)-R:DH=2*TH-LH 1071 ZH=V:JD=ZH+TH:HY=ZH+LS:YH=HY+LY:HZ=YH+LS:QZ=HZ-LH/2 1072 LOCATE &1A,&1:PRINT \&,&2:WAIT :PRINT \H;A$ 1076 CLS :WAIT &:GCURSOR (&10,&7):GPRINT 83 楼：KENT 接上 \(&32,&7):GPRINT \010FFFE10FFFE1010F0F810006058CCE772209090FFFE909197D280\\1077 GCURSOR (&10,&F):GPRINT \OR (&32,&F):GPRINT \1079 WAIT &:LOCATE &18,&3:PRINT \&18,&:PRINT \&18,&1:PRINT \HY:LOCATE &5,&2:PRINT \1080 LOCATE &18,&2:PRINT \&5,&3:WAIT :PRINT \& 1085 USING:CLS 1090 WAIT &:GCURSOR (&1,&F):GPRINT \40001010101010F1F69E949090D09018100000F8F010D89C979290D09010F0F810 1095 GCURSOR (&4A,&7):GPRINT \(&49,&17):GPRINT \1F1210101010901810 1100 GCURSOR (&49,&F):GPRINT \(&49,&1F):GPRINT \7F2121212121FF7F01\&10,&1:PRINT \&10,&3:PRINT \1105 GCURSOR (&1,&17):GPRINT \0703C0F030040C07F3F0000000000FF7F001F0F08081F0F4040FF7F\&15,&2:INPUT \O 1110 GCURSOR (&A1,&F):GPRINT \1115 GCURSOR (&A1,&17):GPRINT \ATE &22,&2:INPUT W:CLS 1120 LG=INT (V*&3E8)/&3E8 回 1125 N$=STR$ (INT (LG/&3E8)):N$=N$+\(LG-INT (LG/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 1130 USING \1140 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \ 1150 G=INT ((LG+W)/W)*W:CLS:WAIT & 1155 N$=STR$ (INT (G/&3E8)):N$=N$+\(G-INT (G/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 1160 L=G-LG:X=L-L^5/40/R^2/LS^2:Y=O*L^3/6/R/LS 1165 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 1170 USING \1180 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 1185 CLS:G=G+W:IF G>HY THEN GOTO 1500 1190 N$=STR$ (INT (G/&3E8)):N$=N$+\(G-INT (G/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 1195 L=G-LG:X=L-L^5/40/R^2/LS^2:Y=O*L^3/6/R/LS 1200 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 1205 USING \1210 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 1215 GOTO 1185 1500 LG=INT(HY*&3E8)/&3E8 1501 N$=STR$ (INT (LG/&3E8)):N$=N$+\(LG-INT (LG/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 84 楼：KENT 接上 1503 X=LS-LS^3/40/R^2:Y=O*LS^2/6/R 1505 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 1510 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 1515 IF (HY-ZH)>=LH THEN END 1520 G=INT ((LG+W)/W)*W:CLS:WAIT &:IF G>YH GOSUB 1521:GOTO 2000 ELSE GOTO 1530 1521 G=INT(QZ*&3E8)/&3E8:CLS 1522 N$=STR$ (INT (G/&3E8)):N$=N$+\(G-INT (G/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 1523 L=LY/2:C=L*180/R/PI+B0:X=R*SIN C+Q:Y=O*R*(1-COS C)+P:TT=1234 1524 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 1525 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 1526 RETURN 回 1530 N$=STR$ (INT (G/&3E8)):N$=N$+\(G-INT (G/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 1531 L=G-LG:C=L*180/R/PI+B0:X=R*SIN C+Q:Y=O*R*(1-COS C)+P 1535 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 1545 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 1585 CLS:G=G+W:TRG=G:IF G>QZ AND TT=4321 THEN GOSUB 1521:G=TRG 1589 IF G>YH THEN GOTO 2000 1590 CLS:N$=STR$ (INT (G/&3E8)):N$=N$+\(G-INT (G/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 1595 L=G-LG:C=L*180/R/PI+B0:X=R*SIN C+Q:Y=O*R*(1-COS C)+P 1600 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 1610 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 1615 GOTO 1585 2000 CLS:LG=INT(YH*&3E8)/&3E8 2005 N$=STR$ (INT (LG/&3E8)):N$=N$+\(LG-INT (LG/&3E8)*&3E8):LOCATE &,&1:PRINT N$; 2010 L=LG-HY:C=L*180/R/PI+B0:X=R*SIN C+Q:Y=O*R*(1-COS C)+P 2015 X3=X1-Y*SIN T+X*COS T:Y3=Y1+Y*COS T+X*SIN T 2020 LOCATE &10,&1:PRINT \&10,&2:PRINT \&1:WAIT:PRINT \& 2024 IF O>0 THEN K=T+A ELSE K=T-A 2025 IF K>=360 THEN K=K-360 2026 X1=X2+TH*COS K:Y1=Y2+TH*SIN K 2030 LG=INT (YH*&3E8)/&3E8:I=1 2040 IF I=1 THEN G=INT ((LG+W)/W)*W:LG=INT (HZ*&3E8)/&3E8:I=2 ELSE LG=INT (HZ*&3E8)/&3E8 2041 CLS:WAIT &:IF G>HZ THEN GOTO 3000 2045 N$=STR$ (INT (G/&3E8)):N$=N$+\(G-INT (G/&3E8)*& 以上是PC-E500S计算机程序，没有说明书，不知怎么用，我传上来，请各位大师帮个忙，告诉我怎么用，同时供广大测量工作者使用或参考，非常感激。 85 楼：hao728 咱向你们学习，因为你们都是高手！！！ 86 楼：hanniu_1973楼主 测量员： 如果多个程序使用扩展变量共存的系统，需注意：1、如果扩展变量只作中间变量的话，无所谓；2、如果扩展变量作为程序常量的话，应注意各个程序中的变量重名的问题，否则将出现变量相互覆盖的现象，因为CASIO系列的计算器系回 回 统，其扩展变量是采用不受保护的堆栈原理设计的。是的，在COMP状态下需一一输入扩展常量，不过只要不受初始化、Defm 0或Defm N或其它扩展变量的覆盖，其可永远使用。 87 楼：wang811736 请给我也发一份“Gauss-Legendre”到121767632@qq.com,谢谢！ 88 楼：radio_man 一个弯道两边缓和曲线不等长能算吗? 89 楼：测量员 yshy老师，您好！Gauss-Legendre公式能发给我一份吗，我的email:luozixiang@sina.com,谢谢！ 90 楼：wuheqi 回 回 回 回 评：+5 分 我认为你的主程序的 Defm 50的设置没必要,有点画蛇添足的味道.你在输入曲线要素的时候这个值的设置不是在程序里设置的 91 楼：wuheqi E=180/Π 还是N？ 92 楼：yshf radio_man：那个弯道不就是由三个线元组成吗，当然能算。 liuyouchun：你后面的那个问题，我没有相关的资料和程序。 wuheqi：“E=180/Π”中不是N，乃圆周率（3.14159267....)的符号也。 93 楼：陈秋 yshy老师： 请给我也发一份“Gauss-Legendre”到c_q_1_2@163.com好吗？ 谢谢啦！！ 94 楼：hanniu_1973楼主 wuheqi： 你说的程序中的“Defm 50”，的确在有些地方是可以取消的，但对于程序代码的可读性和安全性，有时是有必要的，具体情况应具体分析才行！ 95 楼：hanniu_1973楼主 各位网友： 因本人这边缺乏超过100个线元或25个平曲线以上的平、纵、 横面的线位数据进行程序调试，请问各位能提供这方面的资料吗？或者本愿意以《曲线任意里程中边桩坐标正反算(4850P计算器)程序(第五次修改版）》交换，不胜感谢！有意者可发至我的邮箱：hanniu_1973@163.com 回 回 回 评：+5 分 回 回