1、坐标要已知才能放样呀，如果要计算坐标，可以用 CAsio4800 编程计算，只要有公式就可以自己编入计算器运用，当然你可直接上网下载如果是公路的我整理的你可以参考CASIO4800 程序组1、极坐标法放样Prog：FYLb1 0：A“X0”：B“Y0” ：I=0：J=0 ：Pol （C“XA”-A ），（D“YA”-B ）：JG“FW- OA”=J+360L“L0”=IGoto 1： G“FW O-A”=JL“L0”=ILb1 1：EQ：E“Xi”：Q“Yi”： Pol（E-A ），（Q-B ）：JJ=J+360：Goto 2： Goto 2Lb1 2： F“FW-OB”=JL=I0=F-G：
2、OO“BJ”=O+360Goto 3： O “BJ” Lb1 3：P=O-180Goto 1注：a、输入：（X0、Y0）、（XA、YA ）测站点坐标、后视点坐标Xi、Yi 放样点坐标b、输出：FW-OA测站至后视边方位角、L0后视边长FW-OB测站至放样点方位角、L放样边长BJ后视边置零，放样点顺时针拨角P偏角（+ 为右偏、-为左偏）本值用于计算路线偏角2、公路竖曲线高程计算程序Prog:SQXLbl A:A“+（-）i1”:B“+（-）i2” W=（B-A）100 ：R ：T=Abs（RW）2： L=T*2：E=T2 （2R）：K“JD K+”：G“JD H”：C=K-T ：D=K+T ：L
3、bl 0： J“Ki+”： JGoto 1： Goto 2Lb1 1：“Out QX1”：H=G-(K-J)A100Goto 5Lb1 2：JD=Goto 4 WF=-1W0=F=1JK=Goto 3H=G-（K-J）A100+F(J-C)2（2R ）Goto 5Lb1 3：H=G+（J-K）B100+F（D-J）2（2R）Goto 5Lb1 4：“OUT QX2”：H=G+（J-K）B100Goto 5Lb1 5：M“DHi”：H=H+M注：a、公式：L=|R(i2-i1)| 、 T=L2、E=T2（2R）、h=l2(2R)b、功能：已知前后坡度% 、竖曲线半径，计算各桩高程。c、输入：i1
4、、i2 前、后坡度%（上坡+、下坡- ）JD K+、 JD H、R变坡点桩号、高程、竖曲线半径Ki+计算桩号DHi计算点与设计线高差（高+、低-）d、输出：H 待计算点高程3、直线坐标计算Prog：ZXLb1 0：M“K0”：A“X1” ：B“Y1”：C“X2” ：D“Y2”：I=0 ：J=0：Pol（C-A），（D-B）： L=IJF”FW”=360+JGoto 1：F”FW”=JLb1 1：KZQ:K“Ki”：Z“Lb”：Q=90：Q“ANG”：L=K-M：Rec（L，F）：X=A+I：Y=B+J：Rec（Z，F+Q）：O=I：P=J：X=X+OY=Y+P Goto 1注：a、公式：X=X
5、0+L*cos(Fw)、Y=Y0+L*sin(Fw)b、功能：已知直线起终点坐标，计算中间桩中边桩坐标c、输入： K0、（X1 、Y1）、（ X2、Y2）起点桩号、起点坐标、终点坐标Ki、Lb、Ang 待求桩号、边桩距（左 -、右+）、边桩与中线右夹角（ 90）d、输出：L、FW直线长度、起点至终点方位角X、Y计算点坐标a 多边形面积计算（一）Prog：AreaLb1 0：S=0：L=0：E“X0” ： F“Y0”：A=E ：B=FLb1 1：CD：C“Xi： XiX0，Yi=Y0 END”：D“Yi”：M=（C-E）2+（D-F）2）：S=S+（AD-CB）：L=L+（C-A）2+（D-B
6、）2）：A=C：B=D：S=0Goto 1：Lb1 3：M 0= Goto 1：S“Area”=Abs S2L注：a、公式：Area =（ XiYi+1-Xi+1Yi）2b、功能：已知多边形各转点坐标，计算多边形面积。c、输入：X0 、Y0 起点坐标Xi、Yi各点坐标（按顺序输入、最后要闭合即最后一点要输入起点坐标）d、输出：Area面积L周长4、对称标准曲线中边桩坐标计算Prog：QXLb1 A: M“JDK+”:A“PJ=R（+），L（- ）”:R：W“LS”: A0=G=1:Goto E: G=-1:Lb1 E:Defm 10:A=Abs A:B=90WR：P=W2（6R） -W4（33
7、6R3）-R（1-cosB）:Q=W-W3(40R2)-RsinB：T=（R+P ）tan （A2）+Q： L=RA180+W:E=(R+P)cos(A2)-R:N=M-T:Z5=N+W:Z=N+L2:C=N+L-W:D=N+L:A=AG:U:U“ZD-2,XY-1”=2=TELN“ZH”Z5“HY”Z“QZ”C“YH”D“HZ”Goto A： Goto B Lbl B：F“FW”：V“JD-X” ：H“JD-Y”：I=0 ：J=0 ：Rec（T，F+180 ）：Z1“ZH X”=I+V：Z2“ZH Y”=J+H：Rec（T，F+A）：Z3“HZ X”=I+V：Z4“HZ Y”=J+H：L=0
8、Lbl 0： E=90：KSE：K“JS K+”：S“LB”：E“ANG”：S=0=U=1：Goto C：U=S（Abs S）Lbl C：S=Abs S：W=0= Goto D：K Goto 1：K Goto 2：K Goto 4： Goto 5Lbl D：KGoto 1：KGoto 3： Goto 5Lbl 1： Rec（M-K，F+180）：X=V+I：Y=J+H ：Rec （S，F+180-（180-E）U ）：X“Xi”=X+IY“Yi”=Y+JS=SU： Goto 7Lbl 2： Z=K-N：O=90Z2RW：X=Z-Z540R2W2+Z93456R4W4：Z=Z36RW-Z7336
9、R3W3+Z1142240R5W5：Lbl 6： Rec（X，F）：X=Z1+I：Y=Z2+J：Rec（Z， F+90G）：X=X+I：Y=Y+J：Rec（S ，F+OG+EU）：X“Xi”=X+IY“Yi”=Y+JS=SU ：Goto 7Lbl 3： Z=K-Z5：O= （K-N-W2）*180R ：X=Q+Rsin（B+180ZR ）：Goto 6Lbl 4： Z=D-K：O=90Z2RW：X=Z-Z540R2W2+Z93456R4W4：Z=Z36RW-Z7336R3W3+Z1142240R5W5：Rec（X，F+A+180）：X=Z3+I：Y=Z4+J：Rec（Z，F+A+180-90G
10、）：X=X+I：Y=Y+J：Rec（S ，F+A+180-OG- （180-E）U）：X“Xi”=X+IY“Yi”=Y+JS=SU：Goto 7Lbl 5： Rec（K-D+T），（F+A）：X=V+I：Y=H+J：Rec（S，F+A+EU）：X“Xi”=X+IY“Yi“=Y+J S=SU： Goto 7Lbl 7： Goto 0注：输入：JDK+、PJ、R、LS、交点桩号、路线偏角（右+、左-）、半径、缓和曲线长“ZD-2,XY-1”要显示主点要素输入 2，否则进入坐标计算FW、（ JD X、 JD Y）起始边方位角（即 ZHJD 方位角）、交点坐标JS K+、LB 、Ang待计算桩号、边桩
11、距（右+、左- ）、边桩与路中线右夹角（默认 90度）输出：T、E、L、ZH 、HY、YH、HZ 、曲线要素、 Xi,Yi待求点坐标5、公路任何曲线通用中边桩坐标正反算（复化辛卜生公式也称积木法）Prog：HQXDefm 4V“V=1=XY： 2=Ki”Lbl 0： KLWLbl 4： Q“one=0：1、2” =0= Goto 1Q=1=Prog“ZD”（线元要素数据文件名） Q=3=Prog“要素表文件名” （注：本句是为了全线及多条线路计算用，如仅单个可省略本句）Lbl 1： A“K1“：B“K2“：C“FW0“：D“R1“ ：E“R2“：F“X0“ ：G“Y0“D0=I=1D：=I=D
12、E0=J=1E：=J=EAbsD+AbsE=0=M=2：=M=16 V=2=L=0：W=90 K“Ki” ：L“L-BZ”：W“ANG“：N=0：Z1=0：Z2=0：Z3=0：Z4=0 进入坐标迭代计算Lbl 2： N=N+1：H=2(K-A)M：R=NH2+A：R=C+180(I+(J-I)2(B-A)(R-A)(R-A)：Int(N2)=N2=Z1=Z1+cosR：Z2=Z2+sinR ：=Z3=Z3+cosR：Z4=Z4+ sinRN=M=Goto 3：Goto 2Lbl 3：X=F+H6(cosC+4Z3+2Z1-cosR)+Lcos(R+W)：Y=G+H6(sinC+4Z4+2Z2-
13、sinR)+Lsin(R+W)：V=2=Goto 6X“Xi=“Y“Yi=“R“FW“=R-360Intg(R360) Q=0=KLW：Goto 1 ： Goto 0Lbl 6： Pol(T“XF“-X,U“YF“-Y) 进入桩号求算O=Icos(J-R)：AbsO0.0001=O“DL“K=K+O O“LP“=Isin(J-R)TU：Goto 6：=K=K+O ：L=0：Goto 4线元要素数据文件格式：K起点桩号= A“K1“=？：B“K2“=？：C“FW0“=？：D“R1“=？：E“R2“=？：F“X0“=？：G“Y0“= ？：K B=A=B：B=？（下曲线要素）注：a、功能：利用公路通
14、用复化辛卜生积分公式进行中边桩坐标计算及已知坐标反算桩号。b、输入：V=1=XY： 2=Ki 分别进入坐标计算、桩号反算Q“one=0：0、2”要素直接辒入按 0，否则戉嵌套对应文仲要素表计算，嵌套几个文件自己需要定。K1、K2 、FW0、R1 、 R2-曲线起点、终点里程、曲线起点方位角、曲线起点、终点半径 (左- 、右+ ，0 为直线)X0、Y0- 曲线起点坐标Ki-曲线待求点里程BL-求炩左右偏距(左-右+) ANG- -求点的右斜交角XF、YF-求桩号的点坐标（反算程序）输出：X、Y-,- 曲线求得坐怇FW-待求点的切线方位角DL、K+O、LP 分别为桩号误差、求得桩号、左右偏距(左-
15、右+)（反算程序）当曲线的设计半径较小时，为保证点位计算精度，M(即程序中 n 的 2 倍)的取值可适当的大些。M 为偶数，直线时 M=2 即可，经计算 M=16 即可满足半径为 60 的小半径曲线精度。6、 a 多边形面积计算（一）Prog：AreaLb1 0：S=0：L=0：E“X0” ： F“Y0”：A=E ：B=FLb1 1：CD：C“Xi： XiX0，Yi=Y0 END”：D“Yi”：M=（C-E）2+（D-F）2）：S=S+（AD-CB）：L=L+（C-A）2+（D-B ）2）：A=C：B=D：S=0Goto 1：Lb1 3：M 0= Goto 1：S“Area”=Abs S2L注
16、：a、公式：Area =（ XiYi+1-Xi+1Yi）2b、功能：已知多边形各转点坐标，计算多边形面积。c、输入：X0 、Y0 起点坐标Xi、Yi各点坐标（按顺序输入、最后要闭合即最后一点要输入起点坐标）d、输出：Area面积L周长b、多边形面积计算（二）Prog：AreaLb1 0：S=0：L=0： A“X0”： B“Y0”：C“X1” ：D“Y1”: L=（C-A ）2+（D-B）2）Lb1 1：EF：E“Xi：XiX0Yi=Y0 END”: F“Yi”：L=L+（E-C）2+（F-D ）2）:M=（E-A ）2+（F-B）2）:S=S+(C(F-B)+E(B-D)+A(D-F)2：C=
17、E:D=F : S=0Goto 1Lb1 2：M 0= Goto 1：S“Area”=Abs S L注：a、公式：Area =（Xi（Yi+1-Y0）+ Xi+1（Y0- Yi）+ X0（Yi- Yi+1）2b、功能：已知多边形各转点坐标，计算多边形面积。c、输入：（X0、Y0 ）、（X1 、Y1 ）起始边坐标Xi、Yi各点坐标（按顺序输入、最后要闭合即最后一点要输入起点坐标）d、输出：Area面积L周长7、道路土方计算a、土方（棱台法）Prog：TFaLb1 0：T=0 ： W=0：F“K0+”：A“AT0” ：B“AW0”Lb1 1：CDE：E“Ki=-1end”：E=-1Goto 6：
18、C：“ATi”：D“AWi”：L=E-FLb1 2：CA ： Goto 3： M=CA： Goto 4Lb1 3：M=AC ： Goto 4Lb1 4：O=(A+C)L(1+M(1+M) 3：DBM=BD ： Goto 5： M=DBLb1 5：P=(B+D)L(1+M(1+M) 3：T=T+O：W=W+P：A=C：B=D ：F=E ： Goto 1Lb1 6：T“TF” W“WF” “end”注：a、公式：V =（A1+A2 ）L（1+m(1+m)）3m=A1A2(其中 A1A2)b、功能：已知路线各桩填表挖断面积，计算路线填挖量。c、输入：K0+、AT0 ： AW0起点桩号、填方面积、挖方
19、面积Ki、ATi、AWi 各桩号、填方面积、挖方面积（结束运行计算结果 Ki 输入1）d、输出：TF、WF填方、挖方体积b、土方（平均断面法）Prog：TFbLb1 0：T=0 ： W=0：F“K0+”：A“AT0” ：B“AW0”Lb1 1：CDE：E“Ki=-1end”：E=-1Goto 3： C：“ATi”：D“AWi”：L=E-FLb1 2：T=T+（ C+A）L2： W=W+（D+B）L2：A=C：B=D：F=E： Goto 1Lb1 3：T“TF” W“WF” “end”注：a、公式：V =（A1+A2 ）L2b、功能：已知路线各桩填挖断面积，计算路线填挖量。c、输入：K0+、AT0 ： AW0起点桩号、填方面积、挖方面积Ki、ATi、AWi 各桩号、填方面积、挖方面积（结束运行计算结果 Ki 输入1）d、输出：TF、WF填方、挖方体积
