机械原理大作业-哈工大(威海)

机械原理大作业——凸轮、连杆机构——哈工大威海 连杆机构——110120312号

I级机构求解 lAB=150;lBC=400;lCD=300;lAD=320;lBE=100;lEF=230;lFG=400;1=10;=277/180 Pi; xA[t_]=0;yA[t_]=0;AB[t_]=1*t;

xB[t_]=xA[t_]+lABCos[AB[t]]; yB[t_]=yA[t_]+lABSin[AB[t]]; vBx[t_]=xB'[t] -1000Sin[10t] vBy[t_]=yB'[t] 1000 Cos[10 t] aBx[t_]=xB''[t] -10000 Cos[10 t] aBy[t_]=yB''[t] -10000 Sin[10 t]

II级机构求解RRR xD[t_]=320;yD[t_]=0; A0=2lBC(xD[t]-xB[t]); B0=2lBC(yD[t]-yB[t]);C0=Subscript[l, BC]2-Subscript[l, CD]2+(Subscript[x, B][t]-Subscript[x, D][t])2+(Subscript[y, B][t]-Subscript[y, D][t])2;

BC[t_]=2ArcTan[(B0+A02B02C02)/(A0+C0)]; xC[t_]=xB[t]+lBCCos[BC[t]]; yC[t_]=yB[t]+lBCSin[BC[t]]; CD[t_]=ArcTan[(yC[t]-yD[t])/(xC[t]-xD[t])]; xE[t_]=xB[t]+lBECos[BC[t]]; yE[t_]=yB[t]+lBESin[BC[t]]; vEx[t_]=xE'[t]; vEY[t_]=yE'[t]; aEx[t_]=xE''[t]; aEY[t_]=yE''[t]; xF[t_]=xE[t]+lEFCos[Pi/2-BC[t]]; yF[t_]=yE[t]-lEFSin[Pi/2-BC[t]]; ParametricPlot[{xF[t],yF[t]},{t,0.0,Pi/5}]

II级机构求解RRP A0=(xF[t]-lAD)Sin[]-yF[t]Cos[];

FG[t_]=ArcSin[A0/lFG]+; yG[t_]=yF[t]+lFGCos[FG[t]]; 位移 sG[t_]=yG[t]/Sin[]; Plot[sG[t],{t,0.0,Pi/5}]

速度 vG[t_]=sG'[t]; Plot[vG[t],{t,0.0,Pi/5}]

加速度 aG[t_]=sG''[t]; Plot[aG[t],{t,0.0,Pi/5}]

I级机构求解 -1500 Sin[10 t] -1000 Sin[10 t] 1500 Cos[10 t] 1000 Cos[10 t] -15000 Cos[10 t] -10000 Cos[10 t] -15000 Sin[10 t] -10000 Sin[10 t]

II级机构求解RRP

150200250300350120100806040 位移 0.10.20.30.40.50.620015010050

50100

速度 0.10.20.30.40.50.6200015001000500

5001000

加速度 0.10.20.30.40.50.6

40000300002000010000

10000

凸轮机构——110120312号 数据 h=80;0=(150Pi)/180;0'=(100Pi)/180;

S=(60Pi)/180;S'=(50Pi)/180;1=1; 位移 s[_]:=h(/0-1/(2Pi) Sin[(2Pi)/0 ])/;>=0&&<=0;

s[_]:=h/;<=0+S&&>=0; T:=-(0+S) s[_]:=h(1-T/0'+1/(2Pi) Sin[(2Pi)/0' T])/;>=0+S&&<=0+S+0'; s[_]:=0/;<=0+S+0'+S'&&>=0+S+0';

Table[s[Pi/6.0n],{n,0.0,12,1}] Plot[s[],{,0,Pi/6.0 12}] 速度 v[_]:=( h*1)/0 (1-Cos[(2Pi)/0 ])/;>=0&&<=0;

