绘制理查德森(Richardson)热电子发射方程曲线

最新推荐文章于 2025-05-01 21:36:18 发布
gisshow135540019
最新推荐文章于 2025-05-01 21:36:18 发布
阅读量1.5k
点赞数 13
文章标签： c++ 算法
本文链接：https://blog.csdn.net/gisshow135540019/article/details/135055369
版权
//--------------------------------------------------------------------------------------------------------------------
//绘制理查德森(Richardson)热电子发射方程曲线
//1.已知理查德森热电子发射方程形式为:I=A*T*T*exp(-X/(K*T)).
//2.其中:I-电流密度,单位:A/cm^2(安培/厘米^2).
//3.     A-与材料有关的常数,对于钽(Ta),通常A=60.2 A/(cm^2 * K^2).
//4.     T-绝对温度,单位:K.对于钽(Ta),通常取T=2500K.
//5.     X-溢出功,阴极材料的溢出功,对于钨,4.55eV;对于钽,4.1eV.
//6.     K-玻尔兹曼常数,K=1.3806505*10^(-23)J/K=8.617385*10^(-5)eV/K,(1/K)=11604.5,取值为11610.
//7.     (X/K)通常取47500K.
//程序编制要求:
//1.常数A,阴极材料溢出功X交互读取.
//2.温度T由程序交互输入.
//3.要求能描述温度T从(2000~3000K)变化时电流密度的变化规律.
//--------------------------------------------------------------------------------------------------------------------
/*#include <graphics.h>//包含Easyx模拟TC的BGI绘图库头文件
#include <math.h>//包含数学运算头文件
#define T1 2000//始端温度
#define T2 3000//末端温度
#define DD 40//宏定义标题边框距离
#define DW 10//宏定义宽度边框距离
#define DH 10//宏定义高度边框距离
#define DC 200//宏定义控件区域宽度
#define nx 10//宏定义x轴刻度数量
#define ny 10//宏定义y轴刻度数量
#define PI 3.1415926//宏定义圆周率
#define c1 RGB(38,47,86)//宏定义辅助线颜色1
#define c2 RGB(38,47,86)//宏定义辅助线颜色2
#define c3 RGB(255,255,255)//宏定义文字及边框颜色
#define c4 RGB(255,0,0)//宏定义曲线颜色1(红色)
#define c5 RGB(0,0,255)//宏定义曲线颜色2(蓝色)
//定义结构体-------------------------------------------------------------------------------------------------------
typedef struct points
{
	double x,y;//定义双精度变量
}DPOINT;//结束结构体
//定义全局变量-----------------------------------------------------------------------------------------------------
int W = GetSystemMetrics(SM_CXSCREEN);//获取整个屏幕右下角X坐标
int H = GetSystemMetrics(SM_CYSCREEN);//屏幕Y坐标 	
char is1[20]="60.2";//预定义:1.理查德森常数A(A/cm^2)
char is2[20]="4.05";//2.阴极材料溢出功(eV)
char is3[20]="3000";//3.绝对温度T(K)
char is4[20];//定义字符数组(存储字符串)
double d1,d2,d3,d4;//定义双精度变量(存储计算值)
//函数声明---------------------------------------------------------------------------------------------------------
void sub_frame();//绘制框架子函数
void sub_calculate();//计算数据子函数
//主函数-----------------------------------------------------------------------------------------------------------
void main()
{
	sub_frame();//绘图初始化
	MOUSEMSG m;//定义鼠标消息 
	while(true)//循环
	{
		m=GetMouseMsg();//获取一条鼠标消息 
		switch(m.uMsg)//根据获得的消息选择分支
		{
		case WM_LBUTTONDOWN://鼠标左键单击时判断数据输入
			{
				//判断鼠标位置是否在指定的控件区域
				//A.获取原始数据(横坐标在输入区域时输入数据)-------------------------------
				if(m.x>=W-DW-DC && m.x<=W-DW)
				{
					//1.理查德森常数A(A/cm^2):---------------------------------------------
					if(m.y>=H-DH-16*36+1 && m.y<=H-DH-15*36-1)//
					{
						InputBox(is1,9,"请输入数据");//读入数据
						setfillcolor(BLACK);
						fillrectangle(W-DW-DC+DC/2+10,H-DH-16*36+1,W-DW,H-DH-15*36);
						outtextxy(W-DW-DC+DC/2+15,H-DH-16*36+15,is1);//写控件字符串
					}//结束if
					//2.阴极材料溢出功(eV):------------------------------------------------
					if(m.y>=H-DH-15*36+1 && m.y<=H-DH-14*36-1)//
					{
						InputBox(is2,9,"请输入数据");//读入数据
						setfillcolor(BLACK);
						fillrectangle(W-DW-DC+DC/2+10,H-DH-15*36+1,W-DW,H-DH-14*36);
						outtextxy(W-DW-DC+DC/2+15,H-DH-15*36+15,is2);//写控件字符串
					}//结束if
					//3.绝对温度T(K):------------------------------------------------------
					if(m.y>=H-DH-14*36+1 && m.y<=H-DH-13*36-1)//
					{
						InputBox(is3,9,"请输入数据");//读入数据
						setfillcolor(BLACK);
						fillrectangle(W-DW-DC+DC/2+10,H-DH-14*36+1,W-DW,H-DH-13*36);
						outtextxy(W-DW-DC+DC/2+15,H-DH-14*36+15,is3);//写控件字符串
					}//结束if
				}//结束if(横坐标在输入区域时输入数据)
				sub_frame();//重绘框架
				//B.计算并绘图(横坐标在绘图区域时计算绘图)--------------------------------
				if(m.x>=DW && m.x<=W-DW-DC)
				{
					sub_calculate();//调用计算绘图函数
				}//结束if
				break;//
			}//结束case(结束鼠标左键单击事件消息处理)
		case WM_RBUTTONDOWN://鼠标移动的时候画个空心的圆
			return;//返回while
		}//结束switch(结束鼠标消息)
	}//结束while
}//结束主函数
//绘制框架子函数
void sub_frame()
{
	//1.全屏效果---------------------------------------------------------------------------
	initgraph(W,H);//初始化绘图窗口
	HWND hWnd = GetHWnd();//获取窗口句柄
	LONG style = GetWindowLong(hWnd,-16);//获得窗口风格
	style = style & ~WS_CAPTION & ~WS_SIZEBOX; //窗口全屏显示且不可改变大小
	SetWindowLong(hWnd,-16,style);//设置窗口风格
	SetWindowPos(hWnd, NULL,0,0,W,H,SWP_NOZORDER);//改变窗口位置,尺寸和Z序
	//ShowCursor(FALSE);//显示时隐藏鼠标
	//------------------------------------------------------------------------------------
	//2.绘制工作区边框
	setcolor(c3);
	rectangle(DW,DD,W-DW,H-DH);//外边框
	rectangle(W-DW-DC,DD,W-DW,H-DH);//控件区域边框
	//3.绘制工作区坐标线
	//画x轴刻度标线及文字---------------------------
	double value;//定义双精度变量
	char stt[10];//定义字符数组
	double xstep=(W-2*DW-DC)/(1.0*nx);//x方向步长(nx个刻度)(对应的绘图单位)
	double ystep=(H-DH-DD)/(1.0*ny);//y方向步长(ny个刻度)(对应的绘图单位)
	for(int i=0;i<=nx;i++)
	{
		setcolor(c1);//竖直辅助线颜色
		line(DW+xstep*i,H-DH,DW+xstep*i,DD);//画竖直小刻度线
		setcolor(c3);//文字颜色
		value=T1+xstep*i*(T2-T1)/(W-2*DW-DC);//所在的刻度数值
		gcvt(value,5,stt);//将浮点数value转换为字符串stt
		outtextxy(DW+xstep*i-10,H-DH-20,stt);//在规定的位置放置字符串
	}//结束for
	//画y轴刻度标线及文字---------------------------
	for(i=0;i<=ny;i++)
	{
		setcolor(c2);//水平辅助线颜色
		line(DW,DD+ystep*i,W-DW-DC,DD+ystep*i);//画水平小刻度线
		setcolor(c3);//文字颜色
		value=ystep*(ny-i)*100.0/(H-DH-DD);//所在的刻度数值
		gcvt(value,3,stt);//将浮点数value转换为字符串stt
		outtextxy(DW+15,DD+ystep*i+5,stt);//在规定的位置放置字符串
	}//结束for
	//4.重新绘制工作区边框
	setcolor(c3);
	rectangle(DW,DD,W-DW,H-DH);//外边框
	rectangle(W-DW-DC,DD,W-DW,H-DH);//控件区域边框
	//5.输出标题
	setfont(16,0,"黑体");
	outtextxy(5,10,"热力学小作业(绘制理查德森(Richardson)热电子发射方程曲线)");
	//6.输出简单说明
	RECT r={W-DW-DC+10,DD+10,W-DW-10,H-DH-10};//
	setfont(12,0,"宋体");//
	drawtext("热力学小作业:\n　\n \
				绘制理查德森(Richardson)\
				热电子发射方程曲线\
				\n\n\
				操作说明:\n\n\
				鼠标左键  : 数据输入\n\
				鼠标右键  : 退出程序\n\
			\n\
			1~7为输入数据   8~16为计算数据\n\
			\n\n\
			\n\n\
			\
			\n", &r, DT_WORDBREAK);//
	//7.调整说明文字下面的矩形控件
	int c_h=36;//定义控件高度
	int c_x1=W-DW-DC,c_x2=W-DW;//控件左右x坐标
	int c_y1=H-DH;//第1个控件下y坐标
	for(i=1;i<=16;i++)
	{
		rectangle(c_x1,c_y1,c_x2,c_y1-c_h);//
		c_y1=c_y1-c_h;
	}//结束for
	//8.绘制控件说明文字
	outtextxy(c_x1+10,H-DH-16*c_h+15,"1.常数A(A/cm^2):");//输出字符串模拟控件文字
	outtextxy(c_x1+10,H-DH-15*c_h+15,"2.溢出功X(eV):");//输出字符串模拟控件文字
	outtextxy(c_x1+10,H-DH-14*c_h+15,"3.绝对温度T(K):");//输出字符串模拟控件文字
	outtextxy(c_x1+10,H-DH-13*c_h+15,"4.电流I(A/cm^2):");//输出字符串模拟控件文字
	//8.初始化原始数据
	outtextxy(W-DW-DC+DC/2+15,H-DH-16*36+15,is1);//写控件字符串
	outtextxy(W-DW-DC+DC/2+15,H-DH-15*36+15,is2);//写控件字符串
	outtextxy(W-DW-DC+DC/2+15,H-DH-14*36+15,is3);//写控件字符串
}//结束子程序
//计算数据子函数
void sub_calculate()
{
	//1.原始数据转化为双精度数
	d1=atof(is1);//1.理查德森常数A(A/cm^2)
	d2=atof(is2);//2.阴极材料溢出功(eV)
	d3=atof(is3);//3.绝对温度T(K)
	//2.根据数据计算要求项目---------------------------------------------------------------------------
	d4=d1*d3*d3*exp(0.0-11610.0*d2/d3);//4.电流密度(A/cm^2)
	//3.将计算结果转化为字符串--------------------------------------------------------------------------
	gcvt(d4,6,is4);//
	//4.将字符串写入控件中
	setfillcolor(BLACK);
	//------------------------------------------------------------
	fillrectangle(W-DW-DC+DC/2+10,H-DH-13*36+1,W-DW,H-DH-12*36);
	outtextxy(W-DW-DC+DC/2+15,H-DH-13*36+15,is4);//写控件字符串
	//------------------------------------------------------------
	//6.获取温度T从(2000~3000K)变化时电流密度的变化曲线------------------------------------------------
	double x_scale=(W-2*DW-DC)*1.0/(T2-T1);//每个数学单位x对应的屏幕单位
	double y_scale=(H-DH-DD)*1.0/100.0;//每个数学单位y对应的屏幕单位
	double n1;//
	DPOINT *p1;//
	p1=new DPOINT[T2-T1+1];//定义N1点表
	for(int j=0;j<=T2-T1;j++)//温度从T1到T2变化
	{
		n1=d1*(j+T1)*(j+T1)*exp(-11610.0*d2/(j+T1));//4.电流密度(A/cm^2)
		p1[j].x=DW+j*x_scale;
		p1[j].y=H-DH-n1*y_scale;		
	}//结束for
	//6.绘制温度T从(2000~3000K)变化时电流密度的变化曲线------------------------------------------------
	setcolor(c4);//曲线颜色1
	for(j=0;j<T2-T1;j++)//温度从T1到T2变化
	{
		line(p1[j].x,p1[j].y,p1[j+1].x,p1[j+1].y);
	}//结束for
}//结束子函数*/
//--------------------------------------------------------------------------------------------------------------------