jlj.m

专家系统

%gui_State = struct('gui_Name',mfilename, ...
 % hObject    handle to pushbutton2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
function f=iften(d)
%%键连接选择校核程序*************************
m=input('请选择材料类型！！(钢：0 **** 铸铁：1)：')
z=input('请选择载荷性质！！(静载荷：1 ******轻微冲击：2 ***** 冲击：3)：')
if (m==0&&z==1)
    sp=135;
elseif (m==0&&z==2)
    sp=110;
elseif m==0&&z==3
    sp=75;
elseif m==1&&z==1
    sp=75;
elseif m==1&&z==2
    sp=55;
elseif m==1&&z==3
    sp=37.5;
else 
    fprintf('您输入错误！！')
end
T=input('请输入扭矩！T(N*m)=');  
d =input('请输入轴径！！d(m)=')
if d<6
    fprintf('请增加轴径，请重新输入！！d')
    return
elseif d==6  
    fprintf('临界公称直径：D=6mm')
    D=6;b=2;h=2;ns=1;nl=8;
elseif d<=8&&d>6
    fprintf('临界公称直径：D=8mm')
    D=8;b=2;h=2;ns=1;nl=8;
elseif d<=10&&d>8
    fprintf('临界公称直径：D=10mm')
    D=10,b=3,h=3,ns=1,nl=13
elseif d<=12&&d>10
    fprintf('临界公称直径：D=12mm')
    D=12;b=4;h=4;ns=2;nl=15;
elseif d<=17&&d>12
    fprintf('临界公称直径：D=17mm')
    D=17;b=5;h=5;ns=3;nl=17;
elseif d<=22&&d>17
    fprintf('临界公称直径：D=22mm')
    D=22;b=6;h=6;ns=5;nl=19;
elseif d<=30&&d>22
    fprintf('临界公称直径：D=30mm')
    D=30;b=8;h=7;ns=7;nl=21;
elseif d<=38&&d>30
    fprintf('临界公称直径：D=38mm')
    D=38;b=10;h=8;ns=9;nl=23;
elseif d<=44&&d>38
    fprintf('临界公称直径：D=44mm')
    D=44;b=12;h=8;ns=11;nl=25;
elseif d<=50&&d>44
    fprintf('临界公称直径：D=50mm')
    D=50;b=14;h=9;ns=13;nl=26;
elseif d<=58&&d>50
    fprintf('临界公称直径：D=58mm')
    D=58;b=16;h=10;ns=15;nl=27;
elseif d<=65&&d>58
    fprintf('临界公称直径：D=65mm')
    D=65;b=18;h=11;ns=16;nl=28;
elseif d<=75&&d>65
    fprintf('临界公称直径：D=75mm')
    D=75;b=20;h=12;ns=17;nl=29;
else d>75
    fprintf('The axis diameter is so thick and big！！！')
end
l1=input('\n请输入轮毂宽度！！l1(mm)=')
L=[6 8 10 12 14 16 18 20 22 25 28 32 36 40 45 50 56 63 70 80 90 100 110 125 140 160 180 200 220];
G=input('\n请选择键的位置！！(位于轴端：G=1 *****  位于轴中间：G=2 ) ----- G=')
if (G==1)
    l=l1-5;
else (G==2)
	l=l1-10;
end
if l<L(ns)
    fprintf('所定轮毂宽度太小，please increase!!--- Please reinputs！！   l1')
    return
end
for i=ns:1:nl
    if l>=L(ns)&&l<=L(nl)
        if L(i)-l>l-L(i-1)
            l=L(i-1)
            break
        end
    end
end
if l>L(nl)
    l=L(nl)
end
k=input('请选择键的类型！！(A型键:k=1 ***** B型键:k=2 **** C型键:k=3 ) -----   k=')
if k==1
    l0=l-b;
elseif k==2
    l0=l;
else k==3
    l0=l-0.5*b;
end
s1=4000*T./(h*d*l0);


if s1<=sp
    T,d,l1,l,b,h,s1,sp
else s1>sp
    fprintf('使用双键连接  N=2！！')
    s1=s1/1.5;
    if s1<=sp 
        fprintf('\nThe axis diameter***************')%%%%%%%%%%%%%%%%%%%%%%%%%%%
    end
    o=input('\n能否增加轮毂宽度！！（是：1 **** 否：0）：')
    if o==1
        l2=l1;
        l1=l1+5
        fprintf('轮毂已经加宽！！')%%%%%%%
        T,d,D,b,h,l,l1,s1,sp,
    elseif l1>2.25*D&&o==1
        l1=l2
        T,d,D,b,h,l,l1,s1,sp,
    elseif  l1<=2.25*D&&o==1
        return
    else o==0;
        fprintf('扭矩太大，不能用平键连接！！！')
    end
end