版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、波函数的几何描述有三种基本方式.概率密度云例如粒子处在r附近体元dxdydz内的概率为| dxdydz我们可以在r附近体元dxdydz内随机打上n(r)个点,其中2n(r) A dxd ydzA为固定参数或总点数.等概率密度面如果让计算机把满足下面条件的点找由来,是一件十分简单 的事。I (r, , )|2 C其中C为常数我们称这些点的集合为等概率密度面,实际操作时C要取一范围,如从C到C+0.1 ,否则等概率密度面画不由来。.概率密度幅波用一个三维的格点组作为球心,取一小量 r为球半径,球内 随机洒上一些点,点数目与Re( nim) 成正比,我们就可以得到氢原子的概率密度幅分布。氢原子的概率
2、密度幅分布卜面是学生拓展设计制作的例子氢原子的电子云图氢原子电子云的二维截面图等概率密度面氧原子的等概率密度面氢原子的等It率密展面氢分子的成键电荷密度分布三维无限深阱电子云图司电子等鞋率峦度再参考源程序:(1)概率密度波源程序,const floatstatic float theta, phi;void userDrawDBall(const POINT3F &PD, const float R, const float BaseNum,RGB &clrPts)float r;POINT3F Pt;int CntPts = BaseNum * exp(D);if (CntPts = 0)
3、CntPts = fabs(CntPts);for (int i = 0; i CntPts; i+)theta = Pi*(rand()/255.0-0.5);phi = 2*Pi*rand()/255.0;r = R;/ * rand()/255.0;Pt.x = P .x + r * sin(theta)*cos(phi);Pt.y = P .y + r * sin(theta)*sin(phi);Pt.z = P .z + r * cos(theta);CDrawPoints( &Pt, 1, &clrPts);const int VecGridCount_X = 40;/ 矩形格子x
4、 方向格点密度const int VecGridCount_Y = 40;/ 矩形格子y 方向格点密度const int VecGridCount_Z = 40;/ 矩形格子 z 方向格点密度static floatDVecGridCount_XVecGridCount_YVecGridCount_Z;static POINT3FPtVecGridCount_XVecGridCount_YVecGridCount_Z;void demowindow:S_Picture1()Lng_a = 150; / 矩形格子x 方向长度Lng_b = 150;/矩形格子y 方向长度Lng_c = 150;矩
5、形格子z方向长度static float x,y,z,T;int i,j,k,m;float Max_D = -1E6, Min_D = 1E6;SetLineWidth(3);DisableLight();POINT3F tpPt;float tmp_x, tmp_y;T=S_Step;for (m=0;mVecGridCount_X; m+)tmp_xLng_a*m/(VecGridCount_X-1)-0.5*Lng_a;for(j=0;jVecGridCount_Y;j+)tmp_yLng_b*j/(VecGridCount_Y-1)-0.5*Lng_b;for(k=0;kVecGri
6、dCount_Z;k+)Ptmjk.x = tmp_x;Ptmjk.y = tmp_y;Ptmjk.z=Lng_c*k/(VecGridCount_Z-1)-0.5*Lng_c;static POINT3F Evec;Dmjk,static POINT3F Hvec;userGetDValue(Ptmjk,S_Step/5,1E5, 0.5E4,T);if (Max_D Dmjk) Min_D = Dmjk;bCalculated+;const float BaseNum = 10; / 密度球内点的基数const float Ball_R = 3.5;/ 密度球半径DisableLight(
7、);float D_Range = Max_D - Min_D;for (m =0; mVecGridCount_X; m+)for(j =0; jVecGridCount_Y; j+)for( k=0; k0) clrBallPts.r = tmpF;clrBallPts.g = tmpF;clrBallPts.b = tmpF;else clrBallPts.r = tmpF;clrBallPts.g = tmpF;clrBallPts.b = 0;userDrawDBall(Ptmjk,Dmjk,BaseNum,clrBallPts);RGB clrText;clrText.r = 25
8、5; clrText.g = 255; clrText.b = 255;DrawHZCharacter(80,-70,90,FBOTTOM,word,clrText);( 2 )等概率密度面源程序void demowindow:S_Picture1()int i,j,n;Ball_R,FCENTER,float V,x,y,z,r,a,b,d,R;float PI=3.14,c=0.15;char buf100;POINT3F p,q;RGB color,color1;DIRECT direction;direction.alpha=0;direction.beta=0;color.r=20;
9、color.g=140;color.b=200;color1.r=0;color1.g=0;color1.b=0;for(i=0;i311;i+)x=i;for(n=-308;n308;n+)z=n;r=sqrt(x*x+z*z);if(r0.01) r=0.01;a=acos(z/r);d=0.05*r;V=0.7*pow(6-d),2)*pow(d,4)*exp(-1*d)*pow(sin(a) *cos(a),2);if(fabs(V-c)0.005)for(j=0;j71;j+)b=j*PI/35;x=r*sin(a)*cos(b);y=r*sin(a)*sin(b);z=r*cos(a);p.x=0.1*P_radius*x/3.4;p.y=0.1*P_radius*y/3.4;p.z=0.1*P_radius*z/3.4;EnableLight();CDrawPoints(&p,1,&color);DrawHZCharacter(70,-60,98,FCENTER,FBOTTOM,word,color1);sprintf(buf,n=4,l=2,m=1);LoadHZCharacter24(S_FONT
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2026福建厦门市集美区锦园小学产假顶岗教师招聘1人考试参考题库及答案解析
- 2025-2026学年安乡偎麻雀教案
- 2026年河北邮政春季校园招聘笔试参考试题及答案解析
- 2026四川数据集团有限公司第二批员工招聘6人笔试参考试题及答案解析
- 2026东风汽车研发总院【产品法规中心总监岗位】全球招聘1人考试备考试题及答案解析
- 2026福建三明港务地产有限公司社会招聘1人(置业顾问岗)考试备考题库及答案解析
- 2026安徽蚌埠市固镇县教育局选聘教研员6人笔试参考试题及答案解析
- 2026年青岛平度市卫生健康系统“平选计划”校园选聘(38名)考试备考题库及答案解析
- 2026广东广州天河区凤凰中学急聘英语教师一名备考题库含答案详解(研优卷)
- 你的婚礼电影演讲稿英语
- 2026年国家队反兴奋剂准入教育考试试题及答案
- 第九章第一节压强课件2025-2026学年人教版物理八年级下学期
- 100以内看图写数专项练习题(每日一练共6份)
- 分岗设权内部控制制度
- 野生动物种源基地及繁育中心建设项目可行性实施报告
- 输血相容性检测室内质控-课件
- 市政工程三级安全教育培训完整
- M30注浆砂浆配合比计算资料
- 《现代汉语语法词类》PPT课件(完整版)
- 电工仪表与电气测量第六章电功率的测量
- 云南普通初中学生成长记录-基本素质发展初一-初三备课讲稿
评论
0/150
提交评论