| |
|
|
| | Очень к спеху нужна ваша помощь:
Высчитать сумму с заданной погрешностью епсилон
e= 10^-3
0.2<=x<=2
S=x^3/3 - x^5/15 +...+(-1)^n+1 * (x^2n+1)/4n^2-1
функция Y= (1+x^2)/2 * tgx - x/2
|
Все никак не получается алгоритм упростить! Спасибо | |
| |
|
|
| |
|
|
| |
для: OLi
(09.12.2009 в 21:54)
| | | кагбе скобки и знаки операций в выражении могли бы и расставить?
:-\ | |
| |
|
|
| |
 230.6 Кб |
|
| |
для: Trianon
(09.12.2009 в 22:30)
| | | Приложу фото | |
| |
|
|
| |
|
|
| |
для: OLi
(09.12.2009 в 23:07)
| | | Если эта штука и сходится, то всяко не к заявленной величине.
<?php
$x = 0.3;
$a = $x;
$b = $x * $x;
$nn = 0.0;
$g = -1;
$eps = 1e-5;
for($s = 0;
$g = -$g, $a *= $b, $nn+=2.0, $s0 = $g*$a/($nn*$nn-1),
abs($s0) >= $eps;
$s += $s0)
echo"<br> $s $s0";
echo "<br>" . -((1+$x*$x)*tan($x)-$x)/2;
?>
|
| |
| |
|
|
| |
|
|
| |
для: OLi
(09.12.2009 в 21:54)
| | | По-моему, задание некорректно.
Судя по тому, что в начале ряда константы нет — это ряд Маклорена, а он другой: http://www.wolframalpha.com/input/?i=((1+%2B+x*x)+*+tan(x)+%2F+2)+-+x%2F2
Приведи свой алгоритм, который не получается "упростить". Я тоже попытался:
var
n : integer;
e, S, Sr, x, a : real;
function y ( x : real ) : real;
begin
y := (x * x + 1) * sin(x) / (2*cos(x)) - x / 2;
end;
begin
readln(x);
e := 0.001;
S := 0;
a := x;
n := 1;
Sr := y(x);
repeat
begin
a := a * x * x;
S := S + a/(4 * n * n - 1);
a := a * -1;
inc(n);
writeln(S : 4 : 6);
readln;
end;
until abs(S - Sr) < e;
writeln(S : 4 : 6);
readln;
end.
|
Сходится к другому числу. Хотя, быть может, я ошибся. | |
| |
|
|
| |
|
|
| |
для: Fractured#
(09.12.2009 в 23:49)
| | | Может на паскале попробовать | |
| |
|
|
