【正文】 x:\n)。 scanf(%lf,amp。Vmax)。 printf(請輸入軌道的未被平衡超高值 ho:\n)。 scanf(%lf,amp。ho)。 ao=*Vmax/100。 bo=*ho。 Md=M0*(1+ao+bo)*。 printf(鋼軌上的動彎矩為 Md=%lf\n,Md)。 } 2 計算允許溫度壓力 include include define K define PAI double l0=400,r0,f0p,r1,r=80000,p,e,iy。 double f=,q,p00,c,d,l2,f0e,l,f0e1。 double b,temp。 void findL(double a,double a0){ double a1,b1。 d=fabs(a0a)。 if(d=2){ b1=(a*a*b)/(400*400)。 a1=sqrt((1/q)* (c/r1+sqrt((c/r1)*(c/r1)+temp/2*(f+b1)*q)))。 printf(重新計算后的 l=%lf\n,a1)。 b=b1。 findL(a1,a)。 } } int main() { double i,j。 printf(請輸入彈性初始彎矩矢度 f0e:\n)。 scanf(%lf,amp。f0e)。 printf(請輸入塑性初始彎矩矢度 f0p:\n)。 scanf(%lf,amp。f0p)。 printf(請輸入 鋼軌彈性模量 e:\n)。 scanf(%lf,amp。e)。 printf(請輸入鋼軌截面慣性矩 iy:\n)。 scanf(%lf,amp。iy)。 printf(請輸入等效道床阻力 q:\n)。 scanf(%lf,amp。q)。 temp=e*iy*(pow(PAI,5))。 r0=(l0*l0)/(8*f0p)。 r1=1/(1/r0+1/r)。 c=2*e*iy*PAI*PAI。 l2=(1/q)* (c/r1+sqrt((c/r1)*(c/r1)+temp/2*(f+f0e)*q))。 l=sqrt(l2)。 f0e1=(l0*l0*f0e)/(400*400)。 b=f0e1。 printf(重新計算后的 l=%lf\n,l)。 findL(l,l0)。 i=(temp*(f+f0e))/(2*l2*l2)+q。 j=(((f+f0e)*(pow(PAI,3)))/(4*l2))+(1/r1)。 p=i/j。 p00=p/K。 printf(鋼軌允許溫度壓力 p=%lf\n,p00)。 printf(計算誤差為 d=%lf\n,d)。 return 0。 } 3 計算長軌和緩沖軌間預留縫 include include void main() { double T[11]={ ,,2,}, double a,r,r2,E,F,w,pt1,pt2,pH,lc1,ld1,lc2,ld2,l1,l2,l,lg,Tmax,Tmin ,L。 int i。 printf(請輸入鋼軌截面面積 F:\n)。 scanf(%lf,amp。F)。 printf(請輸入鋼軌軌枕間距 a:\n)。 scanf(%lf,amp。a)。 printf(請輸入鋼軌彈性模量 E:\n)。 scanf(%lf,amp。E)。 printf(請輸入鋼軌每枕縱向阻力 r2:\n)。 scanf(%lf,amp。r2)。 printf(請輸入鋼軌的線膨脹系數 w:\n)。 scanf(%lf,amp。w)。 printf(請輸入相鄰標準軌間預留軌縫 lg:\n)。 scanf(%lf,amp。lg)。 printf(請輸入鋼軌接頭阻力 pH:\n)。 scanf(%lf,amp。pH)。 printf(請輸入最高軌溫 Tmax:\n)。 scanf(%lf,amp。Tmax)。 printf(請輸入最低軌溫 Tmin:\n)。 scanf(%lf,amp。Tmin)。 printf(請輸入標準 軌的長度 L:\n)。 scanf(%lf,amp。L)。 r=r2/(2*a)。 for(i=0。i11。i++){ pt1=F*E*w*(T[i]Tmin)。 lc1=(pt1pH)*(pt1pH)/(2*E*F*r)。 ld1=((pt1pH)*Lr*L*L/4)/(2*E*F)。 pt2=F*E*w*(TmaxT[i])。 lc2=(pt2pH)*(pt2pH)/(2*E*F*r)。 ld2=((pt2pH)*Lr*L*L/4)/(2*E*F)。 l1=lglc1ld1。 l2=lc2+ld2。 l=(l1+l2)/2。 printf(當溫度為 %lf鋼軌預留軌縫為 %lf\n,T[i],l)。 } } 4 計算緩沖軌和緩沖軌間預留縫 include include void main() { double T[11]={ ,,2, }, double a,r,r2,E,F,w,pt1,pt2,pH,lc1,ld1,lc2,ld2,l1,l2,l,lg,Tmax,Tmin ,L。 int i。 printf(請輸入鋼軌截面面積 F:\n)。 scanf(%lf,amp。F)。 printf(請輸入鋼軌軌枕間距 a:\n)。 scanf(%lf,amp。a)。 printf(請輸入鋼軌彈性模量 E:\n)。 scanf(%lf,amp。E)。 printf(請輸入鋼軌每枕縱向阻力 r2:\n)。 scanf(%lf,amp。r2)。 printf(請輸入鋼軌的線膨脹系數 w:\n)。 scanf(%lf,amp。w)。 printf(請輸入相鄰標準軌間預留軌縫 lg:\n)。 scanf(%lf,amp。lg)。 printf(請輸入鋼軌接頭阻力 pH:\n)。 scanf(%lf,amp。pH)。 printf(請輸入最高軌溫 Tmax:\n)。 scanf(%lf,amp。Tmax)。 printf(請輸入最低軌溫 Tmin:\n)。 scanf(%lf,amp。Tmin)。 printf(請輸入標準軌的長度 L:\n)。 scanf(%lf,amp。L)。 r=r2/(2*a)。 for(i=0。i11。i++){ pt1=F*E*w*(T[i]Tmin)。 lc1=((pt1pH)*Lr*L*L/4)/(2*E*F)。 ld1=((pt1pH)*Lr*L*L/4)/(2*E*F)。 pt2=F*E*w*(TmaxT[i])。 lc2=((pt2pH)*Lr*L*L/4)/(2*E*F)。 ld2=((pt2pH)*Lr*L*L/4)/(2*E*F)。 l1=lglc1ld1。 l2=lc2+ld2。 l=(l1+l2)/2。 printf(當溫度為 %lf鋼軌預留軌縫為 %lf\n,T[i],l)。 } }