随机条件

susie_gan

for (1..1000){
open AOUT,">a$_.txt" || die "Can't open the file!";
open BOUT,">b$_.txt" || die "Can't open the file!";
open IN,"<data.txt" || die "Can't open the file!";
while (<IN> {
/^\d+\s(\d+)\s(\d+)/;
my $temp=int((2/5+(rand($1)/$1)/5)*$1);
my $temp2=int((2/5+(rand($2)/$2)/5)*$2);
printf AOUT "%d %d %d\n",$_,$temp,$temp2;
printf BOUT "%d %d %d\n",$_,$1-$temp,$2-$temp2;
}
close IN;
close AOUT;
close BOUT;
}
这个是随机1000次产生的程序，对第2列和第3列分别随机在原始数据范围的0.4-0.6之间，那如果我想加个限制条件，就是随机得到第2列与第3列的 比值的绝对值要小于0.03的才输出，否则继续随机直到条件满足，对产生的两个文件都做这样的条件，我自己写了，可是一直不对，希望帮忙，谢谢！！

rpbear

楼主我建议你找本书系统地学习一下

susie_gan

回复 2# rpbear


    因为本人不是学习计算机的，但是有些地方要用到，又赶时间，只能问些白痴问题了~~

rpbear

其实脚本的书看起来很快的，而且我觉得对你肯定会有用。既然你现在会用到，很可能以后还会用到，这样就不用每次都问啦多好呵呵回复 3# susie_gan

susie_gan

回复 4# rpbear


    #!/bin/perl

for (1..1000){
open AOUT,">a$_.txt" || die "Can't open the file!";
open BOUT,">b$-.txt" || die "Can't open the file!";
open IN,"<data.txt" || die "Can't open the file!";
while (<IN> {
  /^\d+(\d+)\s+(\d+)/;
  #if($1==0){
          # next;
          #}
        do{
   my $temp=int((2/5+(rand($1)/$1)/5)*$1);
   my $temp2=int((2/5+(rand($2)/$2)/5)*$2);
   printf AOUT "%d %d %d\n",$_,$temp,$temp2;
   printf BOUT "%d %d %d\n",$_,$1-$temp,$2-$temp2;
   }
    until($temp/$temp2-(($1-$temp)/($2-$temp2)<0.03 || ($1-$temp)/($2-$temp2)-$temp/$temp2<0.03);
close IN;
close AOUT;
close BOUT;
}
呵呵，但是现在还没有买书，而且我现在就在调试，等着用，这是我改写的，要不你帮我 看看怎么改吧？提示说编辑错误，也不知道哪里有问题

cjaizss

不懂perl
以下是不是你想要的？

1. 
   
2. #!/bin/perl
   
3. 
   
4. for (1..1000){
   
5.         open AOUT,">a$_.txt" || die "Can't open the file:$!";
   
6.         open BOUT,">b$-.txt" || die "Can't open the file:$!";
   
7.         open IN,"<data.txt" || die "Can't open the file:$!";
   
8.         while (<IN>) {
   
9.                 /^\d+(\d+)\s+(\d+)/;
   
10. #if($1==0){
    
11. # next;
    
12. #}
    
13.                 do{
    
14.                         my $temp=int((2/5+(rand($1)/$1)/5)*$1);
    
15.                         my $temp2=int((2/5+(rand($2)/$2)/5)*$2);
    
16.                         printf AOUT "%d %d %d\n",$_,$temp,$temp2;
    
17.                         printf BOUT "%d %d %d\n",$_,$1-$temp,$2-$temp2;
    
18.                 }
    
19.                 until($temp/$temp2-(($1-$temp)/($2-$temp2)<0.03 || ($1-$temp)/($2-$temp2)-$temp/$temp2<0.03));
    
20.                                 close IN;
    
21.                                 close AOUT;
    
22.                                 close BOUT;
    
23.                                 }
    
24.                                 }
    
25. 
    
26. 
    

复制代码

cjaizss

运行了一下，生成了好多空白的axxx.txt...

dibug

perl是什么？

rpbear

这个。。perl我也不会。。。帮不上阿

susie_gan

回复 6# cjaizss


    这个和我原来写的好像没有什么区别吧？