[弹指神通]：用于CASIO4X00计算器的坐标反算程序

youwei0114

【AZIMUTH】I=0：J=0LbI0NormDeg{DGXY}D"XA"G"XB"X"XB"Y"YB"Pol(X-D,Y-G)J<0=>J=J+360△Fix6J"AZIMUTH A-B"=IntJ+.01Int(60FracJ)+.006Frac(60FracJ)▲Fix3I"H.DIST="▲Goto0特点：界面友好、简单易用、输出方便注意：本程序在CASIO4800上调试运行通过。如果是在4500上运行请将源程序中的I，J分别用V，W替代即可。运行后界面如下：输入项目XA？————————————请输入点A的X坐标，按EXE键输入下一个量，下同。YA？————————————请输入点A的Y坐标。XB？————————————请输入点B的X坐标。YB？————————————请输入点B的Y坐标。显示项目AZIMUTH A-B=###.######————————————显示点A到点B的方位角（小数点前为度，小数点后第一二位表示分，三四五六位表示为##.##秒。如12.523356即表示为12°52′33.56″.如果你将J"AZIMUTH A-B"=IntJ+.01Int(60FracJ)+.006Frac(60FracJ)改为J"AZIMUTH A-B="的话则必须在输出结果后按"°′″"键将其转换为度分秒.H.DIST=###.###——————————————显示AB两点的平距值（三位小数）。再按EXE就转入下一个计算循环。

自由的鱼

看不大明白，楼主能整理为程序行形式吗？

laixc66

我这里有，谁要的话留MSN！

TZEN

谁能够给一个由坐标反算对应公路中桩桩号和距中距离的算法！！！

netbee

个人认为，方位角结果不宜进行进制转换。
因为这样一来不方便坐标正算程序与反算程序的互用。而且当其他人用着你的计算器，而你又没有告诉他的话，嘿嘿。。。。
[php]
极坐标换算
1)        坐标正算（极坐标－＞直角坐标）
假设已知点P1（X1，Y1），点P2与P1关系：距离＝S，方位角＝A则：
X2=X1+S·cosA
Y2=Y1+S·sinA
CASIO fx4500P/4800P程序：
Filename：”ZBZS－XY”
L1:A”X1”B”Y1” ――――L1：为行号标识不能输入，以下均同。
L2:Rec(S,T)
L3:Fixm　――――――★此句Fx4800P专用，fx4500p不用输入。
L4:C”X2”=A+I◢  ――――――★fx4500p将I改为V输入。
L5:D”Y2”=B+J◢  ――――――★fx4500p将J改为W输入。
2)        坐标反算（直角坐标－＞极坐标）
假设已知点P1（X1，Y1），P2（X2，Y2）则距离S，方位角A为：
S= √((X2－X1)^2+(Y2－Y1)^2)
A=180°－90°·Sgn(Y2－Y1)－tan-1((X2－X1)/(Y2－Y1))
其中：sgn（x）为符号函数，当x＞0  则  sgn（x）＝1；
当x＝0  则 sgn（x）＝0；
当x＜0  则 sgn（x）＝－1。
CASIO fx4500P/4800P程序：
Filename：”ZBFS－S”
L1:A”X1”B”Y1”C”X2”D”Y2”
L2:Pol((C-A),(D-B))
L3:Fixm　――――――★此句Fx4800P专用，fx4500p不用输入。
L4:S”S”=I◢  ――――――★fx4500p将I改为V输入。
L5:J<0=>J=J+360◣  ――――――★fx4500p将J改为W输入。
L6:T＝J◢  ――――――★fx4500p将J改为W输入。
[/php]

measuresoft

到测量天地的网站看一下吧。
有不少这样的程序，字节少速度快。
还有其它各种类型的程序，
测量人应当看一下的至少我是这样认为的！

zyx-zbb

你的程序能否直接算出桩号和偏距

whiteon

是的我也是这样认为,还是写清楚,用度分秒为好

yghlz

用度分秒为好

zhang92222

看看总是有所收获

qiu_moli

这对工地上的哥们最实用不过了

369003269

这个对我有用，谢谢netbee 斑竹和楼主！！！！！！！！！
开心！

lxb99

这样的思路是对的，但我认为输出显示结果部分还可进一步改进，使得显示结果比如X，Y或者是方位角和距离同时出现，不需要按两下EXE健。有意的可同我连系相互交流学习。

myj1j2j3j4j5

从编程角度来讲，根据座标反算桩号与至中桩距离就是数学建模，
直线段和圆曲线是比较容易的，但缓和曲线反算起来可是解高次方程式，一般超过五次的数学方程式不用微积分谁有本事来试一试？
但是采用在AUTOCAD里用AUTOLISP、VISUALLISP、VBA或OBJECTARX可以对AUTOCAD进行二次开发，编制一段程序内嵌到AUTOCAD是可以实现的，这需要一定功力的。有兴趣者可以与我交流。MYJ1J2J3J4J5@YAHOO.COM.CN

linshaotsing

楼主能不能帮我提供坐标正算公式!谢谢!1加急!4800的!