gpt4 book ai didi

equation - 在 Raku 中求解指数方程

转载 作者:行者123 更新时间:2023-12-03 13:32:46 25 4
gpt4 key购买 nike

exponential equation

我正在尝试像这样解决这个指数方程:

my ($l,$r);

for (1 .. 100) -> $x {
$l = $x * e ** $x;
$r = 5 * (e ** $x - 1);
say $x if $l == $r;
}

但它不起作用。如何以简单而全面的方式解决它?

最佳答案

对不起,双重回答。
但这是在 Raku 中解决的一种完全不同的更简单的方法。
(它可能可以制定得更优雅。)

#!/usr/bin/env raku

sub solver ($equ, $acc, $lower0, $upper0) {
my Real $lower = $lower0;
my Real $upper = $upper0;
my Real $middle = ($lower + $upper) / 2;

# zero must be in between
sign($equ($lower)) != sign($equ($upper)) || die 'Bad interval!';

for ^$acc { # accuracy steps
if sign($equ($lower)) != sign($equ($middle))
{ $upper = $middle }
else
{ $lower = $middle }
$middle = ($upper + $lower) / 2;
}
return $middle;
}

my $equ = -> $x { $x * e ** $x - 5 * (e ** $x - 1) }; # left side - right side
my $acc = 64; # 64 bit accuracy
my Real $lower = 1; # start search here
my Real $upper = 100; # end search here

my $solution = solver $equ, $acc, $lower, $upper;

say 'result is ', $solution;
say 'Inserted in equation calculates to ', $equ($solution), ' (hopefully nearly zero)'

关于equation - 在 Raku 中求解指数方程,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61049820/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com