数模论坛

 找回密码
 注-册-帐-号
搜索
热搜: 活动 交友 discuz
楼主: chaichao

[原创]提醒:再次更新后的05B题第二问答案C编程lingo编程

  [复制链接]
发表于 2005-9-19 00:28:25 | 显示全部楼层
所以P(d)= p(a)* p(d/a)+ p(b)* p(d/b)=0.6x/10000+ 0.4x/20000=0.8x/10000<FONT face="宋体, MS Song"> </FONT>
< 0pt? 0cm><FONT face="Times New Roman">
<br></FONT>
<p>则愿意看dvd1的会员在一月后能看到dvd1的人数的期望<FONT face="宋体, MS Song"> </FONT>
< 0pt? 0cm><FONT face="Times New Roman">
<p></FONT>
<p>E(C)=E(C1)+ E(C2)+ E(C3)+…. E(C20000)=20000*P(d)= 20000*0.8x/10000&gt;=20000*0.5<FONT face="宋体, MS Song"> </FONT>
< 0pt? 0cm><FONT face="Times New Roman">
<p></FONT>
<p>所以x=6250;
发表于 2005-9-19 00:49:25 | 显示全部楼层
<>什么玩意??????</P>
<>不懂??~~~~~~~</P>[em07]
发表于 2005-9-19 00:52:01 | 显示全部楼层
<>好像解不出来啊!</P>
发表于 2005-9-19 00:54:18 | 显示全部楼层
??????????????/
发表于 2005-9-19 01:02:28 | 显示全部楼层
<>重新再发一次嘛</P>
 楼主| 发表于 2005-9-19 01:30:37 | 显示全部楼层
<>include&lt;stdio.h&gt;///////////////// 适合第一题<BR>#include&lt;math.h&gt;<BR>#define N 1000<p></p></P>
<>double f(double x)<BR>{  return pow(x,-2);}<p></p></P>
<>double zhongzhi(double a,double h,int n1)<BR>{double m=0.0;<BR>   int k;<BR>    for(k=0;k&lt;=n1;k++)<BR>     m=m+f((k*h+a+(k+1)*h+a)/2);<BR>return m;}<p></p></P>
<P><BR>double pow1(int k,int r)<BR>{     <BR>int f=1,i;<BR>for(i=0;i&lt;r;i++)<BR>f*=k;<BR>return f;<BR>}<BR>               <BR>double longbg(double a,double b,double e )<BR>{   long int n=1;<BR>int i,j,p,q;<BR>double h=0.0,m1=0.0,g[N][N]={0};<BR>    h=b-a;                     <BR>g[0][0]=h/2*(f(a)+f(b)); <BR>for(i=1;i&lt;N;i++)<BR>    {  g[0]=(double)1/2*g[i-1][0]+h/2*zhongzhi(a,h,n-1); <p></p></P>
<P>      <BR>       for(j=1;j&lt;=i;j++)<BR>           <BR>    g[j]=pow1(4,j)/(pow1(4,j)-1)*g[j-1]-1/(pow1(4,j)-1)*g[i-1][j-1];<BR>  <BR>   <BR>  <BR>   n*=2;<BR>     <BR>   h=(double)(b-a)/n;<BR>    <p></p></P>
<P>        <BR>        <BR>    if(fabs(g-g[i-1][i-1])&lt;e) break; <BR>  p=i;q=j;<BR>     <BR>  }<BR>/* printf("龙贝格矩阵为:\n");<BR>  for(i=0;i&lt;=p;i++){<BR>  printf("\n");<BR>  for(j=0;j&lt;=i;j++)<BR>   printf("   %.7lf",g[j]);}<BR>     <BR>  printf("\n满意 积分的值为  :%.7lf\n",g[p][q-1]);*/<BR>m1=g[p][q-1];<BR>  return m1;<BR>}<p></p></P>
<P>void main()<BR>{<BR>int i,n2;<p></p></P>
<P><BR>double a,b,h=0.0,e=0.0,len=0.0,T=0.0;<p></p></P>
<P>printf("请输入所满意积分的下界和误差极限:A,e:");<BR>scanf("%lf%lf",&amp;a,&amp;e);<BR>printf("输入DVD 的个数N2和 类别 len:\n");<BR>scanf("%d  %lf",&amp;n2,&amp;len);<BR>  printf("所输入的日期 初始点为=%lf     分周期 为 =  %d",a,n2); <p></p></P>
<P>b=a+len;<BR>for(i=1;i&lt;=n2;i++)<BR>{T=T+longbg(a,b,e);<BR>  a=b;<BR>  b=a+len;<BR>if(f(b)&lt;e)break;<BR>}<BR>printf("  所求的满意度常积分为: %lf",T);<p></p></P>
<P><STRONG>  </STRONG><STRONG>只是部分:</STRONG><p></p></P>
<P>MODEL:<BR>SETS:<BR>  demand/1..100/:d;<BR>  supply/1..1000/;<BR>  link(demand,supply):c,x,a;<BR>endsets<BR>data:<BR>d=<BR>enddata<p></p></P>
<P><a href="http://www.shumo.com/bbs/mailta=@if(#gt#0,1/c,0" target="_blank" >a=@if(#gt#0,1/c,0</A>);<p></p></P>
<P><a href="http://www.shumo.com/bbs/mailtmin=@sum(days" target="_blank" >min=@sum(days</A>: start);<BR>  @for(days(J):<BR>    @sum(days(I) | I #le# 5:<BR>      start(@wrap(J+I+2,7))) &gt;= required(J));<BR>end</P>
<P><p></p> </P>[em01][em01][em01][em01][em01][em01][em01][em01]
发表于 2005-9-19 01:34:05 | 显示全部楼层
<>真是好人加大人</P>
 楼主| 发表于 2005-9-19 03:18:53 | 显示全部楼层
ding  [em04][em04][em04]
 楼主| 发表于 2005-9-19 04:54:04 | 显示全部楼层
dingding[em02][em02][em02]
发表于 2005-9-19 07:14:41 | 显示全部楼层
第四问有和想法,给点建议[em01]
您需要登录后才可以回帖 登录 | 注-册-帐-号

本版积分规则

小黑屋|手机版|Archiver|数学建模网 ( 湘ICP备11011602号 )

GMT+8, 2024-12-28 15:27 , Processed in 0.088901 second(s), 13 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表