?? fiinput.m
字號:
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']';
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -