한빛출판네트워크

  perl Makefile.PL

  make

  make install(물론 root로)

  make samples

  apt-get install libgd-perl-graph

  @data = ( 
     ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
     [    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
     [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ]
  );

  @x_label = { "1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"};
  @x_value_1 = { 1, 2, 5, 6, 3, 1.5, 1, 3, 4};
  @x_value_2 = { sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) }
  ...
 
  @data = ( ＼@x_label, ＼@x_value_1, ＼@x_value_2, ... )

  $graph = GD::Graph::chart->new(400, 300);

  $graph->set(
    x_label => "X Label", # X 축의 라벨 이름을 붙인다.
    y_label => "Y label", # Y 축의 라벨 이름을 붙인다.
    title   => "Simple Graph", # 그래프의 타이틀을 지정해준다.
    y_max_value   => 8, # y 축의 최대 값을 지정한다.
    y_tick_number => 8, # y 축의 눈금을 몇개로 나눌 것인가를 지정한다.
    y_label_skip  => 2  # y 축 눈금에 붙이는 값들을 몇개마다 붙일 것인가를
                          지정해준다.
  );

  my $gd = $graph->plot(＼@data); # 데이터 셋 역시 레퍼런스로 넘겨준다.

  open(IMG, ">file.gif") or die $!;
  binmode IMG;
  print IMG $gd->gif;
  close IMG;

  open(IMG, ">file.png") or die $!;
  binmode IMG;
  print IMG $gd->png;
  close IMG;

  open(IMG, ">file.gd2") or die $!;
  binmode IMG;
  print IMG $gd->gd2;

  print IMG $graph->plot(＼@data)->gif;
  print IMG $graph->plot(＼@data)->png;
  print IMG $graph->plot(＼@data)->gd;
  print IMG $graph->plot(＼@data)->gd2;

  use CGI qw(:standard);
  ...
  print header("image/png");
  binmode STDOUT;
  print $graph->plot(＼@data)->png;

---- graph.html ----

  
  
  
  
     
  
   
   
  

  


---- graphh.html ----

  
  
  
  
  

  System Reliability

  수식을 바꿔넣고 실행해보세요 =)

  
    
    
    
  
  
  
  


---- graph.cgi ----

  #!/usr/bin/perl -w

  use CGI; # CGI 모듈 사용
  use GD::Graph::lines; # 문제의 GD::Graph 모듈 사용
                        # lines 부분을 다음과 같은 키워드로 대체하면
                        # lines, bars, points, linespoints, area, mixed, pie
                        # 그 모듈 형식의 그래프를 그릴 수 있음
  $q = new CGI; # CGI 객체를 생성

  $first = $q->param("first"); # 첫번째 신뢰도 확률식을 저장
  $second = $q->param("second"); # 두번째 신뢰도 확률식을 저장

  @x_label = (); # x 축의 라벨값들을 저장하는 리스트
  @f_value = (); # 첫번째 신뢰도 확률식에 확률을 대입한 신뢰도 값들을
                 # 저장 할 변수를 초기화
  @s_value = (); # 두번째 신뢰도 확률식에 확률을 대입한 신뢰도 값들을
                 # 저장 할 변수를 초기화

  $first =~ s/＼^/**/g;  # 확률식에서 누승 연산자인 ^ 를 펄이 인식할 수 있는
  $second =~ s/＼^/**/g; # ** 연산자로 바꿔준다

  # 아래는 0 부터 1 까지 0.1 씩 증가하는 확률 값들을 확률식에 대입하여
  # 신뢰도를 계산 한 후 그 식을 직접 eval 함수로 계산한 후에
  # 각각의 신뢰도 배열에 저장한다
  for ($i = 0; $i <= 1; $i += 0.1)
  {
    push(@x_label, $i);

    $temp = $first;
    $temp =~ s/p/$i/g; # p 라고 되어 있는 부분을 확률값으로 치환
    $fv = eval($temp); # eval 함수를 이용하여 확률식을 직접 계산
    push(@f_value, $fv);

    $temp = $second;
    $temp =~ s/p/$i/g;
    $sv = eval($temp);
    push(@s_value, $sv);

    push(@fs_value, $fv - $sv); # 세번째 그래프로 첫번째 확률식의 신뢰도와
                                # 두번째 시스템 확률식의 신뢰도의 차이를
                                # 다른 그래프 하나도 표시하기 위함
  }

  # 그래프를 그리기 위한 데이터 리스트
  # 이 리스트에는 x 축의 라벨 값들과
  # 그 다음 그리고자 하는 그래프 값들을 가진 배열를의 레퍼런스들의
  # 리스트를 가진다. 즉 그래프의 갯수는 넘겨주는 인수의 갯수 -1
  @data = (＼@x_label, ＼@f_value, ＼@s_value, ＼@fs_value);

  # 그래프를 그릴 영역을 400x300 으로 만든다
  $graph = GD::Graph::lines->new(400, 300);

  $graph->set(
    y_label       => "Reliability", # y 축의 이름
    x_label       => "Probability", # x 축의 이름
    title         => "System Reliability", # 그래프의 제목
    y_min_value   => 0,  # y 축의 시작 값
    y_max_value   => 1,  # y 축의 최대값
    y_tick_number => 10, # y 축의 눈금을 몇개로 나눌 것인가
    y_label_skip  => 1,  # y 축에 붙이는 라벨을 눈금 몇개마다 하나씩 붙일 것인가
  );

  my $gd = $graph->plot(＼@data); # 그래프를 생성해서 gd 에 저장

  print $q->header("image/gif"); # gif 파일을 전송한다고 알려줌

  binmode STDOUT;        # 출력 모드를 바이너리로 바꾸고
  print STDOUT $gd->png; # gd 에 저장되어 있는 그림 파일을 표준출력으로 출력
  close STDOUT;