TXT中一個坐標列，一個數據列，將數據按坐標生成map

情節可以很簡單

我的需求是：看電壓分布。
1.電壓值按50mV等級替換:
        0< A <=1.4000;
1.4000< B <=1.4500;
1.4500< C <=1.5000;
1.5000< D <=1.5500;
1.5500< E <=1.6000;
1.6000< F <=1.6500;
1.6500< G <=1.7000;
1.7000< H <=1.7500;
1.7500< I <=1.8000;
1.8000< J ;

2.將第三列電壓值按照坐標生成數據圖, 空白坐標可以用“0”或其他任何 表示。
3.還有一個難點：有坐標相同的點，取其中任意一點替代。
#----------------------------------------
我的輸入TXT為:（ Y坐標：1~73；X坐標：不定）第一列坐標X值大小順序沒有規律，且Y相同--X的范圍也不是固定的。
另外如果第二列“bgr_trim8”礙眼，我可以去掉。
(7,1)            bgr_trim8        1.4796        V
(8,1)            bgr_trim8        1.6455        V
(9,1)            bgr_trim8        1.5645        V
(10,1)            bgr_trim8        1.5863        V
(7,1)            bgr_trim8        1.4803        V
(-1,1)            bgr_trim8        1.6614        V
(0,1)            bgr_trim8        1.6055        V
(1,1)            bgr_trim8        1.6841        V
(2,1)            bgr_trim8        1.5392        V
(3,1)            bgr_trim8        1.6637        V
(4,1)            bgr_trim8        1.6190        V
(5,1)            bgr_trim8        1.6247        V
(6,1)            bgr_trim8        1.6122        V
(1,1)            bgr_trim8        1.6867        V
(-5,1)            bgr_trim8        -124.1541        mV
(-9,2)            bgr_trim8        1.5492        V
(-8,2)            bgr_trim8        1.6070        V
(-7,2)            bgr_trim8        1.5932        V
(-6,2)            bgr_trim8        1.4986        V
(-5,2)            bgr_trim8        1.5313        V
(-4,2)            bgr_trim8        1.6900        V
(-3,2)            bgr_trim8        1.6924        V
(-2,2)            bgr_trim8        1.5223        V
(-1,2)            bgr_trim8        1.6690        V
(0,2)            bgr_trim8        1.7155        V
(1,2)            bgr_trim8        1.6334        V
(-6,2)            bgr_trim8        1.4990        V

.......         ............     ........      ...


#----------------------------------------
能不能過好這個年就差這一哆嗦了！給大家拜個早年！

523066680

回復 28# 情節可以很簡單

老奶奶都不扶，就服你。不過我沒有在兩側標出坐標軸，這個問題就留給題主了。

1. use List::Util qw/max min/;
   
2. STDOUT->autoflush(1);
   
3. 
   
4. my @data = read_file("bgr_trim8.txt");
   
5. 
   
6. our ( @X, @Y, @Z, %edge );
   
7. for my $row ( @data )
   
8. {
   
9.     $row=~/\((-?\d+),(-?\d+)\)\s+(\w+)/;
   
10.     push @X, $1;
    
11.     push @Y, $2;
    
12.     push @Z, $3;
    
13. }
    
14. 
    
15. %edge = (
    
16.     'x' => { 'min' => min( @X ), 'max' => max( @X ) },
    
17.     'y' => { 'min' => min( @Y ), 'max' => max( @Y ) },
    
18. );
    
19. 
    
20. our @buffer;
    
21. create_buffer();
    
22. draw_buffer();
    
23. <STDIN>;
    
24. 
    
25. sub draw_buffer
    
