Work7

import java.util.Scanner;

public class Work7 {

    public static void main(String[] args) {
        /*
        实现饲养功能关键算法并绘制流程图(30 分)
动物园饲养的食肉动物分大型动物和小型动物两类,规定老虎、狮子一类的大动物每
次喂肉每头三斤,狐狸、山猫一类小动物每三头喂一斤。该动物园共有这两类动物 100
头,每次需喂肉 100 斤,编程输出大、小动物的数量。
要求:用循环语句实现。
         */
        int big,small;
        for(big=1;big<=100;big++) {
            for(small=1;small<=100;small++) {
                if((big+small==100)&&(big*3+small/3==100)) {
                    System.out.println("大动物的数量是:"+big+"小动物的数量是:"+small);
                }
            }
        }
        /*
         :实现趣味动物问题关键算法并绘制流程图(30 分)
动物园里新来了两只骆驼,那么你能计算出它们年龄的最小公倍数么?
从键盘输入两个整数,输出两个整数的最小公倍数。
要求: 用循环语句实现。
         */
        Scanner sin=new Scanner(System.in);
        System.out.println("请你输入第一个整数");
        int o=sin.nextInt();
        System.out.println("请你输入第二个整数");
        int p=sin.nextInt();
        int min=o*p;
        if(o<p)
        {
            int temp=o;
            o=p;
            p=temp;
        }
        while(p!=0)
        {
            int t=o%p;
            o=p;
            p=t;    
        }
        min=min/o;    
        System.out.println("它们年龄的最小公倍数为:"+min);
        /*
         实现人工湖关键算法并绘制流程图(30 分)
现在,动物园想在新建一个三角形的人工湖,一是为了养鱼美观,二是可以循环水资
源。从键盘输入三条边 A、B、C 的边长,请编程判断能否组成一个三角形。                                        
要求:A,B,C <1000,如果三条边长 A、B、C 能组成三角形的话,输出 YES,否则 NO。
         */
        System.out.println("请输入三角形的三条边长(小于1000):");
            int A=sin.nextInt();
            int B=sin.nextInt();
            int C=sin.nextInt();
            if((A+B)>=C&&(B+C)>=A&&(A+C)>=B) {
                System.out.println("yes");
            }else {
                System.out.println("no");
            }
        }
        }

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
非常好,接下来我将为您提供完整的代码来实现您的需求: 1. 使用Venn图比较work7_1和work8_1中的共同term ``` library(VennDiagram) library(dplyr) # 从数据中提取term work7_1_terms <- unique(work7_1$Term) work8_1_terms <- unique(work8_1$Term) # 制作Venn图 venn.diagram( x = list(work7_1_terms, work8_1_terms), category.names = c("work7_1", "work8_1"), filename = "venn.pdf" ) # 找出共同的term common_terms <- intersect(work7_1_terms, work8_1_terms) # 输出共同的term cat("共同的term有:", common_terms, "\n") ``` 2. 使用热图比较共同term包含的相同基因 ``` # 从数据中提取共同的term work7_1_common <- filter(work7_1, Term %in% common_terms) work8_1_common <- filter(work8_1, Term %in% common_terms) # 提取共同基因 work7_1_genes <- unique(unlist(strsplit(work7_1_common$Genes, ", "))) work8_1_genes <- unique(unlist(strsplit(work8_1_common$Genes, ", "))) # 制作共同基因的热图 library(pheatmap) # 读取基因表达数据 gene_data <- read.csv("gene_expression.csv", header = TRUE, row.names = 1) # 提取共同基因的表达数据 gene_data <- gene_data[intersect(work7_1_genes, work8_1_genes), ] # 制作热图 pheatmap(gene_data, scale = "row") ``` 注意:在上述代码中,我们假设您的基因表达数据已经以CSV格式保存,并使用R语言中的read.csv函数读取。 以上就是对于您的需求的完整代码。请注意,这只是一个基础的数据析流程,具体的数据清理、预处理、析和可视化过程需要根据您的具体数据和问题进行适当的调整。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值