Perl
文章平均质量分 92
bioittang
热爱生活&&兴趣编程
展开
-
求表达式偏导(输出的是表达式)(Perl实现)
这是学校perl课程结束时的大作业。开始思考前,我上网搜寻了下,发现网上相应资料几乎没有,大多数都是求表达式某个点的导数值。而作业要求是求一个表达式的偏导式子,即输出也要是式子。没办法,只能自己思考了(最终版本代码在最后(带注释,可直接跳跃看最终版代码,代码600行,建议复制到编辑器中观看))开始阅读前建议点击下面链接观看3.5, 3.6, 3.7, 9.5, 9.6。因为写的很简单,不了解下数据结构的知识可能看不懂B站数据结构视频最开始思路对于表达式求导,第一个目标是先做出来加减乘除的。由原创 2020-07-14 21:51:45 · 1158 阅读 · 3 评论 -
Needleman-Wunsch(可视化多个最优结果)(perl)
上次发了个Needleman-Wunsch算法,只打印了一个结果,这次随便写了个很长很长的if,else(自己都看不下去),也没时间优化了,代码如下:#!/usr/bin/perl -wuse strict; use autodie;#对于程序的说明:这个程序采用的是生信的Needleman-Wunsch 算法,起源较早,算是最早的序列比对算法了 #Needleman-Wunsch 算法简介:首先创建一个二维的得分矩阵,行和列相等,都比序列长度大一,还要有一个数据结构储存打分表,即2种相同原创 2020-06-02 23:12:32 · 490 阅读 · 0 评论 -
实现序列全局对比(Needleman-Wunsch )(perl)
这篇博客我写了简单和中等难度两个比对方法1.简单的动态规划,得出基因的最短编辑距离简介在注释中,代码如下:#!/usr/bin/perl -wuse strict;use autodie;#这个程序就是一个简单的动态规划,它只能算出最短的编辑距离,理论上与Needleman-Wunsch 算法相似#不同的是,这个dp矩阵存的是最短编辑距离,而Needleman-Wunsch 算法的dp矩阵存的是得分情况#这题的思想是,dp矩阵第一行与第一列都是代表某一条序列对上一条空序列,所以距离逐渐加一原创 2020-05-29 18:28:45 · 2175 阅读 · 0 评论 -
Perl的一些初级练习题
Perl形势不太好,我是必修课要学的,大家可以去学习Python,不过Perl处理文本还是很可以的。有错误欢迎私信我1.读入一个文件,将序列变成一行输出#!/usr/bin/perl -wuse strict;use 5.026;open IN,"<$ARGV[0]",or die $!;open OUT,">out.txt",or die $!;while(<IN>){ chomp; print OUT $_;}print OUT "\n";close原创 2020-05-15 23:25:14 · 3225 阅读 · 0 评论