固体火箭发动机燃烧室及内弹道计算

合集下载

龙格库塔法计算固体火箭发动机内弹道

龙格库塔法计算固体火箭发动机内弹道

!计?算?星?型³装痢?药?的?几?何?尺?寸?!参?数簓符?号?说μ明¶!-----------------------------------------------------------------------------------!n表括?示?星?角?数簓,num表括?示?将?推?进?剂®沿?肉╝厚?方?向´分?为a几?等台?分?,m表括?示?选?择?压1力 值μ大洙?小?!d表括?示?外猘径?,len表括?示?长¤度¯,thet表括?示?星?边?夹D角?,epsilon表括?示?角?度¯系μ数簓!r表括?示?过y度¯圆2弧?半?径?,r1表括?示?星?角?圆2弧?半?径?,R0表括?示?通 ?用?气?体?常£数簓!l表括?示?药?柱·的?特?征¶长¤度¯,y0表括?示?初?始?特?征¶参?数簓,y1表括?示?燃?尽?特?征¶参?数簓!I0表括?示?总哩?冲?,F表括?示?推?力 ,Poc表括?示?燃?烧?室酣?的?工¤作痢?压1力!Isp表括?示?比括?冲?,density_p表括?示?密¹度¯,k表括?示?比括?热¯?比括?rspeed表括?示?燃?速·,?pn表括?示?压1力 指?数簓!mpeff表括?示?有瓺效§装痢?药?量?,Cf表括?示?推?力 系μ数簓,Ctz表括?示?特?征¶速·度¯,At表括?示?喉³部?面?积y,a表括?示?燃?速·系μ数簓!S表括?示?平?均·燃?烧?面?积y,e1表括?示?平?均·肉╝厚?,epsilon1表括?示?减?面?比括?epsilon2表括?示?增?面?比括?!foresmax表括?示?前©段?最?大洙?相­对?周¹边?长¤,backsmax表括?示?后µ段?最?大洙?相­对?周¹边?长¤!smin表括?示?最?小?相­对?周¹边?长¤,thet1表括?示?周¹边?长¤取?得?最?小?值μ时骸?的?星?边?夹D角?!Ap表括?示?初?始?通 ?气?面?积y,J表括?示?初?始?通 ?气?参?量?,eta表括?示?装痢?填?系μ数簓,Af表括?示?剩骸?药?面?积y,etaf表括?示?剩骸?药?系μ数簓!de表括?示?每?一?份 肉╝厚?的?长¤度¯,Sa表括?示?燃?烧?面?积y数簓组哩?Apa表括?示?通 ?气?面?积y数簓组哩?!------------------------------------------------------------------------------------program mainimplicit nonereal(kind=8),parameter :: Pi=3.14integer :: n,num,i,mreal(kind=8) :: d,len,thet,epsilon,r,r1real(kind=8) :: l,y0,y1real(kind=8) :: I0,F,Poc,Pe,R0real(kind=8) :: Isp,density_p,k,rspeed,Pnreal(kind=8) :: mpeff,Cf,Ctz,At,areal(kind=8) :: S,e1,epsilon1,epsilon2real(kind=8) :: foresmax,backsmax,smin,thet1real(kind=8) :: Ap,J,eta,Af,etafreal(kind=8) :: error,dereal(kind=8),allocatable :: Sa(:),Apa(:)!读®入?所·需¯要癮所·用?参?数簓值μopen(3,file="design_parameter.dat")read(3,*) I0 !总哩?冲?read(3,*) F !推?力read(3,*) Poc !燃?烧?室酣?压1力read(3,*) Isp !比括?冲?read(3,*) density_p !推?进?剂®的?密¹度¯read(3,*) k !比括?热¯?比括?read(3,*) a !燃?速·系μ数簓read(3,*) Ctz !读®取?特?征¶速·度¯Ctzread(3,*) Pn !压1力 指?数簓read(3,*) Pe !读®取?喷?管¹出?口¸的?压1力 Peread(3,*) R0 !读®取?通 ?用?气?体?常£数簓R0read(3,*) d,r !读®取?装痢?药?直ª径?d和³过y度¯圆2弧?半?径?rread(3,*) epsilon2 !读®取?增?面?比括╡psilon2read(3,*) r1 !读®取?星?角?圆2弧?半?径?r1read(3,*) thet1 !试?取?周¹边?长¤取?得?最?小?值μ时骸?的?星?边?夹D角?thet1read(3,*) thet !试?取?初?始?时骸?的?星?边?夹D角?thetread(3,*) n !读®取?星?角?数簓n(辍?,4,5,6,7,8)?read(3,*) epsilon !试?取?角?度¯系μ数簓epsilonread(3,*) num !读®取?等台?分?肉╝厚?的?等台?分?数簓numread(3,*) m !m=1表括?示?最?小?压1力 给?定¨,m=2表括?示?最?大洙?压1力 给?定¨,m=0表括?示?平?均·压1力 给?定¨close(3)allocate(Sa(0:num),Apa(0:num))!根·据Y规?定¨的?总哩?冲?计?算?有瓺效§装痢?药?量?mpeffmpeff=1.02*I0/Isp!计?算?推?力 系μ数簓和³喉³部?面?积yCf=sqrt(k)*(2/(k+1))**((k+1)/(k-1)/2)*sqrt(2*k*(1-(Pe/Poc)**((k-1)/k))/(k-1))At=F/Cf/(Poc*101325.0)!计?算?平?均·肉╝厚?e1和³计?算?特?征¶长¤度¯和³平?均·燃?烧?面?积yS!若?给?定¨的?是?最?大洙?压1力 则´需¯根·据Y增?面?比括?计?算?最?小?燃?面?再·计?算?平?均·燃?面?值μ!y1一?般?取?值μ在¸1附?近¹,(0.8-1.2)if(m==0) then!平?均·压1力 给?定¨S=At*(Poc*101325.0)**(1-Pn)/(Ctz*density_p*a)e1=mpeff/(density_p*S)else if(m==1) then!最?小?压1力 给?定¨S=At*(Poc*101325.0)**(1-Pn)/(Ctz*density_p*a)S=(epsilon2+1.0)*S/2.0e1=mpeff/(density_p*S)else!最?大洙?压1力 给?定¨S=At*(Poc*101325.0)**(1-Pn)/(Ctz*density_p*a)S=(1.0/epsilon2+1.0)*S/2.0e1=mpeff/(density_p*S)end ifl=d/2-e1-ry0=r/ly1=(e1+r)/l!根·据Yepsilon2选?择?角?度¯系μ数簓epsilon!计?算?取?得?最?小?周¹长¤时骸?的?thet1do while(.true.)error=thet1/2+cotan(thet1/2)-Pi/n-Pi/2if(error>=0.0001) thenthet1=thet1+0.00001else if(error<=-0.0001) thenthet1=thet1-0.00001elseexitend ifend do!计?算?角?度¯系μ数簓epsilon的?准?确º?值μdo while(.true.)backsmax=2*n*((1-epsilon)*Pi/n+y1*(Pi/n+asin(sin(epsilon*Pi/n)/y1))) smin=2*n*(sin(epsilon*Pi/n)/sin(thet1/2)+(1-epsilon)*Pi/n) if(backSmax/Smin>epsilon2) thenepsilon=epsilon+0.001elseexitend ifend do!根·据Y减?面?比括╡psilon1,?计?算?thetepsilon1=1/epsilon2foresmax=smin/epsilon1do while(.true.)error=2*n*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n+&(r1+r)*(Pi/n+Pi/2-thet/2-cos(thet/2)/sin(thet/2))/l)-foresmax if(error>=0.0001) thenthet=thet+0.00001else if(error<=-0.0001) thenthet=thet-0.00001elseexitend do!计?算?初?始?通 ?气?面?积y,?通 ?气?参?量?,?装痢?填?系μ数簓,药?柱·长¤度¯Ap=(n*((1-epsilon)*Pi/n+sin(epsilon*Pi/n)*(cos(epsilon*Pi/n)-&sin(epsilon*Pi/n)*cotan(thet/2)))+2*n*r*(sin(epsilon*Pi/n)/sin(thet/2)+&(1-epsilon)*Pi/n)/l+n*r**2*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l**2+&n*r1**2*(thet/2+cotan(thet/2)-Pi/2)/l**2)*l**2J=At/Apeta=4*(Pi*d**2/4-Ap)/(Pi*d**2)Af=(epsilon*Pi*(1+y1)**2-n*(sin(epsilon*Pi/n)*(sqrt(y1**2-sin(epsilon*Pi/n)**2)+& cos(epsilon*Pi/n)))-n*y1**2*(epsilon*Pi/n+asin(sin(epsilon*Pi/n)/y1)))*l**2etaf=4*Af/(pi*d**2)len=mpeff/density_p/(Pi*d**2/4-Ap-Af)!计?算?推?进?剂®的?燃?面?变?化ˉ规?律°并¢输?出?结®果?de=e1/numopen(10,file="export_burnS.dat")open(20,file="export_Ap.dat")do i=0,num,1if((i*de)<=r1) thenSa(i)=2*n*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n+&(r1+r)*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l-(r1-i*de)*Pi/n/l)*l*len Apa(i)=(n*((1-epsilon)*Pi/n+sin(epsilon*Pi/n)*(cos(epsilon*Pi/n)-sin(epsilon*Pi/n)* cotan(thet/2)))+&2*n*(r+i*de)*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n)/l+&n*(r+i*de)**2*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l**2+n*(r1-i*de)**2*(thet/2+cotan(thet/2 )-Pi/2)/l**2)*l**2else if((i*de)>r1.and.(i*de)<=(l*sin(epsilon*Pi/n)/cos(thet/2)-r)) thenSa(i)=2*n*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n+&(i*de+r)*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l)*l*lenApa(i)=(n*((1-epsilon)*Pi/n+sin(epsilon*Pi/n)*(cos(epsilon*Pi/n)-sin(epsilon*Pi/n)* cotan(thet/2)))+&2*n*(r+i*de)*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n)/l+&n*(r+i*de)**2*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l**2)*l**2else if((i*de)>(l*sin(epsilon*Pi/n)/cos(thet/2)-r).and.(i*de)<=e1) thenSa(i)=2*n*((1-epsilon)*Pi/n+(r+i*de)*(Pi/n+asin(l*sin(epsilon*Pi/n)/(i*de+r)))/l)*l *lenApa(i)=n*((1-epsilon)*Pi*(1+(r+i*de)/l)**2/n+sin(epsilon*Pi/n)*(sqrt((r+i*de)**2/l* *2-&sin(epsilon*Pi/n)**2)+cos(epsilon*Pi/n))+(r+i*de)**2*(epsilon*Pi/n+&asin(l*sin(epsilon*Pi/n)/(r+i*de)))/l**2)*l**2write(10,"(f10.5,2X,f15.5)") i*de,Sa(i)write(20,"(f10.5,2X,f15.5)") i*de,Apa(i)end doclose(10)close(20)!调獭?用?子哩?程²序´计?算?装痢?药?内¸弹獭?道台?曲¸线?callinternal_ballistics0(d,len,e1,n,thet,epsilon,r,r1,l,a,pn,Ctz,At,k,density_p,mpeff,Isp) !输?出?星?型³装痢?药?的?几?何?参?数簓open(30,file="export_star_geometry.dat")write(30,"(A6,f11.5,A2)") "mpeff=",mpeff,"Kg"write(30,"(A2,f8.5,A2)") "D=",d,"m"write(30,"(A2,f8.5,A2)") "L=",len,"m"write(30,"(A2,I2)") "n=",nwrite(30,"(A3,f8.5)") "θ¯=",thetwrite(30,"(A3,f7.5)") "ε?=",epsilonwrite(30,"(A2,f7.5,A2)") "r=",r,"m"write(30,"(A3,f7.5,A2)") "r1=",r1,"m"write(30,"(A3,f8.5,A2)") "e1=",e1,"m"write(30,"(A3,f10.5,A2)") "Ap=",Ap,"㎡O"write(30,"(A2,f10.5)") "J=",Jwrite(30,"(A3,f7.5)") "η?=",etawrite(30,"(A3,f10.5,A2)") "Af=",Af,"㎡O"write(30,"(A4,f10.5)") "η?f=",etafwrite(30,"(A2,f10.5)") "l=",lwrite(30,"(A3,f10.5)") "y0=",y0write(30,"(A3,f10.5)") "y1=",y1close(30)stopend!该?子哩?程²序´用?于 ?计?算?零?维?变?截?面?燃?烧?装痢?药?的?内¸弹獭?道台?!利?用?龙ⅷ?格?-库a塔t法ぁ?计?算?内¸弹獭?道台?曲¸线?!可°用?于 ?计?算?侵?蚀骸?燃?烧?效§应畖下?的?内¸弹獭?道台?曲¸线?!--------------------------------------------------------------------------!d外猘径?,len长¤度¯,e1平?均·肉╝厚?,n星?角?数簓,thet星?边?夹D角?,epsilon角?度¯系μ数簓!r过y度¯圆2弧?半?径?,r1星?角?圆2弧?半?径?和³l特?征¶尺?寸?,key表括?示?是?否?考?虑?侵?蚀骸?燃?烧?!density_p推?进?剂®的?密¹度¯,k比括?热¯?比括?ga系μ数簓,C特?征¶速·度¯,mpeff药?柱·质±量?!a速·度¯系μ数簓,pn压1强?指?数簓,At喉³部?面?积y,Pc燃?烧?室酣?的?设Θ?计?压1力 ,Isp表括?示?理え?论?比括?冲?!dt时骸?间?步?长¤,e燃?层?厚?度¯,time时骸?间?,Sa同?一?时骸?刻²轴®向´的?各¶节¸点?的?燃?面?,Apa通 ?气?面?积y!Poc各¶节¸点?的?压1力 ,Pe喷?管¹出?口¸压1力 ,P_I压1力 冲?量?,ep侵?蚀骸?比括?!P_av平?均·压1力 ,F_av平?均·推?力 ,I0总哩?冲?,Im重?量?比括?冲?Iv体?积y比括?冲?,Cf推?力 系μ数簓!--------------------------------------------------------------------------subroutineinternal_ballistics0(d,len,e1,n,thet,epsilon,r,r1,l,a,pn,Ctz,At,k,density_p,mpeff,Isp)implicit nonereal,parameter::Pi=3.14integer :: n,keyreal(kind=8),intent(in) :: d,len,e1,thet,epsilon,r,r1,lreal(kind=8),intent(in) :: density_p,k,Ctz,mpeff,Ispreal(kind=8) :: a,pn,At,dt,e,time,Sa,Apa,Poc,Pe,P_I,F real(kind=8) :: ep,P_av,F_av,I0,Im,Iv,Cf,gareal(kind=8) :: f1,f2,f3,f4Pe=101325.0P_I=0.0!药?柱·的?能¹量?特?性?参?量?读®入?open(3,file="inter_parameter.dat")read(3,*) keyread(3,*) dtread(3,*) Pocclose(3)!计?算?点?火e压1强?时骸?的?推?力 值μPoc=Poc*101325.0ga=sqrt(k)*(2/(k+1))**((k+1)/(k-1)/2)Cf=ga*sqrt(2*k*(1-(Pe/Poc)**((k-1)/k))/(k-1))F=Cf*Poc*Ate=0.0time=0.0open(10,file="export_Poc.dat")open(20,file="export_F.dat")write(10,"(f8.5,2X,f10.5)") time,Poc/101325.0write(20,"(f8.5,2X,f15.5)") time,Fdo while(.true.)!计?算?燃?面?和³通 ?气?面?积yif(e<=r1) thenSa=2*n*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n+&(r1+r)*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l-(r1-e)*Pi/n/l)*l*len Apa=(n*((1-epsilon)*Pi/n+sin(epsilon*Pi/n)*(cos(epsilon*Pi/n)-&sin(epsilon*Pi/n)*cotan(thet/2)))+2*n*(r+e)*(sin(epsilon*Pi/n)/&sin(thet/2)+(1-epsilon)*Pi/n)/l+n*(r+e)**2*(Pi/n+Pi/2-thet/2-&cotan(thet/2))/l**2+n*(r1-e)**2*(thet/2+cotan(thet/2)-Pi/2)/l**2)*l**2else if(e>r1.and.e<=(l*sin(epsilon*Pi/n)/cos(thet/2)-r)) thenSa=2*n*(sin(epsilon*Pi/n)/sin(thet/2)+(1-epsilon)*Pi/n+&(e+r)*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l)*l*lenApa=(n*((1-epsilon)*Pi/n+sin(epsilon*Pi/n)*(cos(epsilon*Pi/n)-&sin(epsilon*Pi/n)*cotan(thet/2)))+2*n*(r+e)*(sin(epsilon*Pi/n)/&sin(thet/2)+(1-epsilon)*Pi/n)/l+n*(r+e)**2*(Pi/n+Pi/2-thet/2-cotan(thet/2))/l**2)*l**2 else if(e>(l*sin(epsilon*Pi/n)/cos(thet/2)-r).and.e<=e1) thenSa=2*n*((1-epsilon)*Pi/n+(r+e)*(Pi/n+asin(l*sin(epsilon*Pi/n)/(e+r)))/l)*l*len Apa=n*((1-epsilon)*Pi*(1+(r+e)/l)**2/n+sin(epsilon*Pi/n)*(sqrt((r+e)**2/l**2-& sin(epsilon*Pi/n)**2)+cos(epsilon*Pi/n))+(r+e)**2*&(epsilon*Pi/n+asin(l*sin(epsilon*Pi/n)/(r+e)))/l**2)*l**2elseSa=0.0end if!计?算?侵?蚀骸?比括?if(key==1) thenif(Sa/Apa<=72.9) thenep=1.0elseep=1.3128-1.3249e-2*Sa/Apa+1.5527e-4*(Sa/Apa)**2-4.3868e-7*(Sa/Apa)**3end ifelseep=1.0end if!采°用?4阶¬的?龙ⅷ?格?库a塔t法ぁ?计?算?f1=ga**2*Ctz**2*(density_p*Sa*ep*a*Poc**pn-Poc*At/Ctz)/(Apa*len)f2=ga**2*Ctz**2*(density_p*Sa*ep*a*(Poc+dt*f1/2)**pn-(Poc+dt*f1/2)*At/Ctz)/(Apa*len )f3=ga**2*Ctz**2*(density_p*Sa*ep*a*(Poc+dt*f2/2)**pn-(Poc+dt*f2/2)*At/Ctz)/(Apa*len )f4=ga**2*Ctz**2*(density_p*Sa*ep*a*(Poc+dt*f3)**pn-(Poc+dt*f3)*At/Ctz)/(Apa*len) Poc=Poc+dt*(f1+2.0*f2+2.0*f3+f4)/6.0Cf=ga*sqrt(2*k*(1-(Pe/Poc)**((k-1)/k))/(k-1))F=Cf*Poc*Attime=time+dte=e+dt*ep*a*Poc**pnif(e>e1.and.Poc<101325.0) exitwrite(10,"(f8.5,2X,f10.5)") time,Poc/101325.0write(20,"(f8.5,2X,f15.5)") time,FP_I=P_I+Poc*dtend doclose(10)close(20)!循-环«结®束?P_av=P_I/timeCf=ga*sqrt(2*k*(1-(Pe/P_av)**((k-1)/k))/(k-1))F_av=Cf*P_av*AtI0=F_av*timeIm=I0/mpeff/9.81Iv=I0/(Apa*len)!输?出?固²体?火e箭y发ぁ?动ˉ机¸的?工¤作痢?参?数簓值μopen(30,file="export_propellant.dat")write(30,"('平?均·压1力 p_av=',f9.5)") p_av/101325.0write(30,"('平?均·推?力 F_av=',f10.5,1X,'KN')") F_av/1000.0 write(30,"('总哩?冲?I0=',f10.5,1X,'KN.s')") I0/1000.0write(30,"('重?量?比括?冲?Im=',f10.5,1X,'s')") Imwrite(30,"('体?积y比括?冲?Iv=',f10.5,1X,'KN.s/m3')") Iv/1000.0 write(30,"('工¤作痢?时骸?间?time=',f8.5,1X,'s')") timeclose(30)returnend subroutine。

三维药柱固体火箭发动机内弹道数值模拟_程雪玲

三维药柱固体火箭发动机内弹道数值模拟_程雪玲

n
∑ Aeb =
A
i b
+Aeb ⊥ (e
=1
,2,
… , k)
(4 )
i =1
式中 Aeb⊥为垂直于 Z 轴的燃面面积 。
∑ Aeb ⊥
=
1 2
m
(ΔY ⊥, j
j =1
+ΔY
⊥, j +1)×ΔXj
(j =1 , 2 , … , m ) (5 )
式中 ΔY ⊥, j 和 ΔY ⊥, j +1为燃层厚度内的 Y 向线
1

p0 =
aρg rc *
Ab At
1 -n
其它时刻的头部压强 pmc 为
rρg r A b
p
m c
=
p
m c
-1
+ t
1-
p
m c
-1
A
c*
t
(j 12 )
×
RT V
b
Δt
(13 )
由于上升段的压强对时间的斜率较大 , 在计算
头部压强时采用下式 :
p
m c
=Hale Waihona Puke peqRT Vb=
1
s-的燃1 -
段长度 , 如图 2 所示 。
图 2 翼柱型药柱横截面图
F ig .2 Cross section diagram of fin-cylindric g rain in fin-slot section
2 .2 分段解析法计算一维内弹道 采用分段解析法计算内弹道 , 视燃烧产物的流
动在微元时间内为定常流 , 而在两段微元时间之间 为非定常流 , 即视燃烧产物为准定常流的分段解析

_固体火箭发动机结构

_固体火箭发动机结构
2016/10/9
Δc
De ——外径的下偏差值; Di ——内径的上偏差值;
ri
min——强度计算的最小壁厚;
re
re Δc
1 De Di c 2
δ c1
δ c2
ri
D i/2
可能不满足强度要求
D i/2
燃烧室图纸尺寸 ( De图 Di图 ) / 2 c min
根据燃烧室壁厚作强度校核
燃烧室载荷分析 燃气压力 旋转时离心惯性力
运输时振动冲击力
弹道上运动的惯性力
2016/10/9
尾翼式火箭弹燃烧室壳体壁厚计算 计算假设: 忽略外部大气压强 忽略切向惯性力、摆动惯性力以及空气动力和力矩
忽略燃烧室壳体两端轴向力的差异,认为两端拉力相等
壳体为内壁受均布压力的密封容器
2016/10/9
对钢材u=0.3
R 2 0.34Pm
R2 0.34Pm
2

边缘处:

考虑周边并非固支,燃烧室有变形及受热
2
t r
3u R Pm 4 2 3 R r Pm 4
2016/10/9
尾翼式火箭弹燃烧室壳体壁厚计算
(a)按厚壁圆筒
2 ri2 pm r 1 e t 2 应力分布: re ri2 r2 2 ri2 pm r r 2 2 1 e2 re ri r

σx σr σt σr
固体火箭发动机简图(浇注)
1—顶盖;2—点火装置;3—燃烧室壳体;4—药柱; 5—底盖;6—喷管;7—石墨衬套;8—堵盖。
2016/10/9
5.1 燃烧室设计

固体火箭发动机推力公式

固体火箭发动机推力公式

固体火箭发动机推力公式
固体火箭发动机是一种火箭发动机,常用于发射任务和导弹等领域。

其推力公式是固体火箭发动机设计的重要指标之一,其计算公式为:
F =
G * Isp * (1 - e^-t/T)
其中,F表示推力,G表示燃料的质量流量,Isp为比冲,t表示时间,T为燃烧时间,e为自然对数的底数。

这个公式可以用来计算固体火箭发动机的推力大小和变化规律,为火箭发射和导弹导航等任务的设计和运行提供指导意义。

固体火箭发动机的推力大小和变化规律是由多种因素决定的,例如燃烧流场的特性、燃料的化学组成和物理性质、发动机的几何形状和结构等。

因此,在设计固体火箭发动机和计算推力公式时,需要综合考虑多种参数和变量,以确保发动机能够稳定可靠地工作。

在实际应用中,固体火箭发动机的推力公式可以用来预测发动机的性能和运行情况,为发动机的调试、控制和优化提供支持。

