| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 476 人关注过本帖
标题:谁帮忙下解释这段代码,谢谢了,急!!!
只看楼主 加入收藏
cqhguy1987
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2008-1-26
收藏
 问题点数:0 回复次数:1 
谁帮忙下解释这段代码,谢谢了,急!!!
/*最小二乘法用抛物线拟合五个点的数值分析问题2006-11-17 21:49TC环境下编译通过.大家可以自己设置路径.题目如下:用一条抛物线y=ax*x+b*x+c拟合以下数据,使误差平方和最小        i     1     2     3     4     5
                           xi    0     4     8    24    40
                           yi    80   130  180     335    377
求出真解,

再画出 y=80+300sin(圆周率*x/74)图形.)以上五个点均在此曲线上)
与上面的拟合曲线画在同一坐标系下.标出真解*/

#include <stdio.h>
#include <graphics.h>
#include <conio.h>
#include <stdlib.h>
#include <math.h>
#define PI 3.1415927
double x[5]={0, 4 ,8, 24, 40};
double y[5]={80, 130, 180, 335, 377};

void draw1()
{
     int i, j;
     double x, y;

     setcolor(1);
     for (i=0; i<40; i++)
     {
          x=(double)i;
          y=80+300*sin(PI/74.0*x);
          if (i==0)
           moveto(10*x+100, getmaxy()-y);
          else
           lineto(10*x+100, getmaxy()-y);
     }
}

void draw2()
{
     int i, j;
     double p1[4]={0}, p2[4]={0}, p3[4]={0};
     double a, b, c;
     double x1, y1,p20,p30,p31;

     for (i=0; i<5; i++)
     {
          p1[0]+=pow(x[i], 4);
          p1[1]+=pow(x[i], 3);
          p1[2]+=pow(x[i], 2);
          p1[3]+=pow(x[i], 2)*y[i];
     }

     for (i=0; i<5; i++)
     {
          p2[0]+=pow(x[i], 3);
          p2[1]+=pow(x[i], 2);
          p2[2]+=x[i];
          p2[3]+=x[i]*y[i];
     }

     for (i=0; i<5; i++)
     {
          p3[0]+=pow(x[i], 2);
          p3[1]+=x[i];
          p3[2]+=1;
          p3[3]+=y[i];
     }

     p20=p2[0];
     p30=p3[0];
     for (i=0; i<4; i++)
     {
          p2[i]-=(p1[i]*p20/p1[0]);
          p3[i]-=(p1[i]*p30/p1[0]);
     }

     p31=p3[1];
     for (i=0; i<4; i++)
     {
            p3[i]-=(p2[i]*p31/p2[1]);
     }

     c=p3[3]/p3[2];
     b=(p2[3]-p2[2]*c)/p2[1];
     a=(p1[3]-p1[2]*c-p1[1]*b)/p1[0];

     printf("\na=%lf, b=%lf, c=%lf\n", a, b, c);

     setcolor(2);
     for (i=0; i<40; i++)
     {
          x1=(double)i;
          y1=a*x1*x1+b*x1+c;
          if (i==0)
           moveto(10*x1+100, getmaxy()-y1);
          else
           lineto(10*x1+100, getmaxy()-y1);
     }
}

void zuobiao()
{
     setcolor(15);
     line(100, getmaxy(), 550, getmaxy());
     line(140, getmaxy(), 140, getmaxy()-10);
     outtextxy(140, getmaxy()-20, "4");
     line(180, getmaxy(), 180, getmaxy()-10);
     outtextxy(180, getmaxy()-20, "8");
     line(340, getmaxy(), 340, getmaxy()-10);
     outtextxy(340, getmaxy()-20, "24");
     line(500, getmaxy(), 500, getmaxy()-10);
     outtextxy(500, getmaxy()-20, "40");

     line(100, getmaxy(), 100, 100);
     line(100, getmaxy()-80, 90, getmaxy()-80);
     outtextxy(65, getmaxy()-80, "80");
     line(100, getmaxy()-130, 90, getmaxy()-130);
     outtextxy(65, getmaxy()-130, "130");
     line(100, getmaxy()-180, 90, getmaxy()-180);
     outtextxy(65, getmaxy()-180, "180");
     line(100, getmaxy()-335, 90, getmaxy()-335);
     outtextxy(65, getmaxy()-335, "335");
     line(100, getmaxy()-377, 90, getmaxy()-377);
     outtextxy(65, getmaxy()-377, "377");

     outtextxy(300, 250, "BLUE: y=80+300*sin(PI*x/74)");
     outtextxy(390, 275, "2");
     outtextxy(300, 280, "GREEN: y=ax +bx+c");
}

void main()
{
     int gdriver=DETECT,gmode,errorcode;

     initgraph(&gdriver,&gmode,"D:\\TC\\bgi");
     errorcode=graphresult();

     if(errorcode!=grOk)
     {
         printf("Graphics error:%s\n",grapherrormsg(errorcode));
         printf("Press any key to halt:");
         getch();
         exit(1);
     }

     draw1();
     draw2();
     zuobiao();
 
     getch();
     closegraph();
}
搜索更多相关主题的帖子: 解释 代码 
2008-01-26 21:42
hangeng
Rank: 2
等 级:论坛游民
帖 子:424
专家分:39
注 册:2007-7-23
收藏
得分:0 
求高人解释!
不过我对这段代码不感兴趣!

楼上,我估计没人会给您解释的!

  雨水冲不进窗来,在玻璃上痛哭。但它至少奋斗过。
2008-01-26 22:32
快速回复:谁帮忙下解释这段代码,谢谢了,急!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017290 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved