Помогите с программой на Perl

[Djyga]

Помогите с программой на Perl

Задали написать программу на языке программирования PERL. если честно, я вообще не могу разобраться в нем... tehno015 так что прошу у вас помощи! помогите пожалуйста! :tehnari_ru_837: нужна программа, вычисляющая производные... я уже перелазил кучу сайтов, с тематикой "perl для чайников", но все равно не могу написать эту программу, пожалуйста, помогите, кто чем может!!! заранее спасибо!

 

[kreol]

Вычисление частной производной в точке

#!/usr/bin/perl

sub f_x{
  my $x = $_[0];
  
  return $x*$x; # функция
}

sub d_f_x{
  my $x = $_[0]; #Первый аргумент - точка в которой считается производная
  my $dx = $_[1]; #Второй аргумент - шаг 

  return (f_x($x+$dx)-f_x($x-$dx))/(2*$dx);
}


print d_f_x(1, 0.01);

 

[Djyga]

ну это не совсем то, что нужно, но все равно спасибо)) дальше может сам додумаю)

 

[kreol]

а что нужно? символьная математика? так там работы много...

 

[Djyga]

нужна производная любой введенной функции(((

 

[kreol]

Так и напишите задание полностью! Почему я должен догадываться? Куда вводится функция? Это веб или консольная программа? и т.д. Сейчас функция вводится непосредственно в программу. Собственно она там и написана в комментарии

return $x*$x; # функцияСейас это x^2 вместо нее вводится любая нужная функция.

 

[Djyga]

это консольная программа, пользователь вводит функцию через <STDIN>.

 

[kreol]

#!/usr/bin/perl

sub f_x{
  my $x = $_[0];
  return eval($f);
}

sub d_f_x{
  my $x = $_[0]; #Первый аргумент - точка в которой считается производная
  my $dx = $_[1]; #Второй аргумент - шаг 
  return (f_x($x+$dx)-f_x($x-$dx))/(2*$dx);
}

$f = <STDIN>; # функция, аргумент должин быть в виде - $x. Например, cos($x)

print d_f_x(1, 0.01);

 

[Djyga]

ага, спасибо, огромное))) то что нужно)))