sábado, 2 de dezembro de 2017

Cálculo de Exponencial de X

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