1工程施工放样项目模型
1.1工程施工放样题目模型已知某道路曲线第一切线上控制点ZD1(XZD1，YZD1)和JD1(XJD1，YJD1)，该曲线设计半径R=1000m，缓和曲线长0l=100m，JD1里程为，转向角α。请按细则要求使用非程序型函数计算器计算道路曲线主点坐标ZH（XZH，YZH）、HY（XHY，YHY）、QZ（XQZ，YQZ）及第一缓和曲线和圆曲线上中桩点i1i2K、K的坐标（iX，iY），共计算5个点。然后，根据现场已知测站点O、定向点A、定向检核点B，使用全站仪进行第一缓和曲线和圆曲线上中桩点放样i1i2K、K点。控制点和待放样曲线之间关系如图1所示。上交成果：工程施工放样成果资料，其中包含曲线常数、曲线要素、主点里程及曲线中桩坐标的计算成果。
1.2工程施工放样数学模型
1.2.1曲线常数：（1）缓和曲线倾角：πβ180200=×Rl（2）圆曲线内移值：（3）切线外移量：23002240Rllm
1.2.2曲线要素：（1）切线长：（2）曲线长度：（3）外矢距：E=R+PR2()secα（4）切曲差：D=2TL
1.2.3主点里程：（1）ZH点里程：（2）HY点里程：（3）QZ点里程：（4）YH点里程：（5）HZ点里程：检核计算：
1.2.4独立坐标计算：（1）在坐标系x′o′y′中，缓和曲线ZH-HY段（i1K）独立坐标计算：（2）计算ZH-HY缓和曲线细部点：（3）计算ZH-HY缓和曲线HY点(直接将上式0lli代为0lli代为)：（4）在坐标系x′o′y′中，圆曲线HY-YH段任意一点独立坐标计算：=+=+(1)siniiiiyPRCosxmRφφ1.2.5主点及若干曲线中桩点坐标：（1）（指ZH到JD的坐标方位角）（2）（右转用-，左转为+）（3）（右转用-，左转为+）（4）三个主点坐标如下：ZH点坐标：HZ点坐标：QZ点坐标：（5）曲线中桩点坐标按线路右转所得公式如下(注意若为线路左转则以下几个公式用iiy代替y)：
2工程施工放样项目VisualBasic程序设计
2.1程序界面
2.1.1主程序界面。主程序界面设计如图2所示，通过主界面，可以输入所有的已知数据，并选择偏角的类型。图2主程序界面
2.1.2结果显示界面。计算结果通过一个文本框的形式，将所有需要的结果及一些关键的中间结果分栏显示，如图3所示：图3结果显示界面
2.2核心代码
2.2.1计算曲线常数和曲线要素：IfR<>0ThenJD=Ls*180/(2*R*PI)p=Ls^2/(24*R)-Ls^4/(2688*R^3)m=Ls/2-Ls^3/(240*R^2)T=(R+p)*Tan(PJ/2)+mL=PJ*R+LsE=(R+p)*1/Cos(PJ/2)-Rq=2*T-LElseMsgBox"必须输入曲线半径R！"Text12.SetFocusEndIf
2.2.2主点里程及独立坐标计算：k1=k1*1000+k11k2=k2*1000+k22k3=k3*1000+k33kZH=k1-TkkZH=kZH\1000kkkZH=kZH-kkZH*1000kkkZH=Format(kkkZH，“###.###”)Str1="ZH点里程："&"K"&kkZH&"+"&kkkZHStr2="HY点里程："&"K"&kkHY&"+"&kkkHYStr3="QZ点里程："&"K"&kkQZ&"+"&kkkQZStr4="YH点里程："&"K"&kkYH&"+"&kkkYHStr5="HZ点里程："&"K"&kkHZ&"+"&kkkHZLi=k2-kZHLi1=k3-kZHX11=Li-(Li^5)/(40*R^2*Ls^2)Y11=(Li^3)/(6*R*Ls)X12=m+R*Sin((Li1-0.5*Ls)/R)Y12=p+R*(1-Cos((Li1-0.5*Ls)/R))Xhy1=m+R*Sin(JD*PI/180)Yhy1=p+R*(1-Cos(JD*PI/180))Ajd=((Li1-0.5*Ls)/R)*180/PI
2.2.3坐标计算：Xzh=X2+T*Cos(A)Yzh=Y2+T*Sin(A)Xhy=Xzh-Xhy1*Cos(A)+K*Yhy1*Sin(A)Yhy=Yzh-Xhy1*Sin(A)-K*Yhy1*Cos(A)Xqz=X2+E*Cos(Ajz)Yqz=Y2+E*Sin(Ajz)X111=Xzh-X11*Cos(A)+K*Y11*Sin(A)Y111=Yzh-X11*Sin(A)-K*Y11*Cos(A)X112=Xzh-X12*Cos(A)+K*Y12*Sin(A)Y112=Yzh-X12*Sin(A)-K*Y12*Cos(A)
2.2.4结果输出：OpenApp.Path&“\T1.txt”ForInputAs#2DoWhileNotEOF(2)'循环至文件尾。LineInput#2，TextLine'读入一行数据并将其赋予某变量。Form2.Text1.Text=Form2.Text1.Text&Chr(13)+Chr(10)&TextLineLoopClose#2Form2.Show
3结语
将本次国赛工程施工放样的计算过程采用VisualBasic程序的方式自动进行，减少了教师的工作量，使教师对学生计算结果的评判更加迅速、高效、准确。而且对一些关键的中间环节的计算结果予以显示，有利于学生检查计算过程中容易出错的环节，并对出错的环节反复训练，达到较好的训练效果。
作者：李开伟 单位：四川水利职业技术学院
相关专题：法学论文写作 pdf 北京警察学院
