常用测量程序设计代码(１)用全站仪在 A 点观测了 B 点斜边和垂直角,求 A 到 B 得高差。(提示:,D--斜边, --垂直角, －-仪器高, -－反光镜高, －-大气折光系数)usin ｇ S ｙ st ｅ m;usin ｇ Ｓ yste ｍ、Coll ｅｃ t ｉｏ ns、Ｇ eneric;ｕ s ｉ ng System、Text;ｎａ mespace C ｏ nso ｌ eApplicatio ｎ 1{ cl ａ ss Ap ｐ l ｉ c ａ t ｉ on { s ｔ ati ｃ vo ｉ d Ma ｉ n(s ｔ r ｉｎ g［］ args) { Co ｎ sole、Wri ｔ e(＂请输入斜边="); dou ｂ le D ＝ ｄ oub ｌ e、Pars ｅ(Ｃ onsole、Ｒ eadLine()); Con ｓ o ｌ e、W ｒ ite("请输入垂直角[ddd、ｍ ms ｓ]="); ｄ ouble a = DEG(double、Ｐ a ｒｓ e(Con ｓ o ｌｅ、R ｅａdLi ｎｅ())); Cons ｏ le、Ｗ rite("请输入仪器高=＂); d ｏ ubl ｅ i = dou ｂ l ｅ、Par ｓ e(Con ｓ o ｌｅ、ＲｅadLine()); Conso ｌ e、Write("请输入反光镜高="); do ｕ ble ｖ = d ｏ ubl ｅ、P ａｒ se(C ｏｎ so ｌ e、Rea ｄＬine()); ｄ oub ｌ e h = D ＊ Ma ｔ h、S ｉ n(a) + (1 - 0、13) ＊ D / 637100 ０、０ ＊ Ｄ / 6 ３ 71 ０ 0 ０、０ * M ａ th、Ｃ os(ａ) ＊ Maｔ h、Co ｓ(a) / 2、0 + i - v; Ｃ o ｎｓ ole、W ｒ iteLi ｎ e(＂高差为{0}",ｈ); } ／/将 ddd、ｍ ms ｓ转为弧度 static pub ｌ i ｃ do ｕ ble Ｄ E Ｇ(do ｕ ble ang) { int f ｕ hao ＝ (int)(ang / M ａ th、Ａ bs(ａ ng)); ａ n ｇ ＝ M ａ th、Ａｂ s(an ｇ); i ｎｔ d = (in ｔ)a ｎ g; int m ＝ ((int)(ang * １ 00)) - d * 10 ０; doubl ｅ s = a ｎｇ * 10000 － m * 10 ０ - d ＊ 1000０; ｒ eturn ((ｄ ＋ m ／ ６０、0 + s / 3 ６ 0 ０、0) * f ｕ haｏ) ／ 1 ８ 0、0 ＊ Ｍ ath、PI; } } }(２)如图所示,已知 A 点得坐标及 A 点到 B 点得边长及方位角,计算 B 点得坐标。u ｓｉ n ｇ Syste ｍ;ｕｓ ing Syst ｅ m、Ｃｏ llections、Ge ｎeric;usi ｎ g System、Te ｘ t;n ａｍ espace C ｏ n ｓ oleA ｐｐ lication1{ c ｌ a ｓ s Ａｐ plic...
