月度归档：1970 年1月

google 短信

发表于 由

Google免费提供的短信服务：
1、天气预报http://www.google.com/sms/alerts，每天下午发送一次，点免费订阅，如果以前手机没注册，需要先注册获取验证码，不过大可放心，不管是哪一个过程，你的手机均不会被扣钱。
2、祝福短信http://www.google.cn/rebang/msg，包括“温馨祝福、生日祝福、春节、元宵节、妇女节、愚人节、劳动节、母亲节、儿童节、中秋祝福、重阳节”等分类，可以自主挑选发送到自己的手机。也保证不收费。

HTC Touch HD

发表于 由

http://www.youtube.com/v/JHLOYDgwhkE&color1=0xb1b1b1&color2=0xcfcfcf&fs=1
处理器：Qualcomm® MSM 7201A™ 528 MHz
操作系统：Windows Mobile® 6.1 Professional
三围：115 mm x 62.8 mm x 12 mm
显示：3.8寸TFT-LCD，分辨率惊人480 x 800
网络支持：HSDPA/WCDMA（900/2100 MHz 上行2Mbps下行7.2Mbps）、GSM/GPRS/EDGE（850/900/1800/1900 MHz）
操作界面：HTC TouchFLO™ 3D
GPS：GPS和AGPS
无线：蓝牙2.0、WiFi（IEEE 802.11 b/g）
摄像头：主摄像头500万像素，另有VGA画幅的辅摄像头用于3G视频通话
音频：不多说了，WM系统下还有啥不能支持的，，想说的是，这机子支持FM收音
电池：这个强悍，1350mAh，据说可以390分钟的3G上网、450小时的3G待机、观看120分钟的视频

含三聚氰胺的食品

发表于 由

在世界范围内正式检查出含三聚氰胺的食品有如下众多：奶粉以及牛奶饮品（三鹿等）、蛋糕（四洲）、面包、巧克力（吉百利、奥利奥）、饼干（思朗、乐天小熊饼）、雪糕（伊利）、糖果（大白兔）、米粉（亨氏）、披萨（台湾必胜客的芝士粉）、乳铁蛋白（新西兰公司Tatua）、还有徐福记奶油玉米及芝士口味米果卷。
有可能含有三聚氰胺的常见食品：面食如面条馒头油条（有人用尿素发酵）、豆芽、蜂蜜（掺和尿素）
以下为检验食品中是否含有三聚氰胺的简便方法：
http://vhead.blog.sina.com.cn/player/outer_player.swf?auto=0&vid=16233652&uid=1290055681
质检总局，恳求你们不仅仅是查乳制品。
http://www.cnki.com.cn/Article/CJFD1987-SPKX198703013.htm
http://www.scxmsp.gov.cn/news/xumuYZ/2006-10/31/102238468.html

计算机算得迄今最大梅森素数

发表于 由

美国加利福尼亚大学洛杉矶分校一个数学研究小组的数学家利用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”，结束判断；

点击下载本文件