求方法，检查一组数据的单调性

cecial

回复 5# 清泉一边

不是这样的，请看源数据
   

afukada

所以根據你的例子

所以的單一相對的情況是沒有相互違背的囉

比方說同樣要看t_clk_r_q_r随rpb的单调性

我可以選2-4, 也可以選5-7,8-10,11-13,14-16,17-19,20-22,甚至是32-35(33,34兩行重複)

在你的例子裡面

這些都是完全相同的趨勢

如果有不相同的怎麼處裡呢?

cecial

回复 12# afukada

是这样，我们看t_clk_r_q_r 随rpb的单调性，当然要在其他key的固定的情况下，列出来所有rpb的取值。

单出例子看，2-4,5-7都是对的。

我们要一个一个检查，一个一个报告。

我想你的意思是对所有的数据而言，t_clk_r_q_r 随rpb的单调性是什么。但这不是我要的。（很有可能和你说的一样，有些增，有些减）

我要的是在其他key固定的时候，看t_clk_r_q_r 随rpb的单调性。而不是对所有数据而言。

结果看起来就应该是这样：在其他key取。。。。的时候，t_clk_r_q_r 随rpb是单调增（减），或者是没有单调性


   

pitonas

是酱? 你的意思 ~ {:2_168:}

__DATA__
  A B C value
qq        3        2        1        0.3
qq        5        2        2        0.4
qq        3        2        1        0.2
qq        2        2        2        0.2
qq        6        2        1        0.1
qq        7        2        2        0.5
qq        8        2        1        0.2
qq        9        2        1        0.1
qq        9        2        3        0.7
qq        10        2        3        0.5
qq        11        2        3        0.3

对 A 的单调性

A       3 3 6 8 9
value   0.2 0.3 0.1 0.2 0.1
trend 没有单调性

A       2 5 7
value   0.2 0.4 0.5
trend 单调增

A       9 10 11
value   0.7 0.5 0.3
trend 单调减



3 ~ 0.3
5 ~ 0.2
3 ~ 0.4

这样有 2组 不一样的结果 ??

1: 没有单调性 3 3 5 => 0.3 0.4 0.2
2: 单调减    3 3 5 => 0.4 0.3 0.2

回复 11# cecial


   

cecial

回复 14# pitonas

如果key都一样，value是不会有两个值的。

其他都对的


   

pitonas

是酱? {:2_168:}

• 忽略 key 的值是字符的单调性检查（vt 和 corner列）
• 忽略 t_clk_r_q_r
• 没检查重复行
  

        beta        gamma        vt        corner
matter        2        1        x        y
alpha        3        3        6        8        9
value        0.2        0.3        0.1        0.2        0.1
trend        没有单调性

        beta        gamma        vt        corner
matter        2        2        x        z
alpha        2        5        7
value        0.2        0.4        0.5
trend        单调增

        beta        gamma        vt        corner
matter        2        3        x        y
alpha        9        10        11
value        0.7        0.5        0.3
trend        单调减

        alpha        gamma        vt        corner
matter        5        2        x        z
beta        2
value        0.4
trend        只有这一个

......


        alpha        gamma        vt        corner
matter        3        1        x        y
beta        2        2
value        0.2        0.3
trend        单调增

1. #!/usr/bin/perl
   
2. 
   
3. #@ARGV = 'TEST.txt';  # txt not xlsl
   
4. my $title = <DATA>;
   
5. my @title = split /\t/, $title;
   
6. my $lkey  = @title - 4;           # 忽略 vt 和 corner 列
   
7. $title[0] = '';
   
8. my %h;
   
9. 
   
10. while (<DATA>) {
    
11.     my @a = split;
    
12.     my ( $first, $value, @last ) = @a[ 0, -1, -3, -2 ];
    
13. 
    
14.     for my $i ( 1 .. $lkey ) {
    
15.         my $key = $a[$i];
    
16. 
    
17.         # 忽略 key 的值是字符的单调性检查（vt 和 corner列）
    
18.         # 忽略 t_clk_r_q_r
    
19.         
    
20.         my @other = @a[ 1 .. $i - 1, ( $i + 1 ) .. $lkey ];
    
21.         my $other = join '|', @other;
    
22. 
    
23.         push @{ $h{$i}{$other}{X} }, $key;
    
24.         push @{ $h{$i}{$other}{Y} }, $value;
    
25.         $h{$i}{$other}{Z} ||= [ $first, @other, @last ];
    
26.     }
    
27. }
    
28. 
    
29. for my $i ( 1 .. $lkey ) {
    
30.     my $kv   = $title[$i];
    
31.     my $keys = join "\t", @title[ 0, 1 .. $i - 1, ( $i + 1 ) .. $#title - 1 ];
    
32. 
    
33.     while ( my ( undef, $v ) = each %{ $h{$i} } ) {
    
34.         my @X = @{ $v->{X} };
    
35.         my @Y = @{ $v->{Y} };
    
36.         my @Z = @{ $v->{Z} };
    
37. 
    
38.         # 如果 key 都一样，value 是不会有两个值的。then
    
39.         # my @index = sort { $X[$a] <=> $X[$b] } 0 .. $#X;
    
40.         # else use this line
    
41.         my @index = sort { $X[$a] <=> $X[$b] || $Y[$a] <=> $Y[$b] } 0 .. $#X;
    
42. 
    
43.         @X = @X[@index];
    
44.         @Y = @Y[@index];
    
45. 
    
46.         my $Y0 = join '|', @Y;
    
47.         my $Y  = join '|', sort { $a <=> $b } @Y;
    
48. 
    
49.         print
    
50.           $keys, "\n",
    
51.           join( "\t", @Z ), "\n",
    
52.           $kv, "\t", join( "\t", @X ), "\n",
    
53.           'value', "\t", join( "\t", @Y ), "\n",
    
54.           'trend', "\t", (
    
55. 
    
56.             # if data 有 @X only 1 element: then add this line
    
57.             @X == 1 ? '只有这一个' :  # 可以注解此行 if all @X >= 2
    
58.             
    
59.             $Y0 eq $Y
    
60.             ? '单调增'
    
61.             : do {
    
62.                 $Y = join '|', sort { $b <=> $a } @Y;
    
63.                 $Y0 eq $Y ? '单调减' : '没有单调性';
    
64.               }
    
65.           ),
    
66.           "\n", "\n";
    
67.     }
    
68. }
    
69. 
    
70. __DATA__
    
71.         alpha        beta        gamma        vt        corner        value
    
72. matter        3        2        1        x        y        0.3
    
73. matter        5        2        2        x        z        0.4
    
74. matter        3        2        1        x        b        0.2
    
75. matter        2        2        2        b        a        0.2
    
76. matter        6        2        1        x        c        0.1
    
77. matter        7        2        2        b        n        0.5
    
78. matter        8        2        1        k        m        0.2
    
79. matter        9        2        1        u        o        0.1
    
80. matter        9        2        3        x        y        0.7
    
81. matter        10        2        3        x        y        0.5
    
82. matter        11        2        3        x        y        0.3
    

复制代码

回复 15# cecial


   

cecial

回复 16# pitonas

多谢，多谢，这段时间在忙其他的，没及时回复。

除了一点，不考虑非数字key的单调性不是说在建立hash的时候就可以忽略。

基本上，这个思路基本可行。




   

cecial

回复 17# walklan

多谢，多谢。

不过在建立%DATA的时候，你关键字用了key的值，存在一个问题是不同的key有相同的值，所以会造成冲突。