v[_]:=0/;<=0+S&&>=0; T:=-(0+S); v[_]:=-(( h*1)/0')(1-Cos[(2Pi)/0' T]) /;>=0+S&&<=0+S+0'; v[_]:=0/;<=0+S+0'+S'&&>=0+S+0';

Table[v[Pi/6.0n],{n,0.0,12,1}] Plot[v[],{,0,Pi/6.0 12}] 加速度 a[_]:=(2Pi*h*Subscript[, 1]2)

/Subscript[, 0]2 Sin[(2Pi)/0 ]/;>=0&&<=0; a[_]:=0/;<=0+S&&>=0; T:=-(0+S) a[_]:=-((2Pi* h*Subscript[, 1]2) /Subscript[, 0]'2)Sin[(2Pi)/0' T]/;>=0+S&&<=0+S+0'; a[_]:=0/;<=0+S+0'+S'&&>=0+S+0';

Table[a[Pi/6.0n],{n,0.0,12,1}] Plot[a[],{,0,Pi/6.0 12}] 确定基圆半径、偏距和滚子半径 s'[]=If[(40Pi)/180&&<=0+S+0',s'[],0]

ParametricPlot[{v[],s[]},{,0,2 Pi}] r0=200;e=50;s0=2002402;r=10;

理论廓线和实际廓线 x=(s0+s[])Cos[]-e Sin[]

y=(s0+s[])Sin[]+e Cos[] ParametricPlot[{x,y},{,0,2Pi}]

X=x-r×D[y,]/Dx,2Dy,2

Y=y+r×D[x,]/Dx,2Dy,2

ParametricPlot[{X,Y},{,0,2Pi}] ParametricPlot[{{x,y},{X,Y}},{,0,2Pi}]

位移 {0.,3.89077,24.5161,55.4839,76.1092,80.,80,80,80 (1-(9 (-((7

)/6)+))/(5 )+Sin[18/5 (-((7 )/6)+)]/(2 )),80 (1-(9 (-((7

)/6)+))/(5 )+Sin[18/5 (-((7 )/6)+)]/(2 )),80 (1-(9 (-((7 )/6)+))/(5 )+Sin[18/5 (-((7 )/6)+)]/(2 )),0,0} 12345620406080 速度 {0.,21.1149,55.2795,55.2795,21.1149,0.,0,0,-((144 (1-Cos[18/5 (-((7

)/6)+)]))/),-((144 (1-Cos[18/5 (-((7 )/6)+)]))/),-((144

(1-Cos[18/5 (-((7 )/6)+)]))/),0,0}

12345680604020

204060 加速度 {0.,69.7492,43.1073,-43.1073,-69.7492,-8.31005×10-14,0,0,-((2592

Sin[18/5 (-((7 )/6)+)])/(5 )),-((2592 Sin[18/5 (-((7

)/6)+)])/(5 )),-((2592 Sin[18/5 (-((7 )/6)+)])/(5 )),0,0}

12345615010050

50100150

理论廓线和实际廓线 50 Cos[]+(80 6+s[]) Sin[] 200100100200200100

100200

Cos[] (80 6+s[])-50 Sin[]-(10 (Cos[] (80 6+s[])-50 Sin[]+If[(2 )/9&&(31 )/18,s[],0] Sin[]))/(\[Sqrt]((Cos[] (80 6+s[])-50 Sin[]+If[(2 )/9&&(31 )/18,(s^)[],0] Sin[])2+(-50 Cos[]+Cos[]

If[(2 )/9&&(31 )/18,(s^)[],0]-(80 6+s[]) Sin[])2)) 50 Cos[]+(80 6+s[]) Sin[]+(10 (-50 Cos[]+Cos[] If[(2 )/9&&(31 )/18,s[],0]-(80 6+s[]) Sin[]))/(\[Sqrt]((Cos[] (80 6+s[])-50 Sin[]+If[(2 )/9&&(31 )/18,(s^)[],0] Sin[])2+(-50 Cos[]+Cos[] If[(2

)/9&&(31 )/18,(s^)[],0]-(80 6+s[]) Sin[])2))