182 楼：lbs326 这个程序都说好用，我先试着用一下再说。 183 楼：Yangyb_001 yshy老师 请给我也发一份“Gauss-Legendre”到.yangyb_001@yahoo.com中，谢谢 初学者 184 楼：Yangyb_001 回 评：+3 分 回 回 4800里输入这程序，调试了好几遍还是不行呀，有哪位高手可以把调试好的上传来学习下。十分感谢,我邮箱yangyb_001@yahoo.com 185 楼：gcg315 请问楼主，能出示你的QQ号吗，以方便联系！ 186 楼：gcg315 yshy老师，您好！请给我发一份“Gauss-Legendre”到liuyouchun88@126.com,谢谢！ 187 楼：gcg315 yshy老师，您好！请给我发一份“Gauss-Legendre”到lightspring315@yahoo.com.cn,谢谢！ 188 楼：名字还没想?/font> 各位高手,谁有调试了的4800的程序,发一份给我.在下不胜感激. 我的邮箱88868498@sina.com 谢谢 189 楼：Yangyb_001 各位老师,谁有调试了的4800的程序,发一份给我.在下不胜感激.email:yangyb_001@yahoo.com 190 楼：Yangyb_001 各位老师,谁有调试了的4800的程序,发一份给我.在下不胜感激.email:yangyb_001@yahoo.com.cn 191 楼：测量新手 楼主：我有一套4850放样程序，但不完整，想请您帮忙改一下，可以吗？ 我还有两套4800程序想改成4850程序，但不知道怎么改，请您指点一下。 联系HDF13896667799@163.com QQ:310141891 回 回 回 回 评：+10 分 回 回 回 192 楼：hyz2008520 yshy老师: 回 我是新手,能给我发一个能全线放样的程序吗,还有不对称缓和曲线也行的,谢谢了.我的邮箱是fang570520@163.com 193 楼：hyz2008520 YSHY老师 U.W.G.Q.E.C.D在正算子程序运行时的符号代表什么啊,还有 反算的G.V,麻烦说明一下,我是初学者什么都不会,你可不要笑我啊 194 楼：ahui9225 yshy老师，hanniu_1973老师.您好！请给我发一份“Gauss-Legendre”到ahui9225@sina.com,谢谢！ 195 楼：chentaotsc 你好 hanniu_1973老师 我已用你的程序进行了输入运行，正算全部通过，但是反算无论如何就是不能正确算出，开始的直线部份能算出，但是后几段曲线反算桩号确实不能通过，我反复对了好几遍，我们这里的同事也一起进行输入过，就是不能进行反算。 还有请老师发一份Gauss-Legendre的公式到我的邮箱好吗？ 我的邮箱是yunfeiyangtsc@sina.com 如哪位知道的朋友能发一份感激不尽：） 如哪位反算在4800上通过的能介绍一下吗？ 不胜感激~！！！ 196 楼：溜洞 你好 hanniu_1973老师 请问在存在断链和坐标换代时怎么处理数据的选择啊 197 楼：测量新手 回 评：+8 分 回 回 回 回 第一次看到有这个论坛，感觉很兴奋、感兴趣，有大开眼界的感觉。我是个测量新手刚从学校毕业出来不久，对于4800编程我不懂。但我很想学它。 198 楼：小白 老师你好： 帮个忙吧，多谢了！ 这个导线平差只能计算10未知点以内的导线点数，我想计算10个以上的导线的点数。怎样来修改成序才行啊，我最初按程序说明去修改（本程序是按10个未知点来设计的，若未知点数超过10个时，按“4倍点数”来改回 变源程序中的“Defm 40）。可是不能正确计算，出现死循环啊。望个位老师来给于修改。多谢了!!!!!!!!!!!我的邮箱：baiyueming123@163.com
注：（摘自）广东交通学院精品课堂。
BI DAO XIAN（闭导线）
1．用途：该程序是“闭合导线平差”的计算程序。
2．程序清单：
Defm 40：X“X0”：Y“Y0”：F“A0”：N“UNKNOWN POINT”：N=N+1↙
I=0：E=0：C=0：Lbl 0 ↙
I=I+1：{L，D}：Z[2I-1]=L：Z[2I]=D：E=E+L：C=C+D：I
I+I+1◢ F=F+Z[2I-1]：F 180 F=F+180： F=F-180 Δ F 360 F+F-360 ΔZ[2N+2I-1]“A”=F+（I-1）B◢ I
I+I+1：Z[2I-1]=Z[2I]cosZ[2N+2I-1]：G=G+Z[2I-1]：Z[2N+2I]=Z[2I]sin Z[2N+2I-1]：H=H+Z[2N+2I]：I I=0：Lbl 3 ↙
I+I+1◢ Z[2I-1]=Z[2I-1]+U Z[2I]：Z[2N+2I]=Z[2N+2I]+V Z[2I]：X=X+ Z[2I-1] ◢ Y=Y+ Z[2N+2I] ◢ I
3．程序说明：
X0，Y0，A0——已知的起始点的纵、横坐标及起始边的坐标方位角。
UNKNOWN POINT——待求未知点的个数。
L，D——观测的导线各左转角及平距。 FW，R，FR——导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。 I，A——各条导线边序号及其坐标方位角。 FX，FY——坐标增量ΔX、ΔY的闭合差。 F，K——导线全长闭合差、导线全长相对闭合差。 I，X，Y——各导线点的序号及其纵横坐标。 注： （1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“4倍点数”来改变源程序中的“Defm 40”。 199 楼：长江不肖生 我是一新手,程序中第一行中的1,sz和2,xy这两点都是逗号吗? 谢谢 200 楼：长江不肖生 好 201 楼：feitiansos 老大，给我发一份 feitianyanting@163.com 小弟不胜感激！！！ 202 楼：wx2wxy 回 回 回 评：+5 分 回 这个我不知道会怎么样!能不能给我一份关于FX-4500PA的篇写程式正反算的啊!有给我的话请发wx2wxy@163.com .那样小弟我不胜感激啊! 203 楼：wanghuachao hanniu_1973 师傅： 你好！我是一个测量爱好者！看了你的程序！我十分佩服你对测量的研究那么的深奥！你是 我的 偶像！最后我有一回 个请求！能否把你的测量程序发给我一些呀！我的邮箱！wanghuachao@sohu.com.本人表示感谢！ 204 楼：lovethegod yshy 请给我也发一份“Gauss-Legendre”，在这里先谢谢了！ 邮箱地址：wween@163.com 205 楼：lovethegod 回 评：+10 分 回 我对编程可以说还不入门，我在输入这个程序的时候可能很多地方没有理解对作者的本意，不过我真的很想使用这个程序，哪们大哥有用4800P调试好过的吗？能否发一份给我，真的感谢了！ 邮箱地址：wween@163.com 206 楼：feitiansos 各位高手小弟想请教个简单问题请解答,先谢了哈!! 就上面的算列我把取Defm 50,正反算S0 X0 Y0 F0 LS R0 RN Q 500.000 19942.837 28343.561 125 16 31.00 269.256 1E45 1E45 0(正反算均通过)但在第二段和后面的曲线段都出现Ma......返回程序Lbl 2 ：U\：V\：O\：G\：H\：P\：R\：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π 在(2HPR)和E=180÷π之间的冒号上闪烁,我检查了程序都没问题,苦恼了几天,请解答!!!! 207 楼：feitiansos 请老师给我发一份该程序谢谢 feitiansos@163.com 208 楼：lovethegod 回 回 评：+5 分 回 请问一下：FW=”:F→DMS 在4800P里面怎么才能输入啊，我对4800和4850里的不一样的编程符号不知道怎么输，还有在4800里输入些程序还有哪些地方是需要改的啊，望好心人能告诉我，我急需这个程序啊！ wween@163.com QQ：28465609 209 楼：gui 请给我也发一份“Gauss-Legendre”，在这里先谢谢了！ 邮箱地址：gts456422@sohu.com 210 楼：gui hanniu_1973老师: 回 回 评：+5 分