机械原理文档格式.docx
- 文档编号:3743416
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:14
- 大小:303.70KB
机械原理文档格式.docx
《机械原理文档格式.docx》由会员分享,可在线阅读,更多相关《机械原理文档格式.docx(14页珍藏版)》请在冰点文库上搜索。
OptionExplicit
Dimn1,n2,m,z1,z2,l1,h,k,l2,l3,l4,l5,φAsDouble
Dimv(),a(),sd()AsDouble
Dimd1,d2,ha1,ha2,hf1,hf2,ho1,ho2,da1,da2,df1,df2,db1,db2,p,s,e,ao,cAsDouble
Dimhap,cp,α,i,θ,ω1,φ1,x1,x2,ε,saAsDouble
Dima1,a2,a3AsDouble
Constpi=3.1415926
Picture1.Cls
IfText1.Text="
"
OrText2.Text="
OrText3.Text="
OrText4.Text="
OrText5.Text="
OrText6.Text="
OrText7.Text="
OrText8.Text="
OrText9.Text="
OrText13.Text="
Then
Beep
MsgBox"
请输入全部数据!
48,"
提示!
ExitSub
EndIf
Command3.Enabled=True:
Command4.Enabled=True:
Command5.Enabled=True
Command6.Enabled=True:
Command7.Enabled=True:
Command8.Enabled=True
n1=Val(Text1.Text):
m=Val(Text2.Text):
z1=Val(Text3.Text):
z2=Val(Text4.Text)
l1=Val(Text5.Text):
h=Val(Text6.Text):
k=Val(Text7.Text):
l2=Val(Text8.Text)
l3=Val(Text9.Text):
φ=Val(Text13.Text):
α=20:
hap=1:
cp=0.25
i=z2/z1:
d1=m*z1:
d2=m*z2:
x1=(17-z1)/17:
x2=(17-z2)/17
Ifx1+x2<
=0Then
x2=-x1
ha1=(hap+x1)*m:
ha2=(hap-x1)*m:
hf1=(hap+cp-x1)*m
hf2=(hap+cp-x2)*m:
ho1=ha1+hf1:
ho2=ha2+hf2
da1=d1+2*ha1:
da2=d2+2*ha2:
df1=d1-2*hf1
df2=d2-2*hf2:
db1=d1*Cos(α*pi/180):
db2=d2*Cos(α*pi/180)
p=pi*m:
s=p/2:
e=s:
ao=(d1+d2)/2:
c=cp*m
θ=180*((k-1)/(k+1))
a1=Atn(da1*Sqr(1-(db1/da1)^2)/db1)
a2=Atn(da2*Sqr(1-(db2/da2)^2)/db2)
Ifd1<
=d2Then
a3=a1
Else
a3=a2
ε=0.5*(z1*(Tan(a1)-Tan(α*pi/180))+z2*(Tan(a2)-Tan(α*pi/180)))/pi
sa=(pi*m/2)*da1/d1-da1*(Tan(a3)-a3-(Tan(α*pi/180)-α*pi/180))
l4=l3*Sin(θ*pi/360)
l5=h/(2*Sin(θ*pi/360))
n2=z1/z2*n1
ω1=n2*360*pi/180/60
ReDimPreservesd(0To360),v(0To360),a(0To360)
Forφ1=0To360
Callwww(φ1,v(φ1),sd(φ1),a(φ1))
Nextφ1
Text10.Text=v(φ):
Text11.Text=sd(φ):
Text12.Text=a(φ)
PrivateSubCommand3_Click()
Picture1.Print"
齿轮1分度圆直径d1="
;
d1;
"
mm"
齿轮2分度圆直径d2="
d2;
齿轮1变位系数X1="
x1;
齿轮1变位系数X2="
x2;
齿轮1齿顶高ha1="
ha1;
齿轮2齿顶高ha2="
ha2;
齿轮1齿根高hf1="
hf1;
hf2;
齿轮1齿全高ho1="
ho1;
ho2;
齿轮1齿顶圆直径da1="
da1;
齿轮2齿顶圆直径da2="
da2;
齿轮1齿根圆直径df1="
df1;
齿轮2齿根圆直径df2="
df2;
齿轮1基圆直径db1="
db1;
齿轮2基圆直径db2="
db2;
齿距p="
p;
齿厚s="
s;
齿槽宽e="
e;
齿轮1,2中心距ao="
ao;
顶隙c="
c;
齿轮1,2传动比i="
i
极位夹角θ="
θ;
°
重合度ε="
ε
小齿轮顶宽sa="
sa;
PrivateSubCommand4_Click()
连杆O2A的长度l4="
l4;
连杆O3B的长度l5="
l5;
PrivateSubCommand5_Click()
Dimβ,γAsSingle
Picture1.Cls
Picture1.DrawWidth=2
β=Atn((380+108.16*Sin(γ))/(108.16*Cos(γ)))
Ifγ>
1.57Andγ<
=4.71Then
β=β+3.14
Picture1.Circle(2500,3000),174*3,RGB(255,0,255)
Picture1.Circle(2500-540,3000+358.2),42*3,RGB(255,0,255)
Picture1.Line(2500,4140)-Step(1500,0),RGB(255,255,0)
Picture1.Line(2500,4140)-Step(0,-2200),RGB(255,255,0)
Picture1.Line(2500,4140)-Step(3*l5*Cos(β),-3*l5*Sin(β)),RGB(0,255,0)
Picture1.Line(2500,3000)-Step(3*108.16*Cos(γ),-3*108.16*Sin(γ)),RGB(0,255,255)
Picture1.Line(2500+3*l5*Cos(β)-1700,1770)-Step(3300,0),RGB(255,0,0)
Picture1.Line(2500+3*l5*Cos(β),1770)-Step(0,450),RGB(0,255,255)
Picture1.Circle(2500+3*l5*Cos(β),4140-3*l5*Sin(β)),20
Picture1.Line(2500+3*l5*Cos(β)-60,4140-3*l5*Sin(β)-80)-Step(120,160),,B
Picture1.Circle(2500+3*108.16*Cos(γ),3000-3*108.16*Sin(γ)),20
Picture1.Line(2500+3*108.16*Cos(γ)+100*Cos(β-0.64),3000-3*108.16*Sin(γ)-100*Sin(β-0.64))-Step(-160*Cos(β),160*Sin(β))
Picture1.Line-Step(-120*Cos(1.57-β),-120*Sin(1.57-β))
Picture1.Line-Step(160*Cos(β),-160*Sin(β))
Picture1.Line-Step(120*Cos(1.57-β),120*Sin(1.57-β))
γ=γ+0.34
Ifγ>
6.28Thenγ=γMod3.14
PrivateSubCommand6_Click()
Forφ=0To360Step5
φ="
φ;
sd(φ);
a(φ);
v(φ)
Nextφ
PrivateSubCommand7_Click()
Form3.Show
PublicSubwww(n,V1,S1,a1)
DimQ,ω3,ε3,s3,φ3,s21AsSingle
Q=n*pi/180
φ3=Atn((l3+l4*Sin(Q)))/(l4*Cos(Q))
Ifn>
90Andn<
270Then
φ3=φ3+pi
s3=l4*Cos(Q)/Cos(φ3)
ω3=l4*ω1*Cos(φ3-Q)/s3
s21=-ω1*l4*Sin(φ1-φ3)
ε3=(l4*ω1^2*Sin(φ3-Q)-2*ω3*s21)/s3
V1=-ω3*l5*Sin(φ3)
S1=l5*Cos(φ3)
a1=-ω3*l5*Cos(φ3*ω3)-l5*ε3*Sin(ω3)
PrivateSubCommand8_Click()
Picture1.Line(0,1400)-(5000,1400)
Picture1.Line(5000,1400)-(4800,1300)
Picture1.Line(5000,1400)-(4800,1500)
Picture1.Line(100,2500)-(100,100)
Picture1.Line(100,100)-(0,200)
Picture1.Line(100,100)-(200,200)
Rem(运动图线生成程序)
Dima0AsDouble,b0AsDouble,c0AsDouble,d0AsDouble,e0AsDouble
Dimf0AsDouble,g0AsDouble,w0AsDouble,p0AsDouble,l0AsDouble,v0AsSingle
Dimi0AsSingle,h0AsString,j0AsString,k0AsString,m0AsString,s0AsSingle
Dimn0AsString,o0AsString,q0AsString,r0AsDouble,t0AsDouble,z0AsSingle
l0=108.16:
p0=738.09:
c0=-72.41
Fori0=0To360Step0.01
r0=i0*3.14159265/180
t0=c0*2*3.14159265/60
a0=Atn((380+l0*Sin(r0))/(l0*Cos(r0)))
Ifi0>
=90Andi0<
=270Then
a0=a0+3.14159265
s0=l0*Cos(r0)/Cos(a0)
w0=l0*t0*Cos(a0-r0)/s0
v0=-l0*t0*Sin(r0-a0)
d0=(l0*t0*t0*Sin(a0-r0)-2*s0*w0)/s0
e0=p0*Cos(a0)
f0=-p0*w0*Sin(a0)
g0=-p0*w0*Cos(a0*w0)-p0*d0*Sin(a0)
Picture1.PSet(i0*10+100,1200+f0/2),RGB(255,255,0)
Picture1.PSet(i0*10+100,1200+g0/15),RGB(255,0,255)
Picture1.PSet(i0*10+100,1200+e0),RGB(0,255,0)
Nexti0
Picture1.Print
速度-黄色,位移-绿色,加速度-红色"
Form3
DimaAsSingle,bAsSingle,cAsSingle
Timer1.Enabled=True
Timer1.Enabled=False
Form1.Show
PrivateSubTimer1_Timer()
DrawWidth=2
Cls
l=738.09
a=Atn((380+108.16*Sin(b))/(108.16*Cos(b)))
Ifb>
1.57Andb<
a=a+3.14
Circle(2500,3000),174*3,RGB(255,0,255)
Circle(2500-540,3000+358.2),42*3,RGB(255,0,255)
Line(2500,4140)-Step(1500,0),RGB(255,255,0)
Line(2500,4140)-Step(0,-2200),RGB(255,255,0)
Line(2500,4140)-Step(3*l*Cos(a),-3*l*Sin(a)),RGB(0,255,0)
Line(2500,3000)-Step(3*108.16*Cos(b),-3*108.16*Sin(b)),RGB(0,255,255)
Line(2500+3*l*Cos(a)-1700,1770)-Step(3300,0),RGB(255,0,0)
Line(2500+3*l*Cos(a),1770)-Step(0,450),RGB(0,255,255)
Circle(2500+3*l*Cos(a),4140-3*l*Sin(a)),20
Line(2500+3*l*Cos(a)-60,4140-3*l*Sin(a)-80)-Step(120,160),,B
Circle(2500+3*108.16*Cos(b),3000-3*108.16*Sin(b)),20
Line(2500+3*108.16*Cos(b)+100*Cos(a-0.64),3000-3*108.16*Sin(b)-100*Sin(a-0.64))-Step(-160*Cos(a),160*Sin(a))
Line-Step(-120*Cos(1.57-a),-120*Sin(1.57-a))
Line-Step(160*Cos(a),-160*Sin(a))
Line-Step(120*Cos(1.57-a),120*Sin(1.57-a))
b=b+0.34
6.28Thenb=bMod3.14
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 机械 原理
![提示](https://static.bingdoc.com/images/bang_tan.gif)