?? 05-對心直動凸輪機(jī)構(gòu)壓力角的計(jì)算.m__.htm
字號:
<html><head><title>MATLAB.rar 05-對心直動凸輪機(jī)構(gòu)壓力角的計(jì)算.m</title>
<LINK href="/inc/read_style.css" type=text/css rel=stylesheet></head>
<body>
<p><a href=http://www.pudn.com>www.pudn.com</a> > <a href="http://www.pudn.com/downloads111/sourcecode/graph/detail461284.html">MATLAB.rar</a> > 05-對心直動凸輪機(jī)構(gòu)壓力角的計(jì)算.m</p><!-- saved from http://www.pudn.com -->
<script src="/inc/gg_read1.js"></script><BR>
<pre name="code" class="m">
% 對心直動凸輪機(jī)構(gòu)壓力角的計(jì)算(調(diào)用TLYLJ.M)
disp ' '
disp ' ******** 對心直動凸輪機(jī)構(gòu)壓力角的計(jì)算 ********'
disp ' '
disp ' ======== 已 知 條 件 ========'
disp ' '
rb = input(' 基圓半徑(mm) rb = ');
h = input(' 推程升程(mm) h = ');
k=h/rb;hd=pi/180;
fai = input(' 推程運(yùn)動角(度) fai = ');
fprintf (1,' 運(yùn)動結(jié)構(gòu)系數(shù) k = %3.4f \n',k)
YDGL = input(' 運(yùn)動規(guī)律類型：等速-"ZX";等加減速-"PW";余弦加速-"JX";正弦加速-"BX" == ');
disp ' '
if YDGL=='ZX'
disp ' ======== 等速運(yùn)動（直線）規(guī)律 ========'
fm=0;
alfm=atan(k/(fai*hd));
elseif YDGL=='PW'
disp ' ======== 等加減速運(yùn)動（拋物線）規(guī)律 ========'
if k<=2
fm=fai*hd/2;
alfm=atan(4*k/(fai*hd*(2+k)));
elseif k>2
fm=fai*hd/sqrt(2*k);
alfm=atan(sqrt(2*k)/(fai*hd));
end
elseif YDGL=='JX'
disp ' ======== 余弦加速度運(yùn)動（簡諧曲線）規(guī)律 ========'
fm=fai*hd*acos(k/(2+k))/pi;
alfm=atan(k*pi/(2*fai*hd*sqrt(1+k)));
elseif YDGL=='BX'
disp ' ======== 正弦加速度運(yùn)動（擺線）規(guī)律 ========'
x=fsolve(@TLYLJ,fai*hd/2); % 使用fsolve求解漸開線函數(shù)方程
fm=x/pi*(fai*hd);
alfm=atan(k*(1-cos(2*pi*fm/(fai*hd)))/(fai*hd+k*fm-k*fai*hd*sin(2*pi*fm/(fai*hd))/(2*pi)));
end
fprintf (1,' 最大壓力角 alfm = %3.4f 度 \n',alfm/hd)
fprintf (1,' 最大壓力角的位置角 fm = %3.4f 度 \n',fm/hd)
% 壓力角漸開線函數(shù)
function f=TLYLJ(x)
global k % 定義全局變量
f=tan(x)-x-pi/k;
</pre>
<script src="/inc/gg_read2.js"></script><BR>
<script src="http://s117.cnzz.com/stat.php?id=1236358&web_id=1236358&show=pic" language="JavaScript" charset="gb2312"></script>
</body></html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -