Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Equação do terceiro grau. Encontre agências semelhantes


mashinist   (2001-12-16 23:16) [0]

Eu estou aqui, parece que todo mundo já está cansado disso com minha matemática, mas ainda assim. Alguém tem um pedaço de código para resolver uma equação de terceiro grau da forma ax ^ 3 + bx ^ 2 + cx + d = 0, com a, b, c, d: estendido;

Ajuda



Builder   (2001-12-17 02:35) [1]

Mas não é mais fácil do que foder, sentar e escrever a si mesmo?

Pegue qualquer livro sobre métodos numéricos - isso é na primeira seção.



mashinist   (2001-12-17 11:58) [2]

Não dá certo.
Já tentei.



Romkin   (2001-12-17 12:19) [3]

http://alglib.chat.ru/equat/index.html#cube
Na minha opinião, exaustivamente
Mas, em geral, as equações acima do segundo grau geralmente são resolvidas não por fórmulas exatas, mas por algoritmos para encontrar as raízes de polinômios do enésimo grau.



savva   (2001-12-17 12:31) [4]

isto é o que o editor de diagrama de blocos sugeriu
Procedimento CubeEquation (a, b, c: real; var nr: byte; x: array [1..3] de real); // por algum motivo, os parâmetros 8 não são descritos por algum motivo)) você mesmo descreverá começar p: = - a * a / 3 + b; q: = 2 * a / 3 * a / 3 * a / 3-a * b / 3 + c; QH: = (p / 3) * (p / 3) * (p / 3) + (q / 2) * (q / 2); se QH = 0 então começar nr: = 3; AH: = abs (q / 2); se AH <> 0 então começar AH: = sinal (q) * exp (ln (AH) / 3) fim; x [1]: = 2 * AH-a / 3; x [2]: = - AH-a / 3; x [3]: = - AH-a / 3 final mais começar se QH> 0 então começar AH: = - q / 2 + sqrt (QH); AH: = sinal (AH) * exp (ln (abs (AH)) / 3); BH: = - q / 2-sqrt (QH); BH: = sinal (BH) * exp (ln (abs (BH)) / 3); x [1]: = AH + BH-a / 3; se AH = BH então começar nr: = 3; x [2]: = - (AH + BH) / 2-a / 3; x [3]: = - (AH + BH) / 2-a / 3 final mais começar nr: = 1; x [2]: = - (AH + BH) / 2-a / 3; x [3]: = (AH-BH) / 2 * sqrt (3) fim; final mais começar nr: = 3; u: = - q / 2 / sqrt (-p * p * p / 27); u: = arccos (u); x [1]: = 2 * sqrt (abs (p / 3)) * cos (u / 3) -a / 3; x [2]: = - 2 * sqrt (abs (p / 3)) * cos (u / 3 + Pi / 3) -a / 3; x [3]: = - 2 * sqrt (abs (p / 3)) * cos (u / 3-Pi / 3) -a / 3 fim; fim; fim;

Eu não sei se devo confiar ...



SergVlad   (2001-12-17 13:58) [5]

Para mashinist
Ainda lutando com seus reguladores?



Юрий Зотов   (2001-12-17 14:59) [6]

> Romkin © (17.12.01 12: 19)

Vou me permitir uma emenda - acima do terceiro, e não o segundo. Para equações cúbicas, no entanto, existem fórmulas exatas - por exemplo, a fórmula de Cardano. É muito mais simples, rápido e preciso.



mashinist   (2001-12-17 15:40) [7]

Obrigado !!!




Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.57 MB
Hora: 0.027 c
14-22391
Serg5
2001-11-10 10:29
2002.01.08
Quem não é preguiçoso, vá para http://forum.ru-board.com/, ele realmente trava, ou filtragem de IP, eles não me deixam.


6-22275
Moscower
2001-10-08 12:43
2002.01.08
Como posso enviar um comando chmod para um servidor Linux via TNMFTP?


1-22015
caçador
2001-12-17 13:17
2002.01.08
Imagem para impressora


14-22402
Mais escura
2001-11-08 12:26
2002.01.08
Procurando por um homem com um apelido


4-22456
Redmax
2001-11-01 11:10
2002.01.08
Objetos COM NetMeeting





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol