久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 3818|回復: 1
打印 上一主題 下一主題
收起左側

利用物理知識，用C語言繪制電場線和磁感線源程序

[復制鏈接]
跳轉到指定樓層
樓主
ID:612762 發表于 2020-3-3 19:39 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
  1. // 直線靜電場.cpp : 定義控制臺應用程序的入口點。
  2. //

  4. #include "stdafx.h"
  5. #include <graphics.h>
  6. #include <math.h>
  7. #define PI 3.1415926535
  8. #define L 200
  9. #define R 100
  10. #define N 1000
  11. #define M 50000
  12. #define LINE 12

  14. double Bx(double O,double x,double y)
  15. {
  16.         double r1,r2;
  17.         r1=sqrt(pow(x,2)+pow(y,2)+R*R-2*y*R*cos(O));
  18.         r2=sqrt(pow(L-x,2)+y*y+R*R-2*y*R*cos(O));
  19.         return((R*R-y*R*cos(O))/pow(r1,3)+(R*R-y*R*cos(O))/pow(r2,3));
  20. }

  22. double By(double O,double x,double y)
  23. {
  24.         double r1,r2;
  25.         r1=sqrt(pow(x,2)+pow(y,2)+R*R-2*y*R*cos(O));
  26.         r2=sqrt(pow(L-x,2)+y*y+R*R-2*y*R*cos(O));
  27.         return(x*R*cos(O)/pow(r1,3)+(x-L)*R*cos(O)/pow(r2,3));
  28. }

  30. int main()
  31. {
  32.         initgraph(800,800,SHOWCONSOLE);
  33.         setbkcolor(WHITE);
  34.         cleardevice();
  35.         setorigin(400,400);
  36.         setlinestyle(PS_DASH|PS_ENDCAP_SQUARE,2);
  37.         setlinecolor(RED);
  38.         line(0,-400,0,400);
  39.         ellipse(-30,R,30,-R);
  40.         ellipse(170,R,230,-R);
  41.         setlinestyle(PS_SOLID|PS_ENDCAP_SQUARE,2);
  42.         setlinecolor(BLACK);
  43.         line(-400,0,400,0);

  45.         double r,x,y,O,dO,bx,by,BBx,BBy,B,x0,y0,a[LINE-1];
  46.         dO=2*PI/N;
  47.         for(int i=1;i<LINE;i++)
  48.         {
  49.                 a[i-1]=R-i*2*R/LINE;
  50.         }
  51.         for(int i=0;i<LINE;i++)
  52.         {
  53.                 x=0;
  54.                 y=a[i];
  55.                 if(y==0)
  56.                 {
  57.                         continue;
  58.                 }
  59.                 for(int j=0;j<M;j++)
  60.                 {
  61.                         bx=(Bx(0,x,y)+Bx(2*PI,x,y))/2;
  62.                         by=(By(0,x,y)+By(2*PI,x,y))/2;
  63.                         for(int k=1;k<=N-1;k++)
  64.                         {
  65.                                 O=k*dO;
  66.                                 bx=bx+Bx(O,x,y);
  67.                                 by=by+By(O,x,y);
  68.                         }
  69.                         BBx=bx*dO;
  70.                         BBy=by*dO;
  71.                         B=sqrt(pow(BBx,2)+pow(BBy,2));
  72.                         x0=x+BBx/B;
  73.                         y0=y+BBy/B;
  74.                         line(x,y,x0,y0);
  75.                         if(pow(x0+1,2)<=1&&pow(y0-a[i],2)<=4)
  76.                         {
  77.                                 break;
  78.                         }
  79.                         x=x0;
  80.                         y=y0;
  81.                 }
  82.         }
  83.         system("pause");
  84. }
復制代碼

全部資料51hei下載地址：
line.rar (4.2 KB, 下載次數: 14)

評分

參與人數 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

沙發
ID:867907 發表于 2020-12-25 17:43 | 只看該作者
寫的很好
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板： 午夜视频在线播放 | 日韩at| 亚洲三级国产 | 91一区二区在线观看 | 天天爱综合 | 亚洲免费视频一区 | 国产欧美二区 | 91综合网 | 亚洲成人午夜电影 | 天堂av在线影院 | 国产高清一区二区 | 亚洲福利片 | 午夜精品91| 户外露出一区二区三区 | 久久九九99 | 欧美精品久久久 | 成人一区二区三区在线观看 | 日韩毛片在线观看 | 日韩精品网站 | 奇米四色在线观看 | 久久久国产一区二区三区四区小说 | 国产视频1 | 中文字幕一区二区在线观看 | 精品欧美一区二区精品久久 | 96国产精品久久久久aⅴ四区 | 成人午夜精品一区二区三区 | 午夜精品久久久久久久久久久久久 | 美女福利网站 | 中文字幕一区二区在线观看 | 久久性av| 国产黄色网址在线观看 | 最新免费视频 | 国产精品综合一区二区 | 国产精品久久久久久福利一牛影视 | 欧美一区二区三区在线观看 | 亚洲精品国产一区 | 成人福利在线 | 亚洲精品视 | 精品中文在线 | 免费观看羞羞视频网站 | 亚洲精品视频在线 |