两正点电荷产生电场线

原创 2007年09月27日 21:45:00
我的网站http://www.tigerion.cn
 /* 两异号电荷产生电场线 */
#include "stdio.h"
#include "graphics.h"
#include "math.h"

#define K 300.0
#define PI 3.141592653
typedef struct  /*点元素*/
   {
         double x;
         double y;
   }dotxy;    
void main()
  {
     dotxy p1,p2;
     int gd=DETECT,gm;
     char c=0;
     void drel(dotxy p1,dotxy p2);
     void dreball(dotxy p1,dotxy p2);
     void message();
       registerbgidriver(EGAVGA_driver);
        initgraph(&gd,&gm,"");
        p1.x=170;p2.x=470;
        p1.y=p2.y=240;
        do
           {  
                 cleardevice();
                 message();
                 switch (c)
                    {
                       case 'u':
                         case 'U': p2.y-=2;break;
                       case 'd':
                       case 'D': p2.y+=2;break;
                       case 'l':
                       case 'L': p2.x-=2;break;
                       case 'r':
                       case 'R': p2.x+=2;break;
                    }
                 dreball(p1,p2);
              drel(p1,p2);
              drel(p2,p1);
           }
        while((c=getch())!='e'&&c!='E');
        getch();
        closegraph();
     
  }
void dreball(dotxy p1,dotxy p2)   /*画‘p2’一侧的电场线 */
  {
          setcolor(15);
          circle(p1.x,p1.y,10);
        circle(p2.x,p2.y,10);
        line(p1.x-5,p1.y,p1.x+5,p1.y);
        line(p2.x-5,p2.y,p2.x+5,p2.y);
       /* line(p1.x,p1.y-5,p1.x,p1.y+5);*/
       line(p2.x,p2.y-5,p2.x,p2.y+5);
  }
void drel(dotxy p1,dotxy p2)
  {
       int i;
       dotxy p3;
       double b,r1,r2,fx,fy,dx,dy;/*r1,r2为平面内一点到两电荷距离的立方*/
                                  /*fx,fy分别是X方向和Y方向受力*/
        setcolor(4);
          for(b=0.1;b<=2*PI;b+=PI/6)
             {
                   p3.x=p2.x+12*cos(b);
                   p3.y=p2.y+12*sin(b);
                   for(i=0;i<500;i++)
                      {
                          putpixel(p3.x,p3.y,1+i/20%15);
                          r1=pow((p3.x-p1.x)*(p3.x-p1.x)+(p3.y-p1.y)*(p3.y-p1.y),1.5);
                          r2=pow((p3.x-p2.x)*(p3.x-p2.x)+(p3.y-p2.y)*(p3.y-p2.y),1.5);
                          fx=-K/r1*(p3.x-p1.x)+K/r2*(p3.x-p2.x);
                          fy=-K/r1*(p3.y-p1.y)+K/r2*(p3.y-p2.y);
                          dx=fx/sqrt(fx*fx+fy*fy);/*由fx,fy算出切线方向的单位向量*/
                          dy=fy/sqrt(fx*fx+fy*fy);
                          p3.x+=dx;
                          p3.y+=dy;
                      }
             }
  }  
void message()
  {  
       setcolor(15);
       outtextxy(40,40,"U->up");
       outtextxy(240,40,"D->down");
       outtextxy(40,100,"L->left");
       outtextxy(240,100,"R->right");
       outtextxy(140,70,"E->exit");
  }



我的网站http://www.tigerion.cn


电场线模拟实验

如图:
  • stpeace
  • stpeace
  • 2017年10月22日 22:20
  • 1546

关于电荷放大器的问题

关于电荷放大器的问题首先来看电路: 该电路用于将压电陶瓷片受到压力后产生的电荷信号转化为电压信号。但在测量过程中出现了下图的波形: 先简要说明一下该波形图: 该波形图的原始信号是用压电陶瓷片测量...
  • u013993293
  • u013993293
  • 2015年10月31日 16:00
  • 2699

电荷放大器设计 charge amplifier design

之前也有做过
  • ziqian0512
  • ziqian0512
  • 2014年05月23日 20:56
  • 1170

使用PHP绘制电场线

使用PHP语言绘制电场线
  • dr_dargon
  • dr_dargon
  • 2016年12月03日 02:22
  • 238

电荷放大器的Matlab仿真

在上一篇文章中写到了在电荷放大电路这块所遇到的问题,到现在依旧无解。 其实在遇到这个问题之后,我尝试过从电路的数学模型中去分析产生这种现象的,希望能从理论上找到原因。虽然最终的结果不尽人意,但对我的...
  • u013993293
  • u013993293
  • 2015年11月16日 15:39
  • 459

红外遥控波形解码1(基于正点原子战舰开发板)

1.实验介绍 采用协议:NEC协议 协议特点:8位的地址和8位的指令长度,地址命令两次传输,红外载波占空比代表0和1 电平表示:逻辑1  560us高电平+1680us的低电平(2.24ms) 逻辑0...
  • askmingcle
  • askmingcle
  • 2017年04月15日 22:08
  • 260

基于正点原子战舰开发板的贪吃蛇游戏

下午搞了一个贪吃蛇游戏,基本原子战舰开发板,通过外接游戏手柄控制蛇前进的方向以及速度。 主函数代码:#include "led.h" #include "delay.h" #include "key...
  • windows260
  • windows260
  • 2016年03月22日 18:32
  • 565

(正点原子例程)wifi实验(7.16)

正点原子wifi实验分析:    fatfs文件系统分为三个层:应用层、FATFS模块、FATS模块提供底层接口驱动层。     1.应用层只需要调用FATS提供的接口函数,如f_open、f_rea...
  • liuwei423210896
  • liuwei423210896
  • 2015年07月17日 09:58
  • 2225

正点原子 10 新建工程模板

1,  新建一个文件夹   (Template)  用来存放全部工程文件 2,        在Template文件夹中再建五个文件夹:CORE    FWLIB  OBJ  SYSTEM  USER...
  • asty008
  • asty008
  • 2017年01月02日 22:20
  • 659

正点

真系唔知讲咩好,静系知道老师叫我开的,唯有晒下亚冠决赛,挺我恒大
  • u012893090
  • u012893090
  • 2013年11月20日 12:49
  • 241
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:两正点电荷产生电场线
举报原因:
原因补充:

(最多只允许输入30个字)