无缝线路计算程序.doc

程序1（允许降温幅度）
PrivateSubCommand1_Click()
D=301000:E=210000:Ix=28790000:W底=375000:W头=291000:
a=60:Fi=1.45:h=75:strσ=351.5:strσf=10:α=0.0000118:λ=10:
r=152:F=7745
k=(D/(4*100*a*E*Ix))^(1/4)
Mo=Val(Text1.Text)/(4*k)*(1+Exp(-k*Val(Text2.Text))*(Cos(k*Val(Text2.Text))-Sin(k*Val(Text2.Text))))
IfVal(Text3.Text)>120Then
α1=0.6*120/100
α2=0.3*(Val(Text3.Text)-120)/100
ElseIfVal(Text3.Text)<120Then
α1=0.6*Val(Text3.Text)/100
α2=0
EndIf
β=0.002*h
Md=((1+α1)*(1+α2)+β)*Mo
strσd1=Md/W底*Fi
strσd2=Md/W头*Fi
Tj=(strσ-strσd1-strσf)/(E*α)
Ti=(1/α)*((λ*r)/(E*F))^(1/2)
IfTj>TiThen
T=Ti
Else
T=Tj
EndIf
Picture1.Print"刚比系数为：";Format(k,"#.##########");"mm-1"
Picture1.Print
Picture1.Print"静弯矩为：";Format(Mo,"#########.##");"N.mm"
Picture1.Print
Picture1.Print"动弯矩为：";Format(Md,"#########.##");"N.mm"
Picture1.Print
Picture1.Print"根据强度确定的允许降温幅度为：";Format(Tj,"###.#");"°C"
Picture1.Print
Picture1.Print"根据断缝确定的允许降温幅度为：";Format(Ti,"###.#");"°C"
Picture1.Print
Picture1.Print"允许的降温幅度为：";Format(T,"###.#");"°C"
EndSub

程序2（允许升温幅度）
PrivateSubCommand1_Click()
E=21000000:Iy=524:F1=0.2:Foe=0.25:Fop=0.25:L=400:
Lo=400:PI=3.14:F=7745:α=0.0000118
Ro=(Lo^2)/(8*Fop)
Rz=1/(1/Val(Text1.Text)+1/Ro)
Do
Lo=L
Foe1=(Lo^2)*Foe/(400^2)
L=Sqr(((2*E*Iy*PI^2/Rz)+Sqr((2*E*Iy*PI^2/Rz)*(2*E*Iy*PI*PI/Rz)+(E*Iy*PI^5*(F1+Foe1)*Val(Text2.Text)/2)))/Val(Text2.Text))
LoopWhile(L-Lo)>0.1
Pw=(E*Iy*PI^5*(F1+Foe1)/(2*L^4)+Val(Text2.Text))/((F1+Foe1)*PI^3/(4*L^2)+1/Rz)
P=Pw/1.3
Ts=P/(2*E*F*α)
Picture1.Print
Picture1.Print
Picture1.Print
Picture1.Print"变形曲线弦长L为：";Format(L,"####.#");"cm"
Picture1.Print
Picture1.Print
Picture1.Print"温度压力为：";Format(Pw,"#######.##");"N"
Picture1.Print
Picture1.Print
Picture1.Print"容许温度压力为：";Format(P,"#######.##");"N"
Picture1.Print
Picture1.Print
Picture1.Print"允许升温幅度为：";Format(Ts,"##.##");"°C"
EndSub

程序3（伸缩区长度）
PrivateSubCommand1_Click()
E=210000:F=7745:r=15.2:Ph=490000:α=0.0000118
Te=Val(Text1.Text)
Text1.Text=Text1.Text-6
ForI=0To10
Text1.Text=Text1.Text+1
t1=Val(Text2.Text)-Val(Text1.Text):t2=Val(Text1.Te