Jump to content
luchhozito

formula resolvente

Recommended Posts

luchhozito

boas pessoal eu tenho uma funcão que tava a fazer e era dado 3 numeros axar as suas raízes (reais)

entao declarei assim grau2 :: Float -> Float -> Float -> (Float,Float)

Queria que o resultado me desse numa tupla (par de floats)

Share this post


Link to post
Share on other sites
luchhozito

tipo se fosse pa dar um inteiro sabia . era so fazer o calculo da formula.

mas por exemplo ha sempre duas raízes. Queria por uma (raiz1,raiz2)

Share this post


Link to post
Share on other sites
luchhozito

tenho esta funcao: calcula os zeros (raízes)

praiz :: Float -> Float -> Float-> (Float,Float)

praiz a b c = (((-b - sqrt(b^2 - 4 * a * c))/2*a),((-b + sqrt(b^2 - 4 * a * c))/2*a))

Quando complilo não dá erros mas por exemplo , executo:

praiz 2 3 4

e resultado do ghc dá-me:

(NaN,NaN)

n percebo lol

Share this post


Link to post
Share on other sites
pmg

a b c = 2 3 4

b^2 - 4 * a *c = 3^2 - 4 * 2 * 4 = 9 - 32 = -23

O Haskell trabalha com números complexos?

A raiz quadrada de -23 é um número complexo: ~4.796i


What have you tried?

Não respondo a dúvidas por PM

A minha bola de cristal está para compor; deve ficar pronta para a semana.

Torna os teus tópicos mais atractivos e legíveis usando a tag CODE para colorir o código!

Share this post


Link to post
Share on other sites
mystics

Não percebi muito bem, mas acho que era isto que querias

--Calcula o numero de raízes da função
nRaizes :: Float -> Float -> Float -> Float
nRaizes a b c =	let delta = (b^2-(4*a*c))
			in	if delta > 0
				then 2
				else	if delta == 0
						then 1
						else 0
--Calcula-te os zeros da função.
fResolvente :: Float -> Float -> Float -> [Float]
fResolvente a b c	| nRaizes a b c == 1 = [-b/(2*a)]
				| nRaizes a b c == 2 = [((-b-rd)/(2*a)),((-b+rd)/(2*a))]
				| nRaizes a b c == 0 = []
					where rd = (sqrt(b^2-(4*a*c)))

Share this post


Link to post
Share on other sites
aalex

--Calcula o numero de raízes da função
poli :: Float->Float->Float->Int
poli a b c = if (((b^2)-4*a*c) < 0) then 0
             else if (((b^2)-4*a*c) == 0) then 1
             else 2

--Calcula os zeros da função.
poli2 :: Float -> Float -> Float -> [Float]
poli2 a b c = if poli a b c == 0 then []
              else if poli a b c == 1 then [-b/(2*a)]
              else if poli a b c == 2 then [(-b-(sqrt(b^2-(4*a*c)))),(-b-(sqrt(b^2-(4*a*c))))]
              else []

eu fiz dessa forma alguem me confirma se isso esta bem?

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.