编程jin
文章平均质量分 64
morningCV
喜欢电脑技术,喜欢结交朋友
展开
-
win7问题解决,凭据管理器和无法访问,不允许一个用户使用一个以上用户名与服务器或共享资源进行多重连接。
WIN7凭据管理器,如果你用一个帐号远程登录以后在电脑中会记住这个信息,假如你想用另外的帐号,那么就到控制面板-凭据管理器里中进行修改或者删除。如果你登录以后提示,“无法访问。不允许一个用户使用一个以上用户名与服务器或共享资源的多重连接。。。。”那么在命令行中敲入net use * 、del然后重新连接就OK了原创 2013-08-30 17:03:39 · 4844 阅读 · 0 评论 -
欧拉计划34题,0的阶乘原来等于1,文盲了。
145 是一个奇怪的数字, 因为 1! + 4! + 5! = 1 + 24 + 120 = 145.找出所有等于各位数字阶乘之和的数字之和。注意: 因为 1! = 1 和 2! = 2 不是和的形式,所以它们不算在内。开始一直没有做出来,原因是把0的阶乘当成0来算了。这个题目是非常的简单的。唯一需要说的一点就是,各个位的阶乘的时候,我们可以先用一个数组把0..9的原创 2012-12-19 22:47:08 · 1878 阅读 · 0 评论 -
perl基础技巧:避免脚本在windows中闪一下就关闭
当你刚开始学习perl的时候,写好了程序,准备兴高采烈的等待结果输出时,结果双击后,看到屏幕闪了一下,然后什么都没有了。根本没有机会然你看到输出的结果。怎么解决这种问题呢?其实各种语言都有这个问题!解决的思路就是让程序输出结果以后,继续等待用户的输出就可以了也就是在脚本的末端加上这样的两行print "press to continue..."; 就是这样,原创 2012-12-29 21:48:22 · 2500 阅读 · 2 评论 -
各种犯错,欧拉计划26题:找出小于1000的数字d,1/d 的十进制表示含有最长的循环圈。有很多问题请教大家
先看看题目:分子为1的分数称为单分数。分母是2到10的单分数用十进制表示如下:1/2=0.51/3=0.(3)1/4=0.251/5=0.21/6=0.1(6)1/7=0.(142857)1/8=0.1251/9=0.(原创 2012-12-13 17:10:41 · 1383 阅读 · 2 评论 -
欧拉计划:第28题,29题,第30题
28题从数字1开始向右顺时针方向移动,可以得到如下的5×5的螺旋:21 22 23 24 2520 7 8 9 1019 6 1 2 1118 5 4 3 1217 16 15 14 13可以算出对角线上数字之和是101.1001×1001的螺旋中对角线上数字之和是多少?程序如下:use strict;use原创 2012-12-15 22:17:34 · 1885 阅读 · 0 评论 -
重复内容删除的小脚本
加入说序列式这样的1 21 22 11 31 41 54 1我们得出的结果如下:1 31 52 14 1程序如下:use strict;use warnings;my $filename;my %hash;my @information;my $key1;my $key2;print "please put in the file lik原创 2012-12-28 21:32:05 · 1014 阅读 · 0 评论 -
perl两个模块: List::Util和List::MoreUtils
以下这些函数来自于 List::Util 模块,这是 Perl 内置的模块,下面的内容参考了:http://bnuzhutao.cn/archives/788,表示感谢!(1)求数组的和:不需要一个一个地累加,直接调用 sum 函数use List::Util qw/sum/;my @array = (10, 20, 30, 40);my $sum = sum @arr原创 2012-12-14 11:34:25 · 4309 阅读 · 0 评论 -
解决问题前的思考,欧拉计划27题的反思,3次优化和求解
在遇到问题的时候,仔细思考,找到最好的方法,让计算机更快的完成任务是很重要的。我们先来看一下这个问题:欧拉曾发表过一个著名的二次公式:n² + n + 41这个公式对于0到39的连续数字能够产生40个质数。但是当 n = 40时,402 + 40 + 41 = 40(40 + 1) + 41能够被41整除。当n = 41时, 41² + 41 + 41显然也能被41原创 2012-12-14 09:04:38 · 1767 阅读 · 0 评论 -
关于离开,请诸位保重自己
以上文章转自豆瓣,有所感触,故转载于此,大家共享http://www.douban.com/note/185011595/昨天,又听闻了一位同龄人的离开,让我觉得该写些什么。抱歉这是个沉重的标题,自古以来都是吧。前段时间想看开放课程,听听哲学家们的看法,可是只看了个开头就搁下了,于是自己妄言一番。这一次离开的是中山大学07级的林海韬,去年在阿里云实习的一个同事,今年去了原创 2012-12-12 23:41:17 · 1048 阅读 · 0 评论 -
欧拉计划:25题斐波那契数列中第一个包含1000位数字的项是第几项?
以下是斐波那契数列的递归定义:Fn = Fn1 + Fn2, F1 = 1,F2 = 1.那么其12项为:F1 = 1F2 = 1F3 = 2F4 = 3F5 = 5F6 = 8F7 = 13F8 = 21F9 = 34F10 = 55F11 = 89F12 = 144因此第12项,F12,是第一个包含三位数字的项。原创 2012-12-12 21:41:27 · 2853 阅读 · 0 评论 -
Algorithm::FastPermute模块的应用:欧拉计划第24题:0, 1, 2, 3, 4, 5, 6, 7, 8,9的第100万个字典排列是什么
题目如下:排列是一个物体的有序安排。例如3124是1,2,3,4的一种排列。如果所有的排列按照数值或者字母序排序,我们称其为一个字典序。0,1,2的字典排列有:012 021 102 120 201 2100, 1, 2, 3, 4, 5, 6, 7, 8,9的第100万个字典排列是什么?首先声明,我是用笔算出来的。用了一页纸,还算好了。然后原创 2012-12-12 20:30:21 · 2142 阅读 · 0 评论 -
欧拉计划:纠结的第23题,找出所有不能表示为两个过剩数之和的正整数之和,优化后7s可以执行完,再优化5秒
如果一个数的所有真因子之和等于这个数,那么这个数被称为完全数。例如,28的所有真因子之和为1 + 2 + 4 + 7 + 14 = 28,所以28是一个完全数。如果一个数的所有真因子之和小于这个数,称其为不足数,如果大于这个数,称其为过剩数。12是最小的过剩数,1 + 2 + 3 + 4 + 6 = 16。因此最小的能够写成两个过剩数之和的数字是24。经过分析,可以证明所有大于2812原创 2012-12-12 15:12:52 · 1862 阅读 · 0 评论 -
欧拉计划35题:100万以下有多少个循环质数?附模块 Math-Prime-Util的使用:17秒的差距::思考总能学习新的东西,思考总能得到好的结果
这里程序其实还有很多的问题,首先,求100000以内的素数有一个专门的模块,明天好好研究一下,再做总结,其次,循环数的遍历一块,很啰嗦,但是还没有找到更好的方法,这个也需要优化。我们称197为一个循环质数,因为它的所有轮转形式: 197, 971和719都是质数。100以下有13个这样的质数: 2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73,原创 2012-12-20 22:17:03 · 1346 阅读 · 0 评论 -
vim插件:perl-support 在windows下的安装和应用,和linux下 的安装(非常简单)
第一:插件可以到官网上下载,顺便把网址贴上来:http://www.vim.org/scripts/script.php?script_id=556下载下来以后,解压文件夹,然后看里面的README.perlsupport.我自己摸索的时候花费了很大的力气,光是看英语的介绍,就把我吓退了几次,如果大家有不明白的地方,欢迎评论交流,或者发邮件rongchaogao@gmail.com我在原创 2012-11-02 22:01:06 · 2515 阅读 · 0 评论 -
用vim diff进行两个文件的比较
我们知道可以用total commander来进行两个文件的比较,这是非常方便的,但是如果linux下没有TC应该怎么办呢?万能的vim也有的它的解决方案,今天恰好用到了,就从别人那里拿过来,mark一下,方便以后的回顾和使用。http://www.iflym.com/index.php/linux-develop/201110220002.html如果你工作在linux,原创 2013-01-19 22:15:49 · 4166 阅读 · 0 评论 -
走向并行系列之-使用ForkManager编写多进程程序
ForkManager下载地址:http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.5/ForkManager.pmfork函数创建进程关于使用fork创建进程网上有很多优秀的实例,这里粘贴一例,演示新怎样创建一个新的进程:http://fuzhong1983.blog.163.com/blog/static/1684705201转载 2013-07-26 20:37:44 · 2233 阅读 · 0 评论 -
perl应用:从基因组里分割染色体序列
染色体的结构:>Chr1nnnnnnnnnnnnnnnnnnnnnnnnnnnn>Chr2ATGCATGC下面是程序:use strict;use warnings;my $dna_filename;my $DNA0='';my $DNA1='';my $DNA2='';my $DNA3='';my $DNA4='';my $DNA5='';pri原创 2012-11-16 18:18:35 · 3891 阅读 · 0 评论 -
samtools得到mapping中各个位置覆盖度情况程序,samtools tview的使用
use strict;use warnings;system 'samtools tview /home/blackstar/lastz/GRC/Yeast/share/02.assembly/00.novoalign/yeast_set1/H1_1/H1_1_Clean.S288C.novo.pe.dedup.bam /home/blackstar/lastz/GRC/Yeast/sha原创 2013-03-30 16:45:20 · 7066 阅读 · 0 评论 -
perl 变量 $/ 的用法解析:上下文为行模式时,$/ 定义以什么来区分行
今天在看书的过程中,遇到 $/ 这个变量,我们来总结一下这个变量在默认状态下,我们很显然都是用\n来区分行,\n也被我们称作为换行符。当我们读取序列的时候,我们按行来读取的时候,就是以换行符为标准。我们读取的strawberry1.gb的文件内容如下:LOCUS JX118024 460 bp DNA linear原创 2012-11-10 11:51:14 · 2495 阅读 · 0 评论 -
Phylip进化树的使用,偏重于文件格式的获取
Phylip进化树的使用,偏重于文件格式的获取Table of Contents1 关于这个软件2 mix.exe格式3 pars.exe4 附录:phylip软件子程序说明1 关于这个软件这个软件包含的内容很多,里面有许多的程序。后面我会附上我从别处看到的一 个总结,这里我们只是侧重于,对于这些程序所需要的输入文件的格式进行说明, 并讨论具体的实现方法原创 2013-04-30 13:51:28 · 8647 阅读 · 0 评论 -
我使用过的Linux命令之dos2unix - 将DOS格式文本文件转换成UNIX格式
我使用过的Linux命令之dos2unix - 将DOS格式文本文件转换成UNIX格式本文链接:http://codingstandards.iteye.com/blog/810900 (转载请注明出处)^J = = \n^M = = \r用途说明dos2unix命令用来将DOS格式的文本文件转换成UNIX格式的(DOS/MAC to U转载 2013-04-15 18:41:40 · 1191 阅读 · 0 评论 -
R从文件中读取数据,输出文件
看了几天的书,终于到这一步了,说实话,用R来做统计,很少有人手动的去输入那些数字,肯定是从别的地方导入的,我们用来处理就可以了,所以到这里才算是真正的入门,前面都是做基础的练手。我学习R从《R语言与统计分析》入手,第一个例子,从书上的例子,入手,为大家能够快速入门。在F盘下有个r文件夹,里面有个foo.txt的文件,文件的内容如下:treat weightA原创 2013-01-03 16:35:21 · 11071 阅读 · 0 评论 -
perl模板的应用:随机排序:随机不放回取样
有时候我们可能需要随机的将一些的数字或者其他的元素进行随机的抽取,或者随机的排序,这里他们的本质是一样的。或者随机的排序我们也可以看作是不放回的随机取样。因为我们随机排序的每一个元素的顺序都是随机的。相当于每一个元素都是模拟的随机抽取。大家可能在科研的过程中用到。这里从百度知道里可以搜索到答案,这里稍作整理,以便后来的应用。程序内容如下,大家根据需要自己修改,用到的是perl的List::原创 2013-01-21 21:43:13 · 3949 阅读 · 2 评论 -
欧拉计划参与讨论的时候怎么附上代码的问题
特别是用perl的时候,很多东西都是乱码的。所以不能直接的复制,粘贴。用一下代码就可以解决:[code]你的代码[/code]也就是把你的代码放入[code]和[/code]就好了原始代码:[code=Perl]use strict;use warnings;my %hash;my $num;my $m;my @array;my $cout=0;f原创 2012-12-12 15:29:27 · 953 阅读 · 0 评论 -
欧拉计划:第21题计算10000以下所有亲和数之和,22题文件中所有名字的得分之和
21:计算10000以下所有亲和数之和:Let d(n) be defined as the sum of proper divisors of n (numbers less than n which divide evenly into n).If d(a) = b and d(b) = a, where a b, then a and b are an amicable p原创 2012-12-11 14:39:19 · 55610 阅读 · 0 评论 -
perl :施瓦茨变换,多级排序:首先按照第一列排序,第一列相等的按照第二列排序............
这篇文章的写成主要参考了ace_fei的内容,其中我认为有错误的地方,并进行了修改。网页如下:http://blog.csdn.net/ace_fei/article/details/7679609,大家可以到哪里去比较参考。加入我们有这样一个文件,他的内容如下:4 6 3 4 5 1 1 2 3 1 9 0 2 0 5 3 6 2 2 0 8 2原创 2012-12-11 16:26:35 · 4069 阅读 · 0 评论 -
perl应用:DNA序列翻译为蛋白质的完整程序(中)
use warnings;use strict;my $dna='cgacgtcttcgtacgggactagctcgtgtcggtcgc';my $protein=' ';my $codon;for(my $i=0; $i<(length($dna)-2);$i+=3){ $codon=substr($dna,$i,3); $protein.=codon2aa($codon)原创 2012-10-22 20:17:46 · 6312 阅读 · 0 评论 -
perl:编码规范;严格要求自己
PERL编码规范 目录目录目 录...................................................................................................................................................III1原创 2012-10-22 20:22:37 · 3014 阅读 · 0 评论 -
perl:DNA序列翻译成氨基酸序列的若干方法,直接法,简并法,哈希法,以及perl中的uc和lc函数(上)
1.直接转换法use warnings;use strict;#利用perl来进行DNA序列到氨基酸序列的翻译,我们来介绍一下几种方法:#第一种方法:#DNA序列和氨基酸序列通过密码子来联系,密码子一共有61个,蛋白质有20个#第一种方法也就是最简单的方法,就是建立一一对应的关系# A subroutine to translate a DNA 3-character原创 2012-10-22 18:48:23 · 10277 阅读 · 0 评论 -
perl应用:DNA序列酶切图谱的创建
程序里面有很多小的知识点,大家要认真的看,才能发现:a.fasta的DNA序列如下:> sample dna | (This is a typical fasta header.) agatggcggcgctgaggggtcttgggggctctaggccggccacctactgg tttgcagcggagacgacgcatggggcctgcgcaatagg原创 2012-10-30 23:09:10 · 2751 阅读 · 2 评论 -
perl哈希要点,哈希与数组的关系以及相互转化,哈希结构的转化(键值转换),测试关键字,
use strict;use warnings;my %movies;my $film;my %reverse_result;my $director;my @data;%movies =( 'The Shining' => 'Kubrick', 'Ten Commandments' => 'DeMille', 'Goonies' =>原创 2012-10-19 23:04:48 · 7397 阅读 · 0 评论 -
指定长度,生成一个随机的DNA序列
use strict;use warnings; #进行定义my @dna;my $dna_length;my $newbase;my $i=0;print "please input the DNA length\n";chomp($dna_length=<>);while($i<$dna_length){ #从四个碱基中原创 2012-10-17 20:41:50 · 9547 阅读 · 0 评论 -
关于随机模拟DNA突变的反思
在上一篇文章中,我们随机选取了DNA的一个位置,然后从四个碱基中随机选取了一个碱基,然后用我们随机选取的碱基对DNA某一个位置上碱基进行替换。我们来考虑一下,这个过程中有没有什么问题存在。突变是否真的产生了?大家可以从上一篇文章中观察到其中的几行的输出结果是一样的。是什么造成了这种结果:我们来想一想,我们选取的DNA序列中碱基和我们从四个碱基中选取的碱基,在我们的程序中没有进行特别原创 2012-10-17 19:14:25 · 2278 阅读 · 0 评论 -
perl应用:生物突变的随机模拟程序
use strict;use warnings; #随便找一个比较好识别的序列my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";my $i;my $mutant;srand(time|$$);$mutant=mutate($DNA);print "Mutate \n"原创 2012-10-16 23:03:34 · 1837 阅读 · 0 评论 -
perl的srand()函数使用,time的各个函数的使用
srand()提供供rand()使用的随机数种子,rand()产生随机数生成器。、如果你在第一次调用rand()之前没有调用srand(),那么系统会为你自动调用srand()。使用同种子相同的数调用srand()会导致相同的随机数序列被生成。举例如下:srand(26);$number1=rand(100);print "$number1\n";sran原创 2012-10-15 19:19:20 · 3521 阅读 · 0 评论 -
perl 中一个随机编故事的程序(rand随机函数的应用举例)+好的程序本身就是注释
use strict;use warnings;#定义变量my $count;my $input;my $number;my $sentence;my $story;#定义四个数组#定义了人物数组my @nouns=( 'Dad', 'TV', 'Mom', 'Groucho', 'Rebecca', 'Harpo', 'Robin Hood', 'Joe原创 2012-10-08 19:54:30 · 2058 阅读 · 0 评论 -
利用perl对比两个文件,并对数据进行筛选,涉及到哈希的应用和perl编程风格的改变
my %scyjm;open (CONTACT,"f:\\perl\\f.txt")||die("can not open the file!"); while (){ next if /^#/;#if($_=~/^#/的简写 chomp; my @information =split;# my @information=split/\s+/,$_;的简写 next if(($inf原创 2012-10-12 19:35:17 · 2496 阅读 · 0 评论 -
perl应用:DNA互补序列的获取
sub revcom{ # A subroutine to compute the reverse complement of DNA sequence # 一个获取DNA互补序列的子程序 my($dna)=@_; print $dna."\n"; my ($revcom)=reverse($dna); $revcom=~tr/ACGTacgt/TGCAtgca/; return原创 2012-10-24 16:06:58 · 5603 阅读 · 1 评论 -
perl应用:DNA序列翻译(下):从fasta格式中读取序列,然后输出蛋白质序列,以及fasta格式的介绍
use strict; use warnings; my $dna =''; my $protein =''; my @file_data=( ); my @filedata; @filedata = get_file_data();$dna = extract_sequence_from_fasta_data(@filedat原创 2012-10-23 22:45:43 · 12165 阅读 · 3 评论 -
使用子程序的优点
子程序的作用: 1 降低复杂性:使用子程序的最首要原因是为了降低程序的复杂性,可以使用子程序来隐含 信息,从而使你不必再考虑这些信息。 2 避免代码段重复:无可置疑,生成子程序最普遍的原因是为了避免代码段重复。 3 限制改动带来的影响:由于在独立区域进行改动,因此,由此带来的影响也只限于一个或最多几个区域中。要把最可能改动的区域设计成最容易改动的区域。最可能被改动的区域包括:硬件依赖部原创 2012-10-24 16:43:55 · 8765 阅读 · 0 评论