闭合导线平差计算(表面)
include"mapbasic.def"
declare sub main
dim c1x,c1y,c2x,c2y,d,e,f,g,h,i as float
dim a,b1,b2,b3,b4,b5? as string
sub main?
dialog
title "閉合導線控制網平差"
width 400 height 300 position 100,100
control statictext
title "請按正確的方法進行操作:1,選擇閉合導線網邊數;2,起始邊方位角和已知點坐標;3夾角"
width 350 height 20 position 20,20
control statictext
title "導線邊數:" position 20,40
control popupmenu title "3;4;5" VALUE 2 into a position 70,40
Control GroupBox
??? Title? "已知方位角和控制坐標"
??? Position 20,55
??? Height 170?? Width 360
Control StaticText?? Title? "往測順序(控制點):"?? Position? 30, 65
Control EditText Value? "" Position 120, 65??? Width 15??? ID 1??? Into? b1
Control EditText??? Value? ""??? Position 140, 65??? Width 15???? ID 2???? Into? b2
Control EditText????? Value? ""???? Position 160, 65?? Width 15??? ID 3???? Into? b3
Control EditText????? Value? ""???? Position 180, 65??? Width 15???? ID 4??? Into? b4
Control EditText????? Value? ""???? Position 200, 65??? Width 15???? ID 5???? Into? b5
Control StaticText?? Title? "控制點坐標(往測)a→b:"?? Position? 30, 80
Control EditText???? Value? "a(x)"???? Position 120, 90??? Width 60???? ID 6???? Into? c1x
Control EditText????? Value? "a(y)"???? Position 200, 90??? Width 60???? ID 7???? Into? c1y
Control EditText????? Value? "b(x)"???? Position 120, 110??? Width 60???? ID 8???? Into? c2x
Control EditText????? Value? "b(y)"???? Position 200, 110??? Width 60???? ID 9???? Into? c2y
Control StaticText?? Title? "方位角(往測)a→b:"?? Position? 30, 130
Control EditText????? Value? ""???? Position 120, 130??? Width 60???? ID 10???? Into? d
Control StaticText?? Title? "各點測角(盤左,按往測順序):"?? Position? 30, 145
Control EditText????? Value? "1"???? Position 150, 145??? Width 60???? ID 11???? Into? e
Control EditText????? Value? "2"???? Position 150, 160??? Width 60???? ID 12???? Into? f
Control EditText????? Value? "3"???? Position 150, 175??? Width 60???? ID 13???? Into? g
Control EditText????? Value? "4"???? Position 150, 190??? Width 60???? ID 14???? Into? h
Control EditText????? Value? "5"???? Position 150, 205??? Width 60???? ID 15???? Into? i
Control StaticText?? Title? "點擊確定,輸出結果:"?? Position? 30, 230
control okbutton title "確定" position 320,280 width 30 height 15
control cancelbutton title "取消" position 360,280 width 30 height 15
end sub
總結
以上是生活随笔為你收集整理的闭合导线平差计算(表面)的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 一个企图用代码偷懒计算测量学闭合导线各项
- 下一篇: matlab导线网平差,导线网平差算例教