此外,还可以用来分析不同型号固体火箭发动机的性能差异、比较不同火箭发动机的推力大小和效率等,为火箭发射和导弹导航等任务的优化提供依据。

总之,固体火箭发动机的推力公式是固体火箭发动机设计和运行的重要指标和工具,其准确计算和合理应用对于提高发动机的性能、降低成本和提高运行安全性具有重要意义。

固体火箭发动机燃烧室与内弹道计算

固体火箭发动机燃烧室与内弹道计算

t
x
x
.
(V

V x
dx)dt

pr
Ab x
dxdt
m
整理后有:
t
(
A)

x
(
AV
)


pr
Ab x
燃烧面积
.. m+dm
. dm
dm


p
r
Ab x
dx
(2)动量方程
根据动量守恒:在dt时间内,微元体中动量的变化量=燃气 流动迁移在微元体内产生的动量增量+作用于两截面上的总压力 冲量+作用于微元体侧表面上压力冲量在x轴上的分量,即

x
(Ec

V2 2
)dx

dt

x
(
pAV
)dxdt


pr
Ab x
dxdt

Ip
整理后有:
t

A(Ec

V2 2
)

x

AV
(Ic

V2 2
)

prI
p
Ab x
Ec : 单位质量燃烧产物的内能(化学内能+热内能) Ic : 单位质量燃烧产物的总焓
1. 流动特点
燃烧室中的燃气流动具有以下特点: 燃烧室中推进剂装药不断燃烧,产生新的燃气加入主流,因此燃 气在燃烧室中的流动是一个有质量加入的流动过程; 在推进剂装药燃烧过程中,燃气的通道面积不断增大,故燃气的 流动参数是位置与时间的函数,因而是非定常流动; 燃气流过形状复杂的通道或流线变化剧烈时,将产生一定的能量 损失; 燃气的流动特性与推进剂的燃烧特性密切相关。例如燃气的压强 和流速影响推进剂的燃速,而燃速又反过来影响燃气压强和流速; 由此可见,在发动机工作过程中,燃气在燃烧室中的流动中极其 复杂的。为了研究方便,特作如下假设: 推进剂燃烧在装药燃烧表面上瞬时完成,燃气的化学组分和热力 性质均匀一致,并沿燃烧表面的外法线方向注入通道。 燃气为完全气体,服从完全气体状态方程,而且比热不变。 燃气在装药通道中作一维流动。 燃气与外界无热和功的交换。

