数学：使用 Ultra Fractal 制作了一个分形视频
软件制作界面： 注意，首先设置视频长度（按按帧数设置，比如每秒30帧，共900帧…
生活记录：初次接触到 COMSOL Multiphysics 软件，发现它很强大
周一晚上中子源中心组会上，周老师介绍并演示了一个多过程物理模拟软件《COMSOL…
密码保护：IDEA?!：随机行走与蛋白质形状？
This content is password protected. To view it please go to the post page and enter the password.
书：Mathematica for Physics / 物理学者用Mathematica
我对广义相对论的很多计算并不是很清楚，基本上也没怎么计算过度规、张量、四维电磁势…
Posted inMathematica 理论物理 计算物理
计算物理：对 Mathematica 中的黑洞热力学熵交互程序(CDF文件)的解释
Gerard 't Hooft and Leonard Susskind (20…
计算理论物理：Temperature and Entropy of a Black Hole ( Mathematica CDF )
This article comes from http://demonstra…
物理学：二战后物理学最重要的实验有哪些？[转载]
本文转载自：http://www.zhihu.com/question/20812258/answer/16681725 感谢作者的辛苦整理。
「重要」的标准见仁见智。以下列举一些，并给出简要评价。
有些严格来说算是「发现」，不过发现和实验本来就无绝对界限；还有一些实际上是「发明」或者「技术」，但因意义重大，故一并列出。
————————————————————
核磁共振（1946）
Edward Purcell和Felix Bloch分别用共振吸收和核磁感应法测量核磁矩，实现了核磁共振。二人因此获得1952年Nobel物理学奖。
Lamb位移（1947）
由Willis Lamb和Robert Retherford发现。Lamb位移是量子电动力学的第一个实验证据。其说明即便最简单的氢原子，量子力学也不能完整描述，而需要用量子电动力学。Lamb因此获得1955年Nobel物理学奖。
电子反常磁矩（1947）
反常磁矩包括电子和μ子的反常磁矩。前者由Polykarp Kusch精确测量，并因此获1955年Nobel物理学奖。反常磁矩同Lamb位移一起，是量子电动力学的最重要的实验支柱。
π介子（1947）
由Cecil Powell等人在宇宙线中发现。Powell因此获得1950年Nobel物理学奖。而在1949年，汤川秀树则因为理论预测π介子存在获得Nobel奖。π介子是最轻也是最重要的介子，对研究低能强相互作用有重要作用。
晶体管（1947）
由Bell实验室的John Bardeen、Walter Brattain和William Shockley发明。三人因此获得1956年Nobel物理学奖。没有晶体管就没有现代文明。
全息摄影（1947）
Dennis Gabor于电子显微镜技术中发现全息技术的原理，并因此获得1971年Nobel物理学奖。全息技术在激光发明后才有实质进展。Yuri Denisyuk在1962年拍摄了世界上第一张全息照片。
密码保护：IDEA！：烟雾、水蒸气和鸟群
This content is password protected. To view it please go to the post page and enter the password.
编程：MATLAB实现粒子二维随机运动轨迹
代码如下：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
clear; n=10;%粒子数 step=200; %粒子前进的步数 jump=0.1; %每前进一步粒子的跳跃位置，这里认为是一个自然数，甚至程序中给出小数也可以。 figure; %创建绘图窗口 hold on; %打开重绘 grid; %显示网格 %以下是为了显示两个上下极限概率的边界 x_line=(1:step); y_line_upper=jump*x_line; %上边界的y值 y_line_lower=-jump*x_line; %下边界的y值 plot(x_line,y_line_upper); %绘制上边界 plot(x_line,y_line_lower); %绘制下边界 clear x_line;clear y_line_upper;clear y_line_lower; %清除这几个变量，节省内存 for m=1:n; %粒子数(n)个循环 move_x=zeros(100); %初始化粒子的横坐标位置数组 move_y=zeros(100); %初始化粒子的纵坐标位置数组 y=0; %初始位置的纵坐标 for x=1:step; %粒子随机前进500步 c=rand(1); %生成随机数 %以下生成的是非等概率分布 if c<=0.20 a=-jump; %概率分布为1/4 elseif c>0.10 && c<0.70 a=0; %概率分布为1/2 else a=jump; %概率分布为1/4 end y=y+a;%纵坐标y改变，横坐标是步长j move_x(x)=x; %把当前步长的粒子位置横坐标给位置数组 move_y(x)=y; %把当前步长的粒子位置纵坐标给位置数组 plot(x,y,'.'); %绘当前位置点 pause(0.00001);%延时绘图，动画显示 end plot(move_x,move_y,'r');%将点连线，形成粒子的运动轨迹 end clear all; %清除所有变量 |
视频演示：待更新
运行结果图展示：
3个粒子的轨迹：
10个粒子的轨迹
50个粒子的轨迹
100个粒子的轨迹
