[推荐]：PCE500全中文综合曲线计算中线坐标程序

zzd1977

1000 CLS :WAIT &:TT=4321:C$="0040484848FFFE4848E4C44444FC7E040000000000F0E0203F3F2424E6F42":A$="807C1E64C080FFFE00C03C1E64C080000010D0FFFED0B022A222E2E2A2233220":GCURSOR (&,&7):GPRINT C$;"0000000000";A$
1005 D$="80703F161F3F62C2CFDFD8D8D8DE48000080603817031AF2621AF2670B30E040":B$="818484848584FFFF8584848486C58000000601FF7F20190E4743FF7F01073C18":GCURSOR (&1,&F):GPRINT D$;"0000";B$
1010 LOCATE &C,&:INPUT "X=";X1:LOCATE &C,&1:INPUT "Y=";Y1
1015 GCURSOR (&2,&17):GPRINT "C4C464BC14070604CCB4E4C684":A$="F0E0203F3F2424E6F42000000000807C1E64C080FFFE00C03C1E64C080000010D0FFFED0B022A222E2E2A2233220":GCURSOR (&14,&17):GPRINT A$
1020 GCURSOR (&1,&1F):GPRINT "808180404023361C1F336060C1C040":B$="0080603817031AF2621AF2670B30E0400000818484848584FFFF8584848486C58000000601FF7F20190E4743FF7F01073C18":GCURSOR (&10,&1F):GPRINT B$
1025 LOCATE &C,&2:INPUT "X=";X2:LOCATE &C,&3:INPUT "Y=";Y2
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$;"000000000000FFFE9292FEFE9292FEFF022022E2FEFFA3223F9E929292BE9F020010D0FFFF901000FEFC0407F6E40604
1040 GCURSOR (&91,&F):GPRINT D$;"004040454444447F7F4444454460480701FFFF0103808484FFFF84C480000E01FF7F018340BF8F8181FFFF8181":LOCATE &1A,&2:PRINT "ZH=":LOCATE &1A,&3:INPUT V
1045 CLS :WAIT &:A$="":GCURSOR (&10,&7):GPRINT "6058CEE772A0A4BCF4EEBAA2BBAEA8002024E4FEFEA322F8F0101010F0F81"
1050 GCURSOR (&32,&7):GPRINT "F8F01010FFFE10FFFE1010F0F810006058CCE772209090FFFE909197D280":USING "#####.###":A$="(m)"
1055 GCURSOR (&10,&F):GPRINT "266723329268388E476B323A6EC74200080701FF7F01033F1F0808083F1F"
1060 GCURSOR (&32,&F):GPRINT "FF7F42427F7F427F7F4242FF7F00002267233212908040633F183C67C2E0"
1065 LOCATE &E,&:INPUT "Lo=";LS:LOCATE &E,&1:INPUT "a=";A:A=DEG A:LOCATE &1A,&:INPUT "R=";R
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 "JD=";JD:LOCATE &,&2:WAIT :PRINT "T=";TH;A$,"L=";LH;A$,"Eo=";EH;A$,"q=";DH;A$
1076 CLS :WAIT &:GCURSOR (&10,&7):GPRINT "6058CEE772A0A4BCF4EEBAA2BBAEA8002024E4FEFEA322F8F0101010F0F81":GCURSOR (&32,&7):GPRINT "F8F01010FFFE10FFFE1010F0F810006058CCE772209090FFFE909197D280":USING "#####.###"
1077 GCURSOR (&10,&F):GPRINT "266723329268388E476B323A6EC74200080701FF7F01033F1F0808083F1F":GCURSOR (&32,&F):GPRINT "FF7F42427F7F427F7F4242FF7F00002267233212908040633F183C67C2E0"
1079 WAIT &:LOCATE &18,&3:PRINT "JD=";JD:LOCATE &18,&:PRINT "ZH=";ZH:LOCATE &18,&1:PRINT "HY=";HY:LOCATE &5,&2:PRINT "QZ=";QZ
1080 LOCATE &18,&2:PRINT "YH=";YH:LOCATE &5,&3:WAIT :PRINT "HZ=";HZ:WAIT &
1085 USING:CLS
1090 WAIT &:GCURSOR (&1,&F):GPRINT "0008C838FFCA084848C8FF5E484C68401010FFFF905810FCFE4243C3C36140001010101010F1F69E949090D09018100000F8F010D89C979290D09010F0F810
1095 GCURSOR (&4A,&7):GPRINT "10101090F0781F16101010901810":GCURSOR (&49,&17):GPRINT "10101090F07C1F1210101010901810
1100 GCURSOR (&49,&F):GPRINT "4030188E83818181FFFF818181C180":GCURSOR (&49,&1F):GPRINT "08040603FF7F2121212121FF7F01":LOCATE &10,&1:PRINT "(-1)":LOCATE &10,&3:PRINT "(+1)
1105 GCURSOR (&1,&17):GPRINT "091B09FF7F050002172262F25E0702001C4EFF7F0180403F1F0000FF7F000000008040703C0F030040C07F3F0000000000FF7F001F0F08081F0F4040FF7F":LOCATE &15,&2:INPUT "=?";O
1110 GCURSOR (&A1,&F):GPRINT "FCF90306F2E02222E2F22202FEFF0200007F3EE2BE7F02FFFE222222E2F322
1115 GCURSOR (&A1,&17):GPRINT "FF7F00001F0F09091F0F4040FF7F0000207F203F3F120AFF7F424242476340":LOCATE &22,&2:INPUT W:CLS
1120 LG=INT (V*&3E8)/&3E8
1125 N$=STR$ (INT (LG/&3E8)):N$=N$+"+"+STR$ (LG-INT (LG/&3E8)*&3E8):LOCATE &,&1:PRINT N$;
1130 USING "########.###"
1140 LOCATE &10,&1:PRINT "X=";X1:LOCATE &10,&2:PRINT "Y=";Y1:BEEP &1:WAIT:PRINT ""
1150 G=INT ((LG+W)/W)*W:CLS:WAIT &
1155 N$=STR$ (INT (G/&3E8)):N$=N$+"+"+STR$ (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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
1185 CLS:G=G+W:IF G>HY THEN GOTO 1500
1190 N$=STR$ (INT (G/&3E8)):N$=N$+"+"+STR$ (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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
1215 GOTO 1185
1500 LG=INT(HY*&3E8)/&3E8
1501 N$=STR$ (INT (LG/&3E8)):N$=N$+"+"+STR$ (LG-INT (LG/&3E8)*&3E8):LOCATE &,&1:PRINT N$;
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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
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$+"+"+STR$ (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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
1526 RETURN
1530 N$=STR$ (INT (G/&3E8)):N$=N$+"+"+STR$ (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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
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$+"+"+STR$ (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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
1615 GOTO 1585
2000 CLS:LG=INT(YH*&3E8)/&3E8
2005 N$=STR$ (INT (LG/&3E8)):N$=N$+"+"+STR$ (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 "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
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$+"+"+STR$ (G-INT (G/&3E8)*&3E8):LOCATE &,&1:PRINT N$;
2050 L=LG-G:X=L-L^5/40/R^2/LS^2:Y=O*L^3/6/R/LS
2055 X3=X1-Y*SIN K-X*COS K:Y3=Y1+Y*COS K-X*SIN K
2060 LOCATE &10,&1:PRINT "X=";X3:LOCATE &10,&2:PRINT "Y=";Y3:BEEP &1:WAIT:PRINT "":WAIT &
2065 G=G+W:GOTO 2040
3000 CLS
3100 LG=INT (HZ*&3E8)/&3E8
3125 N$=STR$ (INT (LG/&3E8)):N$=N$+"+"+STR$ (LG-INT (LG/&3E8)*&3E8):LOCATE &,&1:PRINT N$;
3130 USING "########.###"
3140 LOCATE &10,&1:PRINT "X=";X1:LOCATE &10,&2:PRINT "Y=";Y1:BEEP &1:WAIT:PRINT ""
3145 END

xxmoming

老兄，它有什么功能啊？

jlspfsb

有说明书么

zzd1977

这个程序只要输入机子,运行很直观,是中文的,一看就懂,但功能一般,我也发了个求助的贴子,那个程序不错,但我还没弄太明白

nowday

应该怎样导入机子？

dyilu

老兄，首先谢谢你，能不能对程序涉及思路具体说明一下呢?

yfy2003

最初由 nowday 发布
[B]应该怎样导入机子？ [/B]

到南方测绘网站下一个免费的传输程序就可以了！

岁末无雪

学习学习

hy54911

谢谢楼主提供的好资料。

ml886003

是，好东西，有人用过吗？给个建议如何？

qinhl96

真厉害！把中文都编译成机码!

hemeng100

怎么导入机器，教教

caif1977

用数据线

jlspfsb

可以在QB下运行么