自動化車床管理相關知識-資料下載頁
2025-06-26 20:09本頁面
【正文】 375380385390395400附錄四：模型一所用的源程序clearclci=0。h=0。p=10.*ones(400,30)。f=200。t=10。d=300。k=1000。q=1/11400。for u=100:5:800 i=i+1。h=0。 for n=10:30 h=h+1。Ca=(2100+100*n).*quad(@myfun1,0,u)+1000+10*u./n10.*quad(@myfun3,0,u)./n。Ta=uquad(@myfun3,0,u)。T0=(1(1q).^u)/q。C0=0。for j=1:u1C0=C0+(j.*t./n+d+f.*(n+1)/2).*(1q).^(j1).*q。endC0=C0+(floor(u/n).*t+k).*(1q).^(u1)。T=T0.*[1(1q).^u]+Ta.*(1q).^u。C=C0.*[1(1q).^u]+Ca.*(1q).^u。L=C./T。p(i,h)=L。 endendr=min(min(p))。[x,y]=find(p==r)u=100+5.*(x1) %檢查的平均間隔n=10+y1 %預防性更換刀具的平均間隔disp(39。平均每個零件的費用：39。)disp(r)三個自定義函數(shù)：function y=myfun1(t)y=exp((t600).^2/(2*^2))./(sqrt(2*pi)*)。function y=myfun2(t)y=t.*exp((t600).^2/(2*^2))./(sqrt(2*pi)*)。function y=myfun3(u)y=(4194304*5258326398908498^(1/2)*pi^(1/2)*(erf((131072*5258326398908498^(1/2)*u)/2629163199454249 (78643200*5258326398908498^(1/2))/2629163199454249) + erf((78643200*5258326398908498^(1/2))/2629163199454249)))/1078338748780293。附錄五：問題二的結果u n26272829290291292293294295296297298299300301302303304305306307308309310311312 313 附錄六：問題二所用的程序%% question 2clearclcf=200。t=10。d=3000。k=1000。w=。e=1500。v=0。p1=。p2=。i=0。H=zeros(1,9999999)。q=15000.*ones(600,60)。for u=1:5:400 i=i+1。j=0。 for n=10:50 j=j+1。 for h=0:u1 v=v+1。 H(1,v)=H(1,v)+(1+H(1,uh))*quad(@myfun1,h,h+1)。 end he=sum(H,2)。 L2=(k+d.*he./*+t.*u./n+f.*(u./nhe.*)*+f.*he.*n./2*+e.*(u./nhe.*).*)./u。 q(i,j)=L23。 endendr2=min(min(q))。[x2,y2]=find(q==r2)u2=(x21).*5+1n2=10+(y21)disp(39。平均每個零件的費用：39。)disp(r2)附錄七：問題三的結果nu28293031305306307308309310311312313314315316317318319320321322323324325326附錄八：問題三所用的程序%% question 3% mathematical model improvementclearclcf=200。t=10。d=3000。k=1000。w=。e=1500。i=0。q=150.*ones(600,80)。for u=200:380 i=i+1。j=0。 for n=10:70 j=j+1。 u_average=uquad(@myfun3,0,u)。 u_average=u_average.*(11/11400).^u+(1(11399/11400).^u).^2/11400。 interval_ave=quad(@myfun2,0,u)./quad(@myfun1,0,u)+u./quad(@myfun1,0,u)u。 interval_ave=11400*interval_ave./(interval_ave+11400)。 h=u((n+1)/2+n.*w/(1w)).*u./interval_ave。 % h表示一個周期內(nèi)生產(chǎn)的合格品的數(shù)量 % h=*u。 Cd=(2*u*t./n+k)*(^2)+(2*u*t./n+(uh)*f+d+e)*(^2)+2*(2*u*t./n+(uh)*f+d+e)**。 Cf=(2*u*t./n+k)*(^2)+(2*u*t./n+(uh)*f+d+e)*(^2)+2*(2*u*t./n+(uh)*f+d+e)*。 Co=(1quad(@myfun1,0,u)).*Cd+quad(@myfun1,0,u).*Cf。 C=Co./u_average。 q(i,j)=C。 endendr3=min(min(q))。[x3,y3]=find(q==r3)u3=200+(x31)n3=10+(y31)disp(39。平均每個零件的費用：39。)disp(r3)25 / 25
規(guī)章制度相關推薦
鄂ICP備17016276號-1