● 电子轨迹 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: playboy (为了钱，努力！), 信区: Program
标  题: 电子轨迹
发信站: BBS 荔园晨风站 (Wed Jan 12 08:50:19 2000), 转信

#include<graphics.h>
#include <stdlib.h>
#include<math.h>
#include<conio.h>
#include <dos.h>
#define pai 3.14159265
void elli2(int )   ;
void circ(int ,int )  ;
int x0,y0,a,b;float i;int k=1;

void  main()
   {
     int gdriver=DETECT,gmode,clr,j;
     initgraph(&gdriver,&gmode,"F:\\TURBOC3 ");
     x0=getmaxx()/2;y0=getmaxy()/2;a=200;b=50;
     for (i=0,j=0;;i+=0.10,j+=15)
       { if (j==720) j=0;
         cleardevice();
         //elli2(j);
         //circ(1,j);
         //elli2(j+120);
         //circ(2,j+120);
         elli2(j+240);
         circ(0,j+240);
         delay(200);
        if (kbhit()) break;
   }
   closegraph();
}

void  elli2(int j)
    {
      int i,th,x,y;
      th=0;
      for (i=1;i<1000;i++)
        {
          th=th+pai;
          x=x0+a*cos(th)*cos(k*pai*j/360)-b*sin(th)*sin(k*pai*j/360);
          y=y0+a*cos(th)*sin(k*pai*j/360)+b*sin(th)*cos(k*pai*j/360);
          putpixel(x,y,2);
         }

     }

  void circ(int s,int j)
    {
      int m,th,x,y,p;
      setcolor(13);
      x=x0+a*cos((3-s)*i)*cos(k*pai*j/360)-b*sin((3-s)*i)*sin(k*pai*j/360);
      y=y0+a*cos((3-s)*i)*sin(k*pai*j/360)+b*sin((3-s)*i)*cos(k*pai*j/360);
      circle(x,y,2);
    }

--
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.90]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店