没有合适的资源?快使用搜索试试~ 我知道了~
显示多种氢原子电子云图像,建议用win—Tc运行。
资源推荐
资源详情
资源评论
模拟了各种氢原子电子云的状态,希望对大家有所帮助!!
# include "graphics.h"
# include "math.h"
# include "conio.h"
# include "stdio.h"
# define PI 3.14159
# define THETA PI/8
# define PHI PI*2/5
# define L 800
# define RR 80
# define SQR(X,Y,Z) sqrt(X*X+Y*Y+Z*Z)
int x1,y1;
float n1(x,y,z) /*1s*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(16.0*exp(-r));
}
float n2(x,y,z) /*2s*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(16*(2-r)*exp(-r/2));
}
# include "graphics.h"
# include "math.h"
# include "conio.h"
# include "stdio.h"
# define PI 3.14159
# define THETA PI/8
# define PHI PI*2/5
# define L 800
# define RR 80
# define SQR(X,Y,Z) sqrt(X*X+Y*Y+Z*Z)
int x1,y1;
float n1(x,y,z) /*1s*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(16.0*exp(-r));
}
float n2(x,y,z) /*2s*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(16*(2-r)*exp(-r/2));
}
float n3(x,y,z) /*2pz*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(16*z*exp(-r/2));
}
float n4(x,y,z) /*2px*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(20*x*exp(-r/2));
}
float n5(x,y,z) /*2py*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(20*y*exp(-r/2));
}
float n6(x,y,z) /*3s*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(4*(27-18*r+2*r*r)*exp(-r/3));
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(16*z*exp(-r/2));
}
float n4(x,y,z) /*2px*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(20*x*exp(-r/2));
}
float n5(x,y,z) /*2py*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(20*y*exp(-r/2));
}
float n6(x,y,z) /*3s*/
float x,y,z;
{
double r;
r=SQR(x,y,z);
return(4*(27-18*r+2*r*r)*exp(-r/3));
剩余8页未读,继续阅读
资源评论
无底坑
- 粉丝: 1
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功