请教 如何用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`;