Implementando o cálculo de Exponencial de X através da Série de Maclaurin:
Function Fatorial([Int32]$num) {
if ($num -eq 0) { return 1 }
return $num * (Fatorial($num-1))
}
Function ExpX([Double]$x, [Int32]$max) {
$eX = 1
For ($n=1;$n -lt $max;$n++) {
$eX = $eX + [math]::Pow($x,$n) / (Fatorial $n)
}
Return $eX
}
Clear-Host
$x = Read-Host "Calcula e^x com serie de Maclaurin. Qual o valor de x? "
$eX = [math]::Round((ExpX $x 40),10)
Write-Host -ForeGroundColor Yellow "e^$x=$eX"
Calcula e^x com serie de Maclaurin. Qual o valor de x? : 7
e^7=1096.6331584285
Nenhum comentário:
Postar um comentário