[問題] 幫忙看看洗削的程式哪裡有寫錯已回收

看板MATLAB作者usa0204got (便秘)時間16年前 (2009/05/09 22:18)推噓1(1推 0噓 9→)

留言10則, 2人參與討論串1/1

%工件：鋁6061-651 %切削條件(切口情?) a=0.01; % a ：邊緣接触?度(mm) % ft=0.0025; % ft ：供?率(mm/rev牙) feed=300; %進給率 nrpm=60000; % n ：紡錘速度rpm phist=0; % st ：切削刀入射角 phiex=pi; ex% ：切削刀出口角度180度 %刀具幾何(工具幾何) D=0.01; % d ：?刀的直徑 N=2; % N ：牙的數字 beta=pi/6; beta的% ：?面角30度 %切削常數(切口常數) ktc=891.6; %因剪切的切向切削力係數 krc=0.47; %因剪切的俓向切削力係數 kte=14.9; %因剪切的俓向切削力係數 kre=0.42; triphi=pi/200; %綜合化角度 tria=0.0001; %綜合化高度 %varable的 ft=feed/(N*nrpm); phip=2*pi/N; %切削刀仰俯角 K=2*pi/triphi; %有角綜合化步的數字 L=a/tria; %軸向綜合化步的數字 for i=1 ：K; %有角綜合化圈 phi(i)=phist+i*triphi; % flute'浸沒角度; s下? Fx (i)=0; Fy (i)=0; Ft (i)=0; fort=1 ：N; %計算所有牙的力量貢獻 phi1=phi (i)+ (t-1) *phip; %牙的k浸沒角度 phi2=phi1; %記住當前浸沒 for j=1 ：L; %沿裁減的軸向深度集成 a (j)=j*tria; %軸向位置 phi2=phi1- (2*tan (beta) /D)*a (j); %更新浸沒角度交付螺旋 if (phi2= phist); h=ft*sin (phi2); %芯片厚度這時 trift=tria* (ktc*h+kte); %有差別的切向力 trifr=tria* (krc*h+kre); %有差別的?向力 trifx=-trift*cos (phi2) - trifr*sin (phi2); trify=trift*sin (phi2) - trifr*cos (phi2); Fx (i)=Fx (i)+trifx; Fy (i)=Fy (i)+trify; Ft (i)=Ft (i)+trift; else h=0; else else %figure (1) %plot(phi,Fx) %figure (2) %plot(phi,Fy) end figure(1) plot(phi,Fx) figure(2) plot(phi,Fy) F(i)=(Fx(i)^2+Fy(i)^2)^(1/2) end -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 219.69.115.246