03.01.2014, 20:55 | #1 (permalink) |
Новичок
Регистрация: 03.01.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с программой на Perl
|
03.01.2014, 20:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посты которые имеют сходства с вашей темой Помогите с программой Помогите с программой Помогите с программой Помогите с программой |
04.01.2014, 18:12 | #2 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Вычисление частной производной в точке
Код:
#!/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); |
05.01.2014, 11:26 | #5 (permalink) |
Новичок
Регистрация: 03.01.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
нужна производная любой введенной функции(((
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
05.01.2014, 12:38 | #6 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Так и напишите задание полностью! Почему я должен догадываться? Куда вводится функция? Это веб или консольная программа? и т.д. Сейчас функция вводится непосредственно в программу. Собственно она там и написана в комментарии
return $x*$x; # функцияСейас это x^2 вместо нее вводится любая нужная функция. |
05.01.2014, 16:14 | #8 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Код:
#!/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); |
06.01.2014, 14:47 | #9 (permalink) |
Новичок
Регистрация: 03.01.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ага, спасибо, огромное))) то что нужно)))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|