function [nodenum,nodefree,nodefix,cab_num,node_all,nfix_n,cab_all,node_no,node_x,node_y,node_z,fx,fy,fz,cab_n,cab_i,cab_j,E,Real,Area,Etype,barinfor,filename1]=fiinput
%從數據文件中讀入數據-------------------------------------------
%數據格式為：
%nodenum                           －－－－－節點總數
%nodefree                          －－－－－自由節點總數
%nodefix                           －－－－－約束節點總數
%cab_num                           －－－－－桿件總數
%node_no   node_x    node_y     node_z  fx fy fz   －－－節點號  節點x坐標  節點y坐標  節點z坐標 y 
%nfix_n                            －－－－－約束節點號
%cab_n    cab_i   cab_j   E Real Area Etype             －－－桿件號     桿件左節點號    桿件右節點號

[filename1,pathname]=uigetfile('*.txt','輸入數據文件含有_date的文本文件 ');
fid=fopen(filename1,'rt');             %數據文件名為：tnnd
if fid<0
    errordlg({'文件打開出錯'});
else
    %如果文件已經打開
    frewind(fid)
    nodenum=fscanf(fid,'%f',[1,1]);
    nodefree=fscanf(fid,'%f',[1,1]);
    nodefix=fscanf(fid,'%f',[1,1]);
    cab_num=fscanf(fid,'%f',[1,1]);
    node_all=fscanf(fid,'%f',[7,nodenum]);
    nfix_n=fscanf(fid,'%f',[nodefix,1]);
    cab_all=fscanf(fid,'%f',[7,cab_num]);
end
fclose(fid);

node_all=node_all';        %----nfix_all存放有關節點坐標的所有項
cab_all=cab_all';          %----cab_all存放有關桿件的所有項
node_no=node_all(:,[1]);
node_x=node_all(:,[2]);
node_y=node_all(:,[3]);
node_z=node_all(:,[4]);
fx=node_all(:,[5]);
fy=node_all(:,[6]);
fz=node_all(:,[7]);

cab_n=cab_all(:,[1]);
cab_i=cab_all(:,[2]);
cab_j=cab_all(:,[3]);
E=cab_all(:,[4]);
Real=cab_all(:,[5]);
Area=cab_all(:,[6]);
Etype=cab_all(:,[7])-1;           %etype的值為0 為壓桿， 1為拉索，其輸入值則1為壓桿，2為拉索

%讀入桿件的信息壓桿或者拉索
barinfor=[cab_n';Etype']';