糗世界

关于美国的税

admin — Sun, 29 Aug 2010 18:38:06 +0000

都说发达国家税收高，那大约是个什么概念呢？下面这个图可能让你对美国税物复杂性有一点点认识。
年收入在5万美元以下的人大约要付出10-15%来交税；年收入高于20万美元的人大约要付出收入的20-25%。而每年填写退税表的人，平均会获得2700美元的退税。填写退税表平均会花掉一个人24.2个小时。

美国的税务

来源：http://blog.infographicworld.com/2[......]

继续阅读

谁拥有美国国债

admin — Sun, 29 Aug 2010 18:14:49 +0000

至2010年3月，美国国债已经高达12.8兆（12.8X1012）美元。中国成为了持有美国国债最多的国家，高达900亿（900X109）美元。日本退居第二位，持有$784.9 billion。下面是来自于mintlife的图片。

美国国债持有者构成图

来源：http://www.mint.com/blog/trends/who-owns-the-u-s-debt-07152010[......]

继续阅读

perl如何等待回车键结果程序

admin — Thu, 26 Aug 2010 13:28:09 +0000

本来想做一个按任意键结束程序的，但是没有能够实现，只好变成按回车或者输入键了。

在perl当中，要获取键盘输入，通常状态下是这样写的：

1 2 my $getch = <STDIN>; chomp($getch);

其中就是标准输入流，它以必须一个回车符来确认你输入完毕。这一点我试图使用其它的库来解决，但是没有找到类似C

当中getch()这类的接受一个字符的。所以[......]

继续阅读

perl如何实现beep功能

admin — Thu, 26 Aug 2010 13:26:39 +0000

问题很简单，就是需要perl控制喇叭发出di的一声，就象c中的beep一样。首先，我试了print “\a”;的方式，结果表明，这个在

linux下可以很方便的实现翁鸣的东西,在windows下并不那么容易起作用。又试了下面的程序：

1 2 3 4 5 #!/usr/bin/perl -T use strict; $|=1; print "\a"; e[......]

继续阅读

中国引领世界啤酒消费

admin — Sat, 21 Aug 2010 18:34:32 +0000

中国在世界啤酒市场所占份额正在快速成长。在过去十二年里，中国从几乎不怎么消费啤酒到现在成为世界上最大的啤酒消费国。所消费的啤酒数量已经远远超过美国及欧洲。依据Credit Suisse’s World Map of Beer的数据统计显示，中国每年的啤酒消费以每年10%的速度增长。这于世界的啤酒制造商来说，是一个非常好的事情。ABI, SABMiller, Carlsberg 和 He[......]

继续阅读

图解咖啡

admin — Sun, 15 Aug 2010 12:19:31 +0000

卡布奇诺、玛奇雅朵、拿铁、摩卡、意式咖啡、美式咖啡…..去咖啡店点咖啡，总是被这些咖啡名称弄得有点晕？其实他们都是在一杯浓咖啡的基础上演变出来的，看这张图了解一下，下次就胸有成竹了~

图解咖啡

世界人口经纬度分布峰图

admin — Sat, 14 Aug 2010 04:22:30 +0000

研究发现，世界有88%的人生活在北半球，有一半的人生活在北纬27度。

世界人口经纬度分布峰图

在blast中E值(E value)是什么？

admin — Fri, 13 Aug 2010 15:17:45 +0000

一般的，当我们使用BLAST（是一种用于在数据库当寻找任何蛋白质或者基因序列与你的目标序列一致的程序）时，我们会注意到这里有一个E值。那么这个E value是什么呢？怎么来理解这个值呢？

下面是一个平常的blast结果，

Sequences producing significant alignments: Score (S) E gi|83574104|Moth_2374|sporul[......]

继续阅读

接受参数的多显示器分辨率设置程序

admin — Sun, 01 Aug 2010 19:31:12 +0000

有人问我能不能把多显示分辨率设置软件修改成非交互式的，而是直接接受参数的那种，好用于无人干预条件下。我想这个建议不错。
于是基于之前《基于对话框的Window扩展显示器软件》及《
修改显示器分辨率的小软件》基础上，稍加修改，写了这个可以工作于windows xp下的dos命令。

立即下载：ouMulScr

使用方法：

关闭扩展桌面：ouMulScr 0
开启扩展桌面： ouMulScr 1
修[......]

继续阅读

用perl实现细菌蛋白质定位预测批处理

admin — Sun, 01 Aug 2010 03:19:08 +0000

首先声明，这里并不是我用perl来写个算法。如果需要算法相关的东西，得去看文献。
这里，其实只是借对格兰氏阳性细菌蛋白质定位的预测为例，来说明如何利用他人提供的在线查询功能来实现批处理。

假设现在有一个完整的基因组需要您去预测它当中的每一个开放阅读框翻译出来的蛋白质可能的细胞内定位，怎么办呢？手工一个一个提交到网站上去？一共会有四五千个蛋白，等你提交完，你的手和大脑都会不工作了吧？要不自己下载个软件来本地预测吧？我试过去安装那些要求的软件环境，也许是我的系统过新吧，一个c语言库的版本，一个g77让我就头大得不知道该怎么继续下去。于是我还是下定决心，用perl的lwp来伪装成浏览器提交申请，自动批处理吧。也许一觉醒来，全部都做完了。

我们要用到的网站是http://www.psort.org/psortb/。据网站上宣传，Based on a study last performed in 2010, PSORTb v3.0.2 is the most precise bacterial localization prediction tool available. 第二个原因就是can currently submit one or more Gram-positive or Gram-negative bacterial sequences or archaeal sequences in FASTA format。这对于研究格兰氏阳性菌的我来说的确很不错的网站。

最基本的，用lwp来虚拟提交一份表单上去：

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla 8.0 beta");
 
use HTTP::Request::Common qw(POST);
my $req = (POST 'http://www.psort.org/psortb/results.pl',
		["seq" => ">$genes{name}\n$genes{translation}",
		"organism" => "bacteria",
                "gram"=>"positive",
                "advancedgram"=>"none",
                "format"=>"long",
                 "sendresults"=>"display");
 
$request = $ua->request($req);
print $request->as_string;

结果得到的，怎么都是500 Internal Server Error。于是在网上狂google，也没有找到直接的答案。半夜两点，突然想起，为什么不自己想法来解决问题。于是开始用tcpdump抓包，对比从firefox发送出去的包和perl发送出去的包，具体看看有什么不同。[......]

继续阅读

糗世界

关于美国的税

谁拥有美国国债

perl如何等待回车键结果程序

perl如何实现beep功能

中国引领世界啤酒消费

图解咖啡

相关日志

世界人口经纬度分布峰图

相关日志

在blast中E值(E value)是什么？

接受参数的多显示器分辨率设置程序

用perl实现细菌蛋白质定位预测批处理