MATLAB零维内弹道

MATLAB零维内弹道

实验三固体火箭发动机零维内弹道计算M文件:function dy=neidandao(t,y);dy=zeros(4,1);rou=y(1);p=y(2);Vc=y(3);e=y(4);d0=0.016;h0=0.08;D0=0.03;rougr=1750;k=1.17;R=300;Tp=3200;b=0.002411;n=0.315;At=pi*16*10^(-6);fai=0.95;ka=0.98;r=b*(p/1.013/10^5)^n;gama=(2/(k+1))^((k+1)/(2*(k-1)))*sqrt(k);c=sqrt(R*Tp)/gama;if e<=(D0-d0)/2Ab=pi*(d0+2*e)*h0;else Ab=0;enddy(1)=(1/Vc)*((rougr-rou)*Ab*r-(fai*p*At)/(c*sqrt(ka)));dy(2)=(1/Vc)*(rougr*Ab*r*k*R*ka*Tp-(fai*p*p*At*k)/(rou*c*sqrt(ka))-p*Ab*r); dy(3)=Ab*r;dy(4)=r;end主程序:>> [t,y]=ode45('neidandao',[0:0.00001:1.5],[1.29;101300;pi*0.008*0.008*0.08;0]); >> plot(t,y(:,2))P-t 曲线00.51 1.500.511.522.536初始段P-t 曲线00.0050.010.015024681012145燃烧终了段P-t 曲线实验总结这次实验是我们对所学课程即固体火箭发动机零维内弹道计算以及MATLAB 软件的一次练习。

通过这次实验,我了解了常微分方程组数值解法的一般过程,掌握了用MATLAB 软件的具体实现方法,得到了零维内弹道压强曲线,完成了实验的要求。

在MATLAB 中,实现常微分方程组数值解法的是ode 函数(在本实验中用的是ode45),它不需要用户自己编程,使用起来比较简单,总体来说这次实验也完成的比较顺利。

基于Pro/E软件进行固体火箭发动机内弹道计算的方法初探

基于Pro/E软件进行固体火箭发动机内弹道计算的方法初探

基于Pro/E软件进行固体火箭发动机内弹道计算的方法初探作者:王磊代义李宏来源:《中国新技术新产品》2009年第10期摘要:固体火箭发动机内弹道计算给出的推力、质量流量随时间变化的曲线一直是导弹或卫星外弹道设计的计算依据。

为适应需求,固体火箭发动机装药的几何形状需要反复调整,复杂的几何形状使内弹道计算成为一项繁琐的工作。

本文利用Pro/E软件强大的三维建模能力,通过参数化设计模拟发动机燃烧的全过程,编制简单程序实现发动机零维内弹道计算,为繁琐的计算提供了一条便捷的途径。

关键词:固体火箭发动机;内弹道计算;Pro/E软件1 引言固体火箭发动机是一种采用固体推进剂的化学火箭动力装置,在航天技术中有着广泛的应用。

内弹道计算是固体火箭发动机设计的一项重要内容,它提供的推力、流量等性能参数是导弹总体进行射程计算、散布分析及导弹姿态控制的重要依据[1]。

在满足内弹道特性和保证药柱结构完整性的前提下,设计出具有较高装填分数的药柱对于提高发动机性能具有重要的意义。

药柱几何形状的演变过程,是从简单管状药柱演变到贴壁浇注内孔(星形、车轮形等)燃烧药柱,再到具有较高装填特性的翼柱、锥柱等三维药柱。

内弹道计算的关键在于得出药柱燃面随时间的变化曲线。

有着简单几何形状的药柱,计算燃面都有较为成熟的方法。

为了探索三维药柱燃面的计算方法,国内外有关学者开展了许多工作。

目前,国外内弹道计算最为著名的方法是美国NASA的SPP法,国内较常用的是通用坐标法、有限元素法和边界坐标法。

国内的这三种方法均为数值法,由于使用原函数对复杂药柱进行精确定义很困难,通常难以精确表示燃烧过程中十分复杂的图形,以及连接各部分药柱圆角的复杂变化,所以内弹道计算的精度较差。

同时,它们的计算结果对药柱网格划分的依赖性很强,网格划分不合适,所得结果也不正确[2]。

这些方法计算得到的燃面波动性也较大,药柱初始设计的修改很复杂,数据前后处理也抽象复杂。

这些因素导致内弹道的计算成为一项繁琐复杂的工作。

固体火箭发动机零维两相内弹道研究

固体火箭发动机零维两相内弹道研究

