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