double wir_cal1()
{
?double pi = 3.1415926;
?double xb, yb;
?double x[20], y[20]; ? ? ? ? ? ? ? ? ? ??
?double v_x[20] , v_y[20] ; ? ? ? ? ? ? ? ? ?//坐標增量改正值
?double oba[20] , v_oba[20]; ? ? ? ? ? ? ? ? //observation angle
?double s[20]; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? // 邊長s
?double r[20]; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? //坐標方位角 r
?double ce_oba = 0, ce_x, ce_y;
?double rba;
?int j,p;
?cout<< setiosflags(ios::fixed)<< setprecision(3);
?cout<< "輸入觀測角個數(shù)"<< "j="<< endl;
?cin >>j;
?cout<< "左角1右角-1"<< endl;
?cin >>p;
?cout<< "輸入起始坐標B，A"<< endl;
?cin >>xb >>yb >>x[0] >>y[0];
?cout<< "rab=";
?rba = bc_cal(xb, yb, x[0], y[0]);
?//鍵入觀測角值
?for (int i = 0; i< j; i++)
?{
??? ?cout<< "請輸入觀測角值 "<< i<< endl;
??? ?cin >>oba[i];
?}
?for (int i = 0; i< j-1; i++)
?{
??? ?cout<< "輸入邊長 "<< i<< endl;
?cin >>s[i];
?}
?//求觀測角閉合差
?{
??? ?for (int i = 0; i ??? ?{
??? ??? ?oba[i] = dfm2m(oba[i]);
??? ??? ?cout<< "oba["<< i<< "]= "<< oba[i]<< endl;
??? ?}
??? ?int fg = sum(oba, 0, j);
??? ?int fl = 180 * (j-1) * 3600;
??? ?ce_oba = double(fg) - fl;
??? ?cout<< "理論值="<< fg<< " 觀測值="<< fl<< endl;
??? ?cout<< "觀測角閉合差"<< ce_oba<< endl;
?}
?//求坐觀測角改正值并分配
?for (int i = 0; i< j; i++)
?{
??? ?v_oba[i] = -ce_oba / j;
??? ?oba[i] += v_oba[i];
?}
?//觀測角化弧度值
?for (int i = 0; i< j; i++)
?{
??? ?oba[i] = oba[i] / 3600 / 180 * pi;
??? ?cout<< oba[i]<< endl;
?}
?//求坐標方位角
?for (int i = 0; i< j-1; i++)
?{
??? ?
??? ?if (i == 0)
??? ?{
??? ??? ?r[0] = oba2pca(rba, oba[0],p);
??? ?}
??? ?else
??? ??? ?r[i] = oba2pca(r[i - 1], oba[i],p);

站在用戶的角度思考問題，與客戶深入溝通，找到掇刀網(wǎng)站設(shè)計與掇刀網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網(wǎng)站制作、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名注冊、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋掇刀地區(qū)。

??? ?cout<< "方位角R"<< i<< "="<< r[i]<< endl;
?}
?//求坐標增量x,y
?double deta_x[20], deta_y[20];
?for (int i = 0; i< j-1; i++)
?{
??? ?deta_xy(r[i], s[i], &deta_x[i], &deta_y[i]);

?}
?//計算坐標增量閉合差、改正值并分配
?{
??? ?ce_x = sum(deta_x, 0, j-1);
??? ?ce_y = sum(deta_y, 0, j-1);
??? ?double S = sum(s, 0, j-1);
??? ?for (int i = 0; i< j-1; i++)
??? ?{
??? ??? ?v_x[i] = -ce_x * s[i] / S;
??? ??? ?v_y[i] = -ce_y * s[i] / S;
??? ??? ?deta_x[i] += v_x[i];
??? ??? ?deta_y[i] += v_y[i];
??? ?}
?}
?//輸出坐標x,y
?for (int i = 1; i ?{
??? ?x[i] = x[i - 1] + deta_x[i-1];
??? ?y[i] = y[i - 1] + deta_y[i-1];
??? ?cout<< "x"<< i<< "="<< x[i]<< " y"<< i<< "="<< y[i]<< endl;
?}

?return 0;
}

你是否還在尋找穩(wěn)定的海外服務(wù)器提供商？創(chuàng)新互聯(lián)www.cdcxhl.cn海外機房具備T級流量清洗系統(tǒng)配攻擊溯源，準確流量調(diào)度確保服務(wù)器高可用性，企業(yè)級服務(wù)器適合批量采購，新人活動首月15元起，快前往官網(wǎng)查看詳情吧

新聞標題：練習(xí)4閉合導(dǎo)線平差計算-創(chuàng)新互聯(lián)
分享網(wǎng)址：http://weahome.cn/article/gjjpj.html