請教 如何用perl 給Gnuplot的函數系數賦值

yccpp

大家好，向大家請教一個問題：我想用perl 調用gnuplot畫一條曲線，假如曲線的方程為f(x)=a*x**2+b*x+c, 方程的系數a、b、c 要從外部讀入，x的范圍也要從外部讀入，請教如何用perl 給這些系數賦值。謝謝。

rubyish

試試:

1. #!/usr/bin/perl
   
2. 
   
3. my @X = ( -5, 5 );
   
4. my ( $A, $B, $C ) = ( 5, 4, 3 );
   
5. my $fx = "$A * x ** 2 + $B * x + $C";
   
6. my $X  = "[ $X[0] : $X[1] ]";
   
7. 
   
8. my $GPL = <<GPL;
   
9. 
   
10. set term pngcairo size 500, 250
    
11. set output 'abc.png'
    
12. set xrange $X
    
13. f(x) = $fx
    
14. plot f(x)
    
15. set output
    
16. 
    
17. GPL
    
18. 
    
19. `echo "$GPL" | gnuplot`;

復制代碼

yccpp

謝謝rubyish，我試試。

w123456_cu

若在windos 用vim , 是不是寫為 `echo "$GPL" | !gnuplot`;