hucarrot 发表于 2005-4-7 19:49:00

卡西欧fx-4500程序(曲线计算)

<P class=MsoNormal style="MARGIN: 0cm 0cm 14pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1><B>卡西欧fx-4500程序</B><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt; TEXT-ALIGN: center" align=center><B><FONT face=黑体><FONT size=1>曲线计算<o:p></o:p></FONT></FONT></B>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 21pt; WORD-BREAK: break-all; TEXT-INDENT: -21pt; LINE-HEIGHT: 12pt; tab-stops: list 21.0pt"><FONT face=黑体><FONT size=1>１、源程序<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>F1 QXJS<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>L1 Lbl 1:｛KDJ｝: Lbl 4:SABZTRFQKDJ:L=K-S:Z=1=&gt;Goto 2⊿N=Z^2/R:G=90Z^2/πR^2:L=Abs(L+TN:H=Abs(90L^2/πZ^2-G<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>L2 X=Abs(L-N-(L^5-N^5)/40Z^4+(L^9-N^9)/3456Z^8-(L^13-N^13)/599040Z^12+(L^17-N^17)/175472640Z^16<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>L3 Y=Abs((L^3-N^3)/6Z^2+(L^7-N^7)/336Z^6-(L^11-N^11)/42240Z^10+(L^15-N^15)/967680Z^14<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>L4 Pol(x,y:Goto 3:Lbl 2:G=0:W=90L/πR:H=2W:V=2RsinW: Lbl 3:W=F+Qabs(W-G:H=F+QH:X=A+VcosW+Dcos(H+J:Y=B+CsinW+Dsin(H+J:<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>L5 Fix 5:X◢Y◢Norm:Goto 1<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT face=黑体><FONT size=1>        <o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 21pt; WORD-BREAK: break-all; TEXT-INDENT: -21pt; LINE-HEIGHT: 12pt; tab-stops: list 21.0pt"><FONT size=1><FONT face=新宋体>２、说明<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>（1）、本程序可计算圆曲线或缓和曲线上的任意一点坐标及其左偏右偏任意距离的坐标， 这是一个工程测量中很实用的程序.在计算之前要把曲线要素计算出再进行所需要的里程点的坐标及边桩坐标.<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>3、程序代号注释<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>S—曲线起点的里程；<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=1><FONT face=新宋体>A、B—曲线起始点坐标x,y；<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>Z=√(LR)—缓和曲线参数;(要求圆曲线时Z=1)；<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>R—求缓和曲线时R=9.9999999^19；求圆曲线时R为圆曲线半径<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>F—起始点的切线方位角；<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>Q—曲线的偏转方向,左偏 Q=-1,右偏； Q=1<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>K—所求点的里程；<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>K—偏离距离；<o:p></o:p></FONT></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; WORD-BREAK: break-all; LINE-HEIGHT: 12pt"><FONT size=1><FONT face=新宋体>J—右偏角,右偏时J=90度,左偏时J=270度,线跑中心时J=0；<o:p></o:p></FONT></FONT>

<FONT face=黑体 size=1><FONT color=#ff0000>大家支持一下.这是我的第一偏稿子</FONT></FONT>

hucarrot 发表于 2005-4-7 19:50:00

大家有没有更好的交流一下.

混沌力量 发表于 2005-6-10 09:26:00

我没有这种计算器,我有FX-4800I不过我不会编程序

yshf 发表于 2005-6-17 18:01:00

请看“测量空间”的“函数”网页中的“<FONT size=2>曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序</FONT>”。


http://www.celiang.net/celiang/article_view.asp

木棉树 发表于 2006-4-6 15:35:00

<P>百度搜到这里了，谢谢</P>

canghuai 发表于 2006-4-8 10:16:00

<P>我才买了这么个机子</P>

xueshangfei 发表于 2008-12-8 21:43:00

<p>我是着用了一下，怎么算到倒数第二步，突然出现个C?需要输入数值，请问楼主C代表什么啊？</p><p>计算缓和曲线时，怎么只能计算出曲线长度啊？不能往下算啊！</p>
页: [1]
查看完整版本: 卡西欧fx-4500程序(曲线计算)