���ע�� �鿴���� |

Chinaunix

  ƽ̨ ��̳ ���� �Ŀ�
������ʰ�� ������
�鿴: 153012 | �ظ�: 33
��ӡ ��һ���� ��һ����

TXT��һ�������У�һ�������У������ݰ���������map [��������]

��̳����:
30
15-16����CBA����֮��һ
����:2020-10-27 13:24:2315-16����CBA����֮ɽ��
����:2020-10-27 13:24:07
��ת��ָ��¥��
1¥ [�ղ�(0)] [����]
������ 2018-02-01 15:07 |ֻ�������� |�������
5���û���
��������� ��ڿ��Ժܼ� �� 2018-02-01 17:12 �༭

�ҵ������ǣ�����ѹ�ֲ���
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

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


#----------------------------------------
�ܲ��ܹ��������Ͳ���һ�����ˣ�����Ұݸ����꣡








��Ѵ�

�鿴��������

�ظ� 28# ��ڿ��Ժܼ� �����̶��������ͷ��㡣������û���������������ᣬ�����������������ˡ�

��̳����:
12
����
����:2014-10-11 16:46:482016�Ʊ����ۼ�����
����:2018-03-16 10:24:0515-16����CBA����֮ɽ��
����:2017-11-10 14:32:142016�Ʊ����ۼ�����
����:2017-09-02 15:42:4715-16����CBA����֮��ɽ
����:2017-08-28 17:11:5515-16����CBA����֮�㽭
����:2017-08-24 16:55:1715-16����CBA����֮�ൺ
����:2017-08-17 19:55:2415-16����CBA����֮���
����:2017-06-29 10:34:4315-16����CBA����֮�Ĵ�
����:2017-05-16 16:38:55������
����:2016-07-19 15:03:112015�ǹ�֮����������
����:2015-05-22 11:38:5315-16����CBA����֮����
����:2019-08-13 17:30:53
2¥ [����]
������ 2018-02-01 15:07 |ֻ��������
��������� 523066680 �� 2018-02-02 19:07 �༭

�ظ� 28# ��ڿ��Ժܼ�

�����̶��������ͷ��㡣������û���������������ᣬ�����������������ˡ�

  1. use List::Util qw/max min/;
  2. STDOUT->autoflush(1);

  3. my @data = read_file("bgr_trim8.txt");

  4. our ( @X, @Y, @Z, %edge );
  5. for my $row ( @data )
  6. {
  7.     $row=~/\((-?\d+),(-?\d+)\)\s+(\w+)/;
  8.     push @X, $1;
  9.     push @Y, $2;
  10.     push @Z, $3;
  11. }

  12. %edge = (
  13.     'x' => { 'min' => min( @X ), 'max' => max( @X ) },
  14.     'y' => { 'min' => min( @Y ), 'max' => max( @Y ) },
  15. );

  16. our @buffer;
  17. create_buffer();
  18. draw_buffer();
  19. <STDIN>;

  20. sub draw_buffer
  21. {
  22.     our ( @X, @Y, @Z, %edge );
  23.     my ($x, $y, $str);
  24.     for my $id ( 0 .. $#X )
  25.     {
  26.         $x = $X[$id] - $edge{x}{min};
  27.         $y = $Y[$id] - $edge{y}{min};
  28.         $buffer[ $y ][ $x ] = $Z[$id];
  29.     }

  30.     $str = join "\n", map { join("", @$_ ) } ( @buffer );
  31.     print $str;
  32.     write_file("graph.txt", $str );
  33. }

  34. sub create_buffer
  35. {
  36.     my $dtx = $edge{x}{max} - $edge{x}{min} + 1;
  37.     my $dty = $edge{y}{max} - $edge{y}{min} + 1;
  38.     grep { push @buffer, [(".")x$dtx]; } ( 1 .. $dty );
  39. }

  40. sub read_file
  41. {
  42.     open my $fh, "<", $_[0];
  43.     return (<$fh>);
  44. }

  45. sub write_file
  46. {
  47.     open my $fh, ">", $_[0];
  48.     print $fh $_[1];
  49.     close $fh;
  50. }
���ƴ���

��̳����:
145
����ͼ�����
����:2013-10-01 15:32:13�繷
����:2013-10-25 13:31:35��ţ��
����:2013-11-04 16:22:07����
����:2013-11-18 18:48:57������
����:2013-11-29 10:09:11ʨ����
����:2013-12-12 09:57:42������
����:2013-12-24 16:24:46����
����:2014-01-08 15:26:12����ͼ�����
����:2014-01-17 13:24:40����
����:2014-02-18 14:32:59�
����:2014-02-20 14:12:13������
����:2014-02-26 12:06:59
3¥ [����]
������ 2018-02-01 16:15 |ֻ��������
��������� jason680 �� 2018-02-01 16:21 �༭

�ظ� 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;

��̳����:
30
15-16����CBA����֮��һ
����:2020-10-27 13:24:2315-16����CBA����֮ɽ��
����:2020-10-27 13:24:07
4¥ [����]
������ 2018-02-01 16:37 |ֻ��������
��������� ��ڿ��Ժܼ� �� 2018-02-01 16:49 �༭

�ظ� 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


��̳����:
145
����ͼ�����
����:2013-10-01 15:32:13�繷
����:2013-10-25 13:31:35��ţ��
����:2013-11-04 16:22:07����
����:2013-11-18 18:48:57������
����:2013-11-29 10:09:11ʨ����
����:2013-12-12 09:57:42������
����:2013-12-24 16:24:46����
����:2014-01-08 15:26:12����ͼ�����
����:2014-01-17 13:24:40����
����:2014-02-18 14:32:59�
����:2014-02-20 14:12:13������
����:2014-02-26 12:06:59
5¥ [����]
������ 2018-02-01 17:22 |ֻ��������
�ظ� 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";

}

��̳����:
30
15-16����CBA����֮��һ
����:2020-10-27 13:24:2315-16����CBA����֮ɽ��
����:2020-10-27 13:24:07
6¥ [����]
������ 2018-02-01 18:02 |ֻ��������
�ظ� 4# jason680

лл���񣡿��������������Զ��ּ�����é���ٿ�!�����ˣ����Ҳ����ȷ�ģ�
���ͬʱ���Ұ������DZ�����Ҳʵ����ȫ���滻��
������£�

#---------------------
(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

.......         ..

#--------------------------------
���ڻ����������ͼ�ˡ�����
�ظ������갴����һ�����С��հ�������������Ŵ��档
���������˼·���벻ͨ

��̳����:
12
����
����:2014-10-11 16:46:482016�Ʊ����ۼ�����
����:2018-03-16 10:24:0515-16����CBA����֮ɽ��
����:2017-11-10 14:32:142016�Ʊ����ۼ�����
����:2017-09-02 15:42:4715-16����CBA����֮��ɽ
����:2017-08-28 17:11:5515-16����CBA����֮�㽭
����:2017-08-24 16:55:1715-16����CBA����֮�ൺ
����:2017-08-17 19:55:2415-16����CBA����֮���
����:2017-06-29 10:34:4315-16����CBA����֮�Ĵ�
����:2017-05-16 16:38:55������
����:2016-07-19 15:03:112015�ǹ�֮����������
����:2015-05-22 11:38:5315-16����CBA����֮����
����:2019-08-13 17:30:53
7¥ [����]
������ 2018-02-01 21:15 |ֻ��������
��������� 523066680 �� 2018-02-01 22:51 �༭



�����������и�������Ҳ��ΪA����

  1. use File::Slurp;
  2. STDOUT->autoflush(1);

  3. our %ranks = (
  4.     A => [-10000, 1.4000],
  5.     B => [1.4000, 1.4500],
  6.     C => [1.4500, 1.5000],
  7.     D => [1.5000, 1.5500],
  8.     E => [1.5500, 1.6000],
  9.     F => [1.6000, 1.6500],
  10.     G => [1.6500, 1.7000],
  11.     H => [1.7000, 1.7500],
  12.     I => [1.7500, 1.8000],
  13.     J => [1.8000, 100000],
  14. );

  15. my @data = read_file("data.txt");
  16. my (@col, $rank);

  17. for my $row ( @data )
  18. {
  19.     $row=~s/\r?\n//;
  20.     @col = split( /\s+/, $row );
  21.     $rank = get_rank( $col[2] );
  22.     printf "%s    %s\n", $row, $rank;
  23. }

  24. sub get_rank
  25. {
  26.     our (%ranks);
  27.     my $val = shift;
  28.     my ($rank) = grep { inrange( $val, $ranks{$_} ) && $_ } keys %ranks;
  29.     return $rank;
  30. }

  31. sub inrange
  32. {
  33.     my ($v, $ref) = @_;
  34.     return ($v > $ref->[0] and $v <= $ref->[1]) ? 1 : 0;
  35. }
���ƴ���

��������ܲ���ѹ�����������ĵ����̣���Ȼ���ǵ�ʱ����������������״����
������ͼ��3D����ͼ�ɣ�X,Y + ��ѹֵ������������

��̳����:
30
15-16����CBA����֮��һ
����:2020-10-27 13:24:2315-16����CBA����֮ɽ��
����:2020-10-27 13:24:07
8¥ [����]
������ 2018-02-02 10:15 |ֻ��������
��������� ��ڿ��Ժܼ� �� 2018-02-02 10:24 �༭

�ظ� 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�������ꡣ�������Ҿ����޷�ʵ�ְɡ�����Ҳ�������̫�����ˣ�


��̳����:
12
����
����:2014-10-11 16:46:482016�Ʊ����ۼ�����
����:2018-03-16 10:24:0515-16����CBA����֮ɽ��
����:2017-11-10 14:32:142016�Ʊ����ۼ�����
����:2017-09-02 15:42:4715-16����CBA����֮��ɽ
����:2017-08-28 17:11:5515-16����CBA����֮�㽭
����:2017-08-24 16:55:1715-16����CBA����֮�ൺ
����:2017-08-17 19:55:2415-16����CBA����֮���
����:2017-06-29 10:34:4315-16����CBA����֮�Ĵ�
����:2017-05-16 16:38:55������
����:2016-07-19 15:03:112015�ǹ�֮����������
����:2015-05-22 11:38:5315-16����CBA����֮����
����:2019-08-13 17:30:53
9¥ [����]
������ 2018-02-02 10:23 |ֻ��������
��������� 523066680 �� 2018-02-02 12:37 �༭

�ظ� 7# ��ڿ��Ժܼ�

�Ȳ�˵��������аٶ������𣬻��� www.ys168.com Ҳ������
ע��ҳ�� http://www.ys168.com/register.aspx

����
���ⲹ�䣺
��˵����ͼ���ַ�ͼ��������Ⱦͼ��

�ѵ�ѹ��Ϊ�߶���Ⱦ�����ˣ���ͼ��y�������Ǵ��ģ������ӣ�


����һ�£�

��̳����:
30
15-16����CBA����֮��һ
����:2020-10-27 13:24:2315-16����CBA����֮ɽ��
����:2020-10-27 13:24:07
10¥ [����]
������ 2018-02-02 12:38 |ֻ��������
��������� ��ڿ��Ժܼ� �� 2018-02-02 12:41 �༭

�ظ� 8# 523066680

���аٶ����̣��˺�17778056201 �ҵİٶ������ӣ�https://pan.baidu.com/mbox/homepage?userShort=qZNe8XI ��Ч�ڣ�3�졣����Ϳ��Ժ��ҷ��ļ�����Ϣ�ˡ�
�������и����ʣ�
1.��Ⱦͼ�ı�����ʽ�Ǵ���ɫ����ĸ�����ѹ������ɫ�仯��
2.Ŀǰֻ��Ҫ�ַ��ֲ�
3.���1�������ǽ���͸�ֱ���ˣ�����鷳���Ͳ�Ҫ�ˡ�

��ָм�������һ�����·Ӳ���������ӡ���

����Ҫ��¼��ſ��Ի��� ��¼ | ע��

������ֹ��� �����ظ�

  

����ʢ����Ѷ��Ϣ�������޹�˾. ��Ȩ���� ��ICP��16024965��-6 �����й����ֺ����־��������ı�����ţ�11010802020122 [email protected] 17352615567
δ����ٱ�ר��
�й�������Э���Ա  ��ϵ������[email protected]
��л���й��ĺ�֧�ֹ�ChinaUnix�������� ת�ر�վ������ע��ԭ������������

��� Cookies - ChinaUnix - Archiver - WAP - TOP