26. {
    
27.     our ( @X, @Y, @Z, %edge );
    
28.     my ($x, $y, $str);
    
29.     for my $id ( 0 .. $#X )
    
30.     {
    
31.         $x = $X[$id] - $edge{x}{min};
    
32.         $y = $Y[$id] - $edge{y}{min};
    
33.         $buffer[ $y ][ $x ] = $Z[$id];
    
34.     }
    
35. 
    
36.     $str = join "\n", map { join("", @$_ ) } ( @buffer );
    
37.     print $str;
    
38.     write_file("graph.txt", $str );
    
39. }
    
40. 
    
41. sub create_buffer
    
42. {
    
43.     my $dtx = $edge{x}{max} - $edge{x}{min} + 1;
    
44.     my $dty = $edge{y}{max} - $edge{y}{min} + 1;
    
45.     grep { push @buffer, [(".")x$dtx]; } ( 1 .. $dty );
    
46. }
    
47. 
    
48. sub read_file
    
49. {
    
50.     open my $fh, "<", $_[0];
    
51.     return (<$fh>);
    
52. }
    
53. 
    
54. sub write_file
    
55. {
    
56.     open my $fh, ">", $_[0];
    
57.     print $fh $_[1];
    
58.     close $fh;
    
59. }

復制代碼

jason680

回復 1# 情節可以很簡單

1. input data
2. procedure
3. output data


1.4501咋辦?

我的需求是：
1.電壓值按50mV等級替換:
               J:<1.4000;
               A:1.4000~1.4500;
       1.4501咋辦?
               B:1.4600~1.5000;
               C:1.5100~1.5500;

情節可以很簡單

回復 2# jason680

誒呀！腦子只轉了半圈！
        0< A <=1.4000;
1.4000< B <=1.4500;
1.4500< C <=1.5000;
1.5000< D <=1.5500;
1.5500< E <=1.6000;
1.6000< F <=1.6500;
1.6500< G <=1.7000;
1.7000< H <=1.7500;
1.7500< I <=1.8000;
1.8000< J ;

#------------------------
我單純試了一下替換：
  if( ( 1.5000 < ((split)[2]) ) && ( ((split)[2]) <= 1.5500) )
  {
    s/$1/D/g;   #"$1" 這里該寫啥啊，我試了幾種就這個 結果可以有改變。
  }

結果長這樣：

(0,1)        1.6055
(1,1)        1.6841
D(D2D,D1D)D        D    #只替換了這一等級，但是坐標咋被穿插了這么多“D”
(3,1)        1.6637
(4,1)        1.6190
(5,1)        1.6247
(6,1)        1.6122

jason680

回復 3# 情節可以很簡單

$ perl get_50mv.pl file
(7,1)            bgr_trim8        1.4796        V    C
(8,1)            bgr_trim8        1.6455        V    F
(9,1)            bgr_trim8        1.5645        V    E
(10,1)            bgr_trim8        1.5863        V    E
(7,1)            bgr_trim8        1.4803        V    C
(-1,1)            bgr_trim8        1.6614        V    G
(0,1)            bgr_trim8        1.6055        V    F
(1,1)            bgr_trim8        1.6841        V    G
(2,1)            bgr_trim8        1.5392        V    D
(3,1)            bgr_trim8        1.6637        V    G
(4,1)            bgr_trim8        1.6190        V    F
(5,1)            bgr_trim8        1.6247        V    F
(6,1)            bgr_trim8        1.6122        V    F
(1,1)            bgr_trim8        1.6867        V    G
(-5,1)            bgr_trim8        -124.1541        mV    A
(-9,2)            bgr_trim8        1.5492        V    D
(-8,2)            bgr_trim8        1.6070        V    F
(-7,2)            bgr_trim8        1.5932        V    E
(-6,2)            bgr_trim8        1.4986        V    C
(-5,2)            bgr_trim8        1.5313        V    D
(-4,2)            bgr_trim8        1.6900        V    G
(-3,2)            bgr_trim8        1.6924        V    G
(-2,2)            bgr_trim8        1.5223        V    D
(-1,2)            bgr_trim8        1.6690        V    G
(0,2)            bgr_trim8        1.7155        V    H
(1,2)            bgr_trim8        1.6334        V    F
(-6,2)            bgr_trim8        1.4990        V    C

$ cat get_50mv.pl

use strict;
use warnings;

my $sVolt_lo = 1.4;
my $sVolt_hi = 1.8;
my $sVolt_st = 0.05;

my %hVolt_step;

my $sVolt = $sVolt_lo;
my $sVolt_step = "A";

sub next_step{
  my ($sStep) = @_;
  return(chr(ord($sStep)+1));
}
while($sVolt <= $sVolt_hi){
  $sVolt_step = next_step($sVolt_step);
  $hVolt_step{$sVolt} = $sVolt_step;  
  $sVolt += $sVolt_st;
}

my %hVolt_unit = (
  'mV' => 10**-3,
  'V'  => 1,
  'kV' => 10**3,
);


while(<>){
  chomp;
  my @aData = split;
  if(! exists $hVolt_unit{$aData[3]}){
    print STDERR "*** ERROR ****: unknow voltage unit\n$_\n";
    next;
  }
  my $sVolt = $aData[2] * $hVolt_unit{$aData[3]};
  if($sVolt <= $sVolt_lo){
    print "$_\tA\n";
    next;
  }
  if($sVolt > $sVolt_hi){
    print "$_\t$hVolt_step{$sVolt_hi}\n";
    next;
  }
  my $sStep = int((($sVolt-$sVolt_lo)*1000-1)/($sVolt_st*1000))*$sVolt_st+$sVolt_lo;
  print "$_\t$hVolt_step{$sStep}\n";

}

情節可以很簡單

回復 4# jason680

謝謝大神！看到您這樣按步自動分級令我茅塞頓開!運行了，結果也是正確的！
與此同時，我按照我那本方法也實現了全部替換。
結果如下：

#---------------------
(7,1)            C               
(8,1)            F               
(9,1)            E               
(10,1)            E               
(7,1)            C               
(-1,1)            G               
(0,1)            F               
(1,1)            G               
(2,1)            D               
(3,1)            G               
(4,1)            F               
(5,1)            F               
(6,1)            F               
(1,1)            G               
(-5,1)            A               
(-9,2)            D               
(-8,2)            F               
(-7,2)            E               
(-6,2)            C               
(-5,2)            D               
(-4,2)            G               
(-3,2)            G               
(-2,2)            D               
(-1,2)            G               
(0,2)            H               
(1,2)            F               
(-6,2)            C               
(-4,2)            G               
(-3,2)            G

.......         ..

#--------------------------------
現在還差按坐標生成圖了。。。
重復的坐標按其中一個就行�？瞻鬃鴺擞萌我夥�號代替。
這個我連笨思路都想不通

523066680

看到數據中有個負數，也歸為A是嗎

1. use File::Slurp;
   
2. STDOUT->autoflush(1);
   
3. 
   
4. our %ranks = (
   
5.     A => [-10000, 1.4000],
   
6.     B => [1.4000, 1.4500],
   
7.     C => [1.4500, 1.5000],
   
8.     D => [1.5000, 1.5500],
   
9.     E => [1.5500, 1.6000],
   
10.     F => [1.6000, 1.6500],
    
11.     G => [1.6500, 1.7000],
    
12.     H => [1.7000, 1.7500],
    
13.     I => [1.7500, 1.8000],
    
14.     J => [1.8000, 100000],
    
15. );
    
16. 
    
17. my @data = read_file("data.txt");
    
18. my (@col, $rank);
    
19. 
    
20. for my $row ( @data )
    
21. {
    
22.     $row=~s/\r?\n//;
    
23.     @col = split( /\s+/, $row );
    
24.     $rank = get_rank( $col[2] );
    
25.     printf "%s    %s\n", $row, $rank;
    
26. }
    
27. 
    
28. sub get_rank
    
29. {
    
30.     our (%ranks);
    
31.     my $val = shift;
    
32.     my ($rank) = grep { inrange( $val, $ranks{$_} ) && $_ } keys %ranks;
    
33.     return $rank;
    
34. }
    
35. 
    
36. sub inrange
    
37. {
    
38.     my ($v, $ref) = @_;
    
39.     return ($v > $ref->[0] and $v <= $ref->[1]) ? 1 : 0;
    
40. }

復制代碼

你的數據能不能壓縮發個完整的到網盤？不然真是到時候做出來又有其他狀況。
數據作圖是3D點云圖吧？X,Y + 電壓值，三個向量。

情節可以很簡單

回復 6# 523066680

讓您費心了，
我把原文件壓縮了，在添加附件時：上傳完畢后，提示附件無法保存！
另外我怎么通過百度網盤傳給你呀..需要賬號嗎
總之目前的結果能達到下面這樣：能確定的是Y從1~73，但是X看不出來。
#--------------------------------
(7,1)            C               
(8,1)            F               
(9,1)            E               
(10,1)            E               
(7,1)            C               
(-1,1)            G               
(0,1)            F               
(1,1)            G               
(2,1)            D               
(3,1)            G               
(4,1)            F               
(5,1)            F               
(6,1)            F               
(1,1)            G               
(-5,1)            A               
(-9,2)            D               
(-8,2)            F               
(-7,2)            E               
(-6,2)            C               
(-5,2)            D               
(-4,2)            G               
(-3,2)            G               
(-2,2)            D               
(-1,2)            G               
(0,2)            H               
(1,2)            F               
(-6,2)            C               
(-4,2)            G               
(-3,2)            G               
(-1,2)            G               
(0,2)            H               
(2,2)            F               
(3,2)            E               
(4,2)            D               
(5,2)            E               
(6,2)            H               
(7,2)            G               
(8,2)            F               
(9,2)            E               
(6,2)            H
.......         ..
#----------------------
字母按照對應坐標生成坐標圖。
難點：
1.有重復坐標 取其中任一個；
2.坐標夠不成整齊的矩形或圓形，需用“0”或空格補滿。

大致思路：是否可以把坐標X排序（Y順序不變），并按最長X補齊坐標。。但是我覺得無法實現吧。。。也許我想的太復雜了！

523066680

回復 7# 情節可以很簡單

先不說這個，你有百度網盤嗎，或者 www.ys168.com 也不錯。
注冊頁面 http://www.ys168.com/register.aspx

——
問題補充：
你說的作圖是字符圖而不是渲染圖？

把電壓作為高度渲染出來了，（圖中y軸數據是錯的，請無視）


修正一下：

情節可以很簡單

回復 8# 523066680

我有百度網盤，賬號17778056201 我的百度云鏈接：https://pan.baidu.com/mbox/homepage?userShort=qZNe8XI 有效期：3天。點擊就可以和我發文件和消息了。
另外我有個疑問：
1.渲染圖的表現形式是帶顏色的字母嗎？隨電壓升高顏色變化。
2.目前只需要字符分布
3.如果1成立，那結果就更直觀了，如果麻煩，就不要了。

萬分感激！來自一個搞電路硬件的軟妹子。。