matlab平差程序代码

clear all
clc
fsize=[530 300];
figpos=[100 100 fsize(1:2)];
mainfig=figure('Position',figpos,"color",[0.83 0.81 0.78],"NumberTitle","off","Name","控制网平差程序");
label1=uicontrol(mainfig,"Style","text","Position",[80 220 350 40],"String","控制网平差程序"，"fontsize",25);
radio1=uicontrol(mainfig,"Style","radio","Position",[80 150 100 50],"String","水准网","fontsize",20,"foregroundcolor",[0.0 0.0 1.0],"Value",1,"CallBack","f_r1");
radio2=uicontrol(mainfig,"Style","radio","Position",[300 150 100 50],"String","平面网","fontsize",20,"Value",0,"CallBack","f_r2");
botton1=uicontrol(mainfig,"Style","push","Position",[80 50 120 50],"String","确定","fontsize",18,"CallBack","adjust");
botton2=uicontrol(mainfig,"Style","push","Position",[300 50 120 50],"String","退出","fontsize",18,"CallBack","close(mainfig)");
set(mainfig,"Menubar","none")

f_r1.m
set(radio1,"value",1,"foregroundcolor",[0.0 0.0 1.0])
set(radio2,"value",0,"foregroundcolor",[0.0 0.0 0.0])

f_r2.m
set(radio1,"value",0,"foregroundcolor",[0.0 0.0 0.0])
set(radio2,"value",1,"foregroundcolor",[0.0 0.0 1.0])









clear;
clc;

global pathname net_name s_datafile x0y0_datafile c1_datafile c2_datafile c3_datafile c4_datafile c5_datafile a_datafile b_datafile d_datafile;
global net ed dd sd dd1 pn x0 y0 m1m2m3 ms pp e d sid md g f dir ni si ma s t az aa bb cc rt rr tt
s_datafile=".txt";b_datafile="_bak.txt"; x0y0_datafile="_x0y0.out";
c1_datafile="_wabc.out"; c2_datafile="_pol.out";c3_datafile="_ins.out";c4_datafile="_poly.out";c5_datafile="_fuhe.out";
a_datafile="_adj.out";d_datafile=",dxf";
pathname=";net_name=";
%gcf=figure("Menubar","none","NumberTitle","off","Name","平面控制网平差计算程序");
gcf=figure("NumberTitle","off","Name","平面控制网平差计算程序");
%data=uimenu(gcf,"Label","读入数据");
%dat1=uimenu(data,"Label","路径设置","Callback","pathname=uigetdir;");
%dat2=uimenu(data,"Label","网名设置","Callback","put_net_name");
%dat3=uimenu(data,"Label","编辑数据文件"，"Callback","open(strcat(pathname,net_name,s_datafile));");
data=uimenu(gcf,"Label","数据文件")；
dat3=uimenu(data,"Label","编辑数据文件"，"Callback","editfile;");
dat4=uimenu(data,"Label","读入数据文件"，"Callback","rddat1");
coor=uimenu(gcf,"Label","近似坐标计算"，"Callback","calcux0y0");
close=uimenu(gcf,"Label","闭合差计算");
pc0=uimenu(close,"Label","三角形闭合差"，"Callback","wabc");
pc1=uimenu(close,"Label","极条件闭合差","Callback","[cpp2,mr,tr]=poleterm1(ed+dd,e,d,sid,g,f,dir,si,ni,pn,md)");
pc2=uimenu(close,"Label","边角网条件"，"Callback","[cpp3,mr,tr]=inscribed1(sd,ms,pp,e,d,sid)");
pc3=uimenu(close,"Label","闭合导线"，"Callback","poly_close(e,d,sid,g,f,dir,si,ni,ed,dd,pn,x0,y0)");
pc4=uimenu(close,"Label","附合导线","Callback","poly_fuhe(e,d,sid,g,f,dir,si,ni,ed,dd,pn,x0,y0)");
adjust=uimenu(gcf,"Label","平差计算","Callback","adj;");
draw=uimenu(gcf,"Label","绘图");
draw1=uimenu(draw,"Label","绘制图网","Callback","netzbild");
draw2=uimenu(draw,"Label","输出DXF文件","Callback","dxfout");
disp=uimenu(gcf,"Label","显示计算结果");
disp0=uimenu(disp,"Label","观测数据","Callback","open(strcat(pathname,net_name,s_datafile));");
disp1=uimenu(disp,"Label","近似坐标","Callback","open(strcat(pathname,net_name,x0y0_datafile));");
disp2=uimenu(disp,"Label","闭合差");