intiallength.m

来自「基于力密度法的索杆张力结构找形程序」· M 代码 · 共 17 行

function [s0,filename2]=intiallength(cab_num)
%%读入初始长度向量
[filename2,pathname]=uigetfile('*.txt','输入对应于date文件杆件松弛长度s0');
fid=fopen(filename2,'rt')            %数据文件名为：tnnd
if fid<0
    errordlg({'文件打开出错'});
else
    frewind(fid)
    s0=fscanf(fid,'%f',[1,inf]);
end
fclose(fid);
s0=s0';
[M,N]=size(s0);
if M~=cab_num
     errordlg({'初始长度文件有问题文件打开出错'});
     break;
 end