|
|
<P>记得有个朋友在QQ里问我要这个程序，我用了几天的时间编出来，经过多次使用，验算，应该还可以吧</P><P>Lbl 5</P><P>{X,Y}</P><P>Z[1}=X:Z[2]=Y</P><P>Lbl 0</P><P>Prog "QX"</P><P>Pol((X-Z[1],(Y-Z[2]))</P><P>J-180≤0=>J=J+180:</P><P>J=J-180△</P><P>A=U-J:N=IcosA</P><P>AbsN≤0.0001=>Goto1:≠>Goto2△</P><P>A≤0=>E=E+N:≠>E=E-N△Goto0</P><P>Lbl1</P><P>E▲</P><P>I▲</P><P>Goto 5</P><P>X、Y，点的坐标</P><P>E，所求点的里程</P><P>I，点到中线的距离</P><P>如果你套用到别的曲线坐标计算程序里把E改为代替里程字符就行了</P><P>注：此程序应和本人所发的曲线坐标计算程序（工程测量中可用于更改成全曲线坐标计算的程序）同时使用</P><P>使用如有什么问题请与本人联系，QQ39703262，信箱39703262·163.手机13082847837</P><BR><BR><BR><BR><BR><BR>
[ALIGN=right][COLOR=#000066][本贴已被 wuyadong 于 2005-7-19 16:35:23 修改过][/COLOR][/ALIGN] |
|
发表于 2005-5-6 00:34:31