开发工具:
文件大小: 1kb
下载次数: 0
上传时间: 2013-01-19
详细说明： 龙贝格发包方法求积分#include #include void main() { int n=1,k=0; double h,T2,S2=0,C2=0,R2=0,T1,C1,S1,R1,a=0,b,e=0.001; double f(double b); double P,rou,rou0=1.206,TAO; double P0=1E5,Rq=287,tao0=288.9; double A1=230,G1=6.328E-3,c1=1.172E-6; printf("please input 高度b:\n"); scanf("%lf",&b); if(0<=b&&b<=9300) TAO=tao0-G1*b; else { if(9300e) { double sum=0; int i; R1=R2; T1=T2; S1=S2; C1=C2; for(i=1;i<=n;i++) { sum=sum+f(a+(2*i-1)*h); } T2=T1/2+sum*h; S2=(4*T2-T1)/3; C2=(16*S2-S1)/15; R2=(64*C2-C1)/63; n=n*2; k++; h=h/2; } P=P0*exp((-1*R2)/Rq); printf("气压：P=%lf\n",P); rou=(P*tao0*rou0)/(P0*TAO); printf("密度：rou=%lf\n",rou); } double f(double b) { double A1=230,G1=6.328E-3,c1=1.172E-6; double tao0=288.9,P0=1E5; double Q; if(0<=b&&b<=9300) Q=9.8/(tao0-G1*b); else { if(9300
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