固体火箭发动机零维两相内弹道研究陈军【摘要】为方便应用两相内弹道流动模型对火箭发动机进行性能预示以及提高性能预示精度,利用火箭喷管内的两相流动性能计算公式,建立了零维两相内弹道模型,包括零维两相内弹道微分方程和平衡压强公式,给出了模型中涉及到的两相特性参数的计算方法.相比于一维两相内弹道模型,该零维内弹道模型简单且满足必要的精度,适于工程应用的快速估算.利用该模型对某远程火箭发动机进行了内弹道计算与分析,计算结果与实验数据吻合良好,表明该两相内弹道模型可以有效地降低纯气相模型引起的理论与实际之间的模型偏差,有利于快速计算固体推进剂火箭发动机的两相内弹道参数以及提高预示精度.%To predict internal ballistic properties with two-phase flow for convenience and to improve prediction precision of internal ballistics in solid rocket motor(SRM),a model of zero-dimensional two-phase internal ballistics was built.The model includes internal ballistic differential equation and corresponding equilibrium pressure formula,and the computational methods of twophase property parameters in the model were pared with one-dimensional twophase internal ballistic model,the model is very simple and more suitable to quick computation in project applications,and more accurate.Based on the model,an internal ballistic computation and analysis for a long-range solid rocket engine were carried out.The computed results accord well with experimental data.The zero-dimensional two-phase internal ballistic model can availably reduce theoretical error caused by single-gas-phase model.By the model,two-phase internal ballisticproperties can be quickly computed,and the prediction precision of internal ballistics in SRM can be improved.【期刊名称】《弹道学报》【年(卷),期】2013(025)002【总页数】5页(P39-43)【关键词】内弹道;两相流;固体火箭发动机;固体推进剂【作者】陈军【作者单位】南京理工大学机械工程学院,南京210094【正文语种】中文【中图分类】V435随着高能推进剂在火箭发动机中的普遍应用,两相流动对发动机性能的影响越来越受到重视。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

A ( A) ( AV ) p r b t x x A ( AV ) ( pA AV 2 ) p t x x Ab V2 V2 A ( E ) AV ( I ) rI c c p p t 2 2 x x A A r b x x p RT
Hale Waihona Puke p k 1 2 1 p0 k 1
k k 1
k 1 2 f (1 2 ) 1 k 1
1 k 1
3. 流速的计算 λ-x的关系与燃速有关,即与采用的侵蚀函数形式有关, 在此就ε()形式的侵蚀函数加以讨论。
( AV )dxdt AV 2 dt ( dx) t x
(A A V dx )(V dx ) 2 dt x x A ( pA)dxdt p dxdt x x
整理后有:
A ( AV ) ( pA AV 2 ) p t x x
(在不同的时间段内流动
参数不等)的流动称为准 定常流动,即各气流参数 对时间的导数为0。 于是,有质量加入的 一维定常流动的基本方程 可归纳为:
I p Ic V 2 / 2 I c dH c p : 单位质量燃烧产物的等压比热
dA d ( AV ) p r b dx dx d dA ( pA AV 2 ) p dx dx 2 d ( H V / 2) 0 或 H V 2 / 2 H 0 c pT0 dA rs dt p RT
燃气的流速远小于当地音速
p 2 tb
推进剂密度远大于燃气密度 流动参数发生显著变化的时间要远 小于装药燃烧时间
以上条件在SRM中是完全可以满足的。
(2) 准定常假设 假设燃气在燃烧室内 流动时,燃气流动的时间
划分为多个时间段,则在
某一时间段内各气流参数 不随时间的变化而变化
燃烧面积 . m . dm
dm p r Ab x
A V (V dx)dt p r b dxdt x x
. . m+dm
整理后有:
A ( A) ( AV ) p r b t x x
dx
(2)动量方程
根据动量守恒:在dt时间内,微元体中动量的变化量=燃气 流动迁移在微元体内产生的动量增量+作用于两截面上的总压力 冲量+作用于微元体侧表面上压力冲量在x轴上的分量,即
S:通道截面形状的周长
H 0 : 单位质量燃烧产物的滞止焓 T0 : 燃烧产物的滞止温度
二、燃烧室中燃气流动参数的计算
由前面分析可知,燃气在燃烧室内流动时,其控制方程为:
VA p Ab r p V 2 Const V2 H 0 Const H 2 p RT
对于完全气体,等压比热不变,故: T01 T02 T0 即在装药通道全长上,气流的滞止焓和滞止温度保持不变。在不 计热损失的条件下,滞止温度即为推进剂的等压燃烧温度,它可 由热力计算求得。
2. 任意截面参数与气动函数 根据各控制方程,可求得各气流参数与速度系数λ的关系。 (1)静温比 在1-1截面上,V1=0,由能量方程,可得故T1=T01。因而通道 任一截面与1-1截面上的静温比就等于该截面上的静温与滞止温 度之比: T T T k 1 2 1 T1 T01 T0 k 1 (2)密度比 由动量方程,可得等截面通道中任一截面与1-1截面上的密 度比: pT 1
A(x+dx,t)和装药的微元燃烧 表面 Ab / x dx 所围成。在
两个截面上,燃气压强、密度、 温度、流速分别为 p, , T ,V 和 p p / x dx, / x dx,
T T / x dx,V V / x dx,
A p T V
Ec : 单位质量燃烧产物的内能(化学内能+热内能) I p : 单位质量推进剂所含的总能量(总焓)
I c : 单位质量燃烧产物的总焓 I c Ec P / P / 压力势能
(4)几何燃烧方程 在dt时间内,微元体体积的变化量=装药燃烧掉的体积量, 即: Ab A
x dtdx rdt x dx
固体火箭发动机燃烧室及
内弹道计算
燃气在燃烧室中的流动
一、燃烧室中燃气流动的特点及控制方程
二、燃烧室中燃气流动参数的计算
一、燃烧室中燃气流动的特点及控制方程
在固体火箭发动机中,推进剂燃烧生成的燃气通过燃烧室 中的装药通道从喷管高速排出。由于燃烧室和喷管各有不同的 结构特点,故燃气在燃烧室和喷管中的流动也具有不同的特点。 燃烧室中有固体推进剂装药、点火装臵和挡药板等零件。固体 推进剂装药在燃烧室中燃烧成为具有一定压力和温度的燃气。 该燃气以一定的流速通过燃烧室内的燃气通道进入喷管。本章 讨论燃气在燃烧室中流动的基本规律。 燃气在燃烧室中的流动十分复杂,其流动界面是装药的燃 烧表面和燃烧室的内表面。在装药燃烧表面上不断生成燃气加 入燃气通道,即装药的燃烧表面是燃气的生成源。同时装药燃 烧过程中,装药燃烧表面以一定的燃烧速度沿其内法线方向不 断推移,使装药通道截面积不断扩大。由此可见,燃烧室中燃 气流动过程与装药的燃烧过程密切相关,并相互影响。
Ab dx x
dx
P和V的正方向与x正向一致。
(1)连续方程/质量方程 根据质量守恒定律:在dt时间内,微元体中质量的变化量= 燃气流动迁移在微元体内产生的质量增量+装药燃烧进入微元体 的质量,即:
A ( Adx)dt AVdt ( dx)( A dx) t x x
Ab V2 V2 ( E ) ( E ) dx dt ( pAV ) dxdt r dxdt c c p Ip 2 x 2 x x
整理后有:
Ab V2 V2 A ( E ) AV ( I ) rI c c p p t 2 2 x x
1

1
p1T

1
2


(3)静压比 由动量方程及状态方程,可得在等截面通道中任一截面与11截面上的静压比:
p RT T 1 ( ) r ( ) 2 p1 1 RT1 1 T1 1
(4)总压比
p0 p p p p 1 1 0 0 r p01 p p01 p p1 f
列出与λ的关系
与2截面参数比较,得λ的一元二次 方程,求解定值x处的λ值,从而求 出各气流参数相应比值
()=
2 1n p1 1 21n p a RT0

z 1 r n
1
K
z 1 r n
1
对于2截面,即=2 , 2 ,则
性,将上述5个方程简化为定常流动方程组,从而得到方程的
解析解。 (1) 定常假设 严格上,燃气流动通道在随时间变化,属于非定常流动,但 只要满足 p / t 0, V / t 0, A / t 0, 即可处理为定常流动。
若A / t 0, 欲使p / t 0, V / t 0, 则 V a 若p / t 0, V / t 0, 欲使A / t 0, 则
2. 控制方程
燃气在燃烧室内流动时,应遵守自然界的普遍规律,下面将采 用微元体法,导出燃气运动的基本方程。 在侧面燃烧装药的燃气通 道中,取长度为dx的微元体,
A dx x p p dx x dx x T T dx x V V dx x A
它由通道左右两截面A(x,t)和
2
H0
H
0
2H 0
V
静焓、总焓和流速的变化关系
,总焓和流速的关系如图。
熵:物理学上指热能除以温度所得的商,标志热量转化为功的程度,是表征物质 内部状态的物理量。
滞止状态 V =0 p=p0 T=T0 ρ= ρ0
1
2
V p T ρ
1
静参数与滞止参数 一一对应
2
内侧面燃烧装药发动机示意图
H 01 H 02 H 0 c pT0 根据能量方程可知:
1. 滞止状态 气流从某一状态绝能等熵地 滞止到速度为零的状态称为(该 状态的)滞止状态,它是一种假 想的参考状态(也可以是真实状 态)。滞止状态下的气流参数称 为滞止参数,用下标 “0”表示。 滞止参数是描述可压缩流的一个 参数,它的物理意义是:如果用 一根小管将某点的气流等熵的引 至一个容器中,则容器内的压强、 温度就是气流中该点的滞止压强 p0和滞止温度T0。 V2 由能量方程有: H H 0 Const
整理后有:
A A r b x x
(5)状态方程
根据燃气为完全气体的假设,燃气的状态方程为
p RT
以上5个方程为有质量加入的一维非定常流动的基本方程
组,它可用来描述SRM燃烧室中装药通道内的燃气流动过程, 用数值法可求解五个未知参数 p, , T ,V , A 的变化规律。
3. 准定常流动假设 在一定条件下,可以忽略气体非定常流动所引起的不均匀
(3) 能量方程 根据能量守恒:在dt时间内,微元体中能量的变化量=燃气 流动迁移在微元体内产生的能量增量+推进剂燃烧加入的能量, 即
V2 V2 A V A( Ec ) dxdt AV ( Ec )dt ( dx)( A dx)(V dx) t 2 2 x x x
2(2) = K 两式相比,得
z 2 1 r 2 z 1 r 2(2)
根据质量守恒定律,建 立任一截面1的质量方程 引入气动力函数与面通比
VA p Ab r
相关文档
最新文档