美国加利福尼亚大学洛杉矶分校一个数学研究小组的数学家利用75台运行Windows XP操作系统的计算机发现了一个1300万位的素数,这是迄今为止发现的第46个,也是最大的梅森素数,发现者将得到奖金10万美元.
梅森素数是指那些可以写成形如Mp=2^p－1的素数，且p是素数。
IEFF在一位匿名者资助下还专门为此设立了奖金。它规定向第一个找到超过一千万位数的个人或机构颁发10万美元。后面的奖金依次为：超过1亿位数，15万美元；超过10亿位数，25万美元。
目前计算工具革新，最新的12个梅森素数都是通过GIMPS项目发现的。
GIMPS，是一个由志愿者团队协作的项目，从因特网免费下载开放源代码的Prime95和MPrime软件来搜索梅森素数。GIMPS并非一个没有任何限制的项目，使用者必须无条件接受分配的奖金。
作者归档：东方
郁闷的美国人
有个中国人在一个美国网站上，看到了一件心仪已久的物品，于是联系购买。谁知，却碰上了意想不到的无语：
商家：Do you support U.S. Republican Party?
顾客：Yes.
商家：Stupid.GO fucking Yourself!然后商家以迅雷不及掩耳之势中断了交易。
郁闷。中国人遇到这种问题不都是需要回答支持的吗？在地球的这边，支持执政党是一件非常荣耀的事情，在地球的另一边难道支持执政党也是一种过错？
呵呵，这个世界！
祝大家节日快乐
普天同庆。普友同乐！
古诗词收集
黑云压城城欲摧，甲光向日金鳞开，角声满天秋色里，塞上燕脂凝夜紫；半卷红旗临易水，霜重鼓寒声不起，报君黄金台上意，提携玉龙为君死。
一上高城万里愁，蒹葭杨柳似汀洲。溪云初起日沉阁，山雨欲来风满楼。鸟下绿芜秦苑夕，蝉鸣黄叶汉宫秋。行人莫问当年事，故国东来渭水流。
纸上得来终觉浅，绝知此事要躬行。
二分法求根
二分法求根算法代码，操作平台：excel
Private Sub CommandButton1_Click() ‘开始程序
a = Sheets(“Sheet1”).Range(“A1”).Value ‘将sheet1中A1单元格的值赋予变量a，作为零点所在区间的左端，需要程序运行之前先行在sheet1中的A1单元格输入；
b = Sheets(“Sheet1”).Range(“C1”).Value ‘将sheet1中C1单元格的值赋予变量b，作为零点所在区间的右端，需要程序运行之前先行在sheet1中的C1单元格输入；
d = Sheets(“Sheet1”).Range(“G1”).Value ‘将sheet1中G1单元格的值赋予变量d，作为精确度，需要程序运行之前先行在sheet1中的G1单元格输入；
i = 2
m = a
Do
If f * h < 0 Then
b = m
Else
a = m
End If
m = (a + b) / 2 ‘算出中点的横坐标；
f = a ^ 3 – 6 * a ^ 2 – 3 * a + 5 ‘计算f(a)；
Sheets(“Sheet1”).Range(“A” & i).Value = a
Sheets(“Sheet1”).Range(“B” & i).Value = f
g = b ^ 3 – 6 * b ^ 2 – 3 * b + 5 ‘计算f(b)；
Sheets(“Sheet1”).Range(“C” & i).Value = b
Sheets(“Sheet1”).Range(“D” & i).Value = g
h = m ^ 3 – 6 * m ^ 2 – 3 * m + 5 ‘计算f(m)；
Sheets(“Sheet1”).Range(“E” & i).Value = m
Sheets(“Sheet1”).Range(“F” & i).Value = h
Sheets(“Sheet1”).Range(“G” & i).Value = Abs(a – b)
i = i + 1
Loop Until Abs(a – b) < d Or f = 0 ‘判断何时跳出循环；
End Sub ‘结束程序。
点击下载此文件判断n是否为质数
判断n是否为质数算法代码，操作平台：excel
在代码编辑界面的光标闪动处输入以下代码：
首先输入“n = Sheets(“Sheet1”).Range(“A1”).Value”，这一行的含义是指将Sheet1中A1单元格的值赋予变量n；
下一行继续输入“i = 2”；
下一行继续输入“Do”；
下一行继续输入“r = n Mod i”，即求n除以i的余数r；
下一行继续输入“i = i + 1”，即i的值增加1；
下一行继续输入“Loop Until i > n – 1 Or r = 0”，结束循环的条件；
下一行继续输入“If r = 0 Then”，判断条件；
下一行继续输入“Sheets(“Sheet1”).Range(“B1”).Value = “不是质数””，将结果写入Sheet1中B1单元格；
下一行继续输入“Else” ，就是框图中“否”的意思；
下一行继续输入“Sheets(“Sheet1”).Range(“B1”).Value = “是质数””，将结果写入Sheet1中B1单元格；
下一行继续输入“End If”，结束判断；
计算三角形面积公式
计算三角形面积公式算法代码，操作平台：excel
在代码编辑界面的光标闪动处输入以下代码：
首先输入“a = Sheets(“Sheet1”).Range(“A1”).Value”，将Sheet1中A1单元格的值赋予变量a，需要程序运行之前先行在sheet1中的A1单元格输入数值；
下一行继续输入“b = Sheets(“Sheet1”).Range(“B1”).Value”，将Sheet1中B1单元格的值赋予变量b，需要程序运行之前先行在sheet1中的B1单元格输入数值；
下一行继续输入“c = Sheets(“Sheet1”).Range(“C1”).Value”，将Sheet1中C1单元格的值赋予变量c，需要程序运行之前先行在sheet1中的C1单元格输入数值；
下一行继续输入“p=(a+b+c)/2”；
下一行继续输入“s=sqr(p*(p-a)*(p-b)*(p-c))”，“sqr”指调用数学公式求平方根；
下一行继续输入“Sheets(“Sheet1”).Range(“D1”).Value=s”，将求得的面积写入Sheet1中的D1单元格；
代码输入结束之后，回到excel窗口，在“A1单元格，B1单元格，C1单元格”中分别输入一个数值，点图1中的第一个按钮“运行”，就可以自动在“D1单元格”中得到结果。
G1
Apple说一直被模仿，未曾被超越！
谁说中国人没创意
饮用酒中添加甲醇，食用奶粉中添加三聚氰胺。谁敢说中国人没有创意！
而且，这添加物料选的是如此的恰到好处，两者非常相像，只不过一个本该用于工业，一个本该用于饮食。
但是能打破常规，重新建构世界新秩序，提高人类机能，这样为世界考虑的做法，这样深远的谋划，却难以被世人理解，这样的绝佳创意难以被世界认同，是何其不幸啊。
曾经，有人说中国人制作上佳，但是创意不高明，所以常有抄袭国外作品之说法。但是从今以后，我们要对世界庄严的宣告，中国人从此站起来了，我们的创意不仅可以降低成本从而具有现实意义，更具有深远的改变人类机能的长远意义。我们可以相信，从今以后，外国人无法再看低我们。
我们将华丽地立于世界之巅！
节日快乐
在这个伟大的日子里，祝愿曾经的、现在的和将来的教师们，节日快乐。
同时我不得不提醒一下我自己一个故事：
在古代的某一天，一个教师和一个学生被抓，即将砍头。
行刑官问他们有何诉求。老师说：让我上完最后一节课。学生说：赶快杀了我！