利用复合SIMPSON公式计算曲线元坐标程序(fx-4850p)

概要：N：P=TNH+1÷R：S=9θH÷π：W=E+（P+1÷R）NS:W<θ=>W=W+36θ：≠>W=W⊿”FWI=” W→DMS◢G=1： “X=”： X =C+H÷6×（cosE+cosW+4×∑（cos（E+（（G+θ.5）HT+2÷R）（G+θ.5）S），G，θ，（N－1））+2∑（cos（E+（THG+2÷R）GS），G，1，（N－1）））+Icos(W+F)：Pause 0：“Y=”：Y =D+H÷6×（sinE+sinW+4×∑（sin（E+（（G+θ.5）HT+2÷R）（G+θ.5）S，G，θ，（N－1））+2×∑（sin（E+（THG+2÷R）GS，G，1,（N－1）））+Isin(W+F)◢Goto 1三、使用说明： QD—起点里程； ZD—终点里程； Rθ、RN—起、终点半径（左负右正） Xθ、Yθ—起点坐标； Fθ—起点方位角； K=—待求点里程； N—可取4～12，视线型而定； ANG—斜交右交角（正交时输入90）； X、Y—待求点中桩坐标 DP—边桩距离（左负右正，计算中桩时DP=0即可）； XB、YB—边桩坐标。

利用复合SIMPSON公式计算曲线元坐标程序(fx-4850p),http://www.gczl8.com
利用复合SIMPSON公式计算曲线元坐标程序(fx-4850p) 利用复合SIMPSON公式(积分法）计算曲线元坐标程序(fx-4850p)

一、程序原理：利用复合SIMPSON法则的插值近似公式和CASIO fx-4850P内置的求和计算功能（∑）编制。

二、程序主体：
A“QD”B“ZD”R“Rθ”V“RN”C“Xθ”D“Yθ”E“Fθ”
Lb1 1：{LIF}：L“K=”：I“DP”：F“ANG”：T=（1÷V－1÷R）÷（B－A）：H=（L－A）÷N：P=TNH+1÷R：S=9θH÷π：W=E+（P+1÷R）NS:W<θ=>W=W+36θ：≠>W=W⊿”FWI=” W→DMS◢
G=1： “X=”： X =C+H÷6×（cosE+cosW+4×∑（cos（E+（（G+θ.5）HT+2÷R）（G+θ.5）S），G，θ，（N－1））+2∑（cos（E+（THG+2÷R）GS），G，1，（N－1）））+Icos(W+F)：Pause 0：“Y=”：Y =D+H÷6×（sinE+sinW+4×∑（sin（E+（（G+θ.5）HT+2÷R）（G+θ.5）S，G，θ，（N－1））+2×∑（sin（E+（THG+2÷R）GS，G，1,（N－1）））+Isin(W+F)◢
Goto 1

三、使用说明：
    QD—起点里程；
   ZD—终点里程；
   Rθ、RN—起、终点半径（左负右正）
   Xθ、Yθ—起点坐标；
   Fθ—起点方位角；
   K=—待求点里程；
   N—可取4～12，视线型而定；
   ANG—斜交右交角（正交时输入90）；
   X、Y—待求点中桩坐标
   DP—边桩距离（左负右正，计算中桩时DP=0即可）；
   XB、YB—边桩坐标。