CASIO fx - 4850 最豪华的三坐标计算程序

tuzhyu

本程序可同时录入两路的全线原始平曲线要素和坚曲线要素，计算任意桩号点中桩，法向：斜向桩三个坐标值，并且有多断链处理功能．由于本程序使用阵列变量编写，所以只要你的４８５０内存足够．不管你线路有多少交点，都能一次录入（并且只需录入一次）永久使用，不用每次输入ＪＤ参数．缓和曲线可以输入不对称值．<br>以下是主程序，全部程序见附件．<br>技术支持QQ:285507730<br><br>本次更新:<br>1、加入的断链处理功能<br>2、删除开挖放样两个模块<br>主程序 文件名:MAIL<br>Lbl A<br>rad:Norm<br>A=Z[1]:{A}:A"ZK1 YK-1 IN0"<br>A=0=&gt; Prog "IN0":Goto A⊿<br>Z[1]=A<br>A=Z[11]:{A}:A"JJ":Z[11]=A<br>Lbl 1<br>Norm<br>G=Z[9]+Z[14]:{G}:G"DK"<br>Prog "DL"<br>G=-1=&gt;Goto 2⊿<br>A=Z[10]:{A}:A"JL":Z[10]=A<br>G≠Z[9]=&gt;Prog "CORE"⊿<br>G&lt;0=&gt;Goto 2⊿<br>Rec(Z[10],W+π/2+Z[11]π/180)<br>Fix 3<br>"X,Y,Z="<br>X+J:Pause 0<br>Y+I:Pause 0<br>Z◢<br>Goto 1<br>Lbl 2<br>Norm:Deg<br>"EXIT"<br>A=1:{A}:A"YES 1 NO -1"<br>A&lt;0 =&gt;Goto A⊿<br>&nbsp;[DOWNLOAD][uploadadd]/forum/2006122234250.rar[/DOWNLOAD]

[ALIGN=right][COLOR=#000066][本贴已被 Wenjian_Cao 于 2006-12-26 19:07:14 修改过][/COLOR][/ALIGN]