Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Ecuación del tercer grado. Encontrar ramas similares


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

Estoy aquí, parece que todos ya están hartos de mis matemáticas, pero aún así. ¿Alguien tiene un código para resolver una ecuación de tercer grado de la forma ax ^ 3 + bx ^ 2 + cx + d = 0, con a, b, c, d: extendido;

Ayuda



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

¿Pero no es más fácil que follar, sentarse y escribir usted mismo?

Tome cualquier libro sobre métodos numéricos; esto se encuentra en la primera sección.



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

Falla
Ya lo intenté.



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

http://alglib.chat.ru/equat/index.html#cube
En mi opinión, exhaustivamente
Pero, en general, las ecuaciones por encima del segundo grado generalmente se resuelven no mediante fórmulas exactas, sino mediante algoritmos para encontrar las raíces de polinomios del enésimo grado



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

esto es lo que sugirió el editor de diagrama de bloques
Procedimiento CubeEquation (a, b, c: real; var nr: byte; x: array [1..3] de real); // por alguna razón, los parámetros 8 no se describen por alguna razón)) usted mismo describirá comenzar 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); si QH = 0 entonces comenzar nr: = 3; AH: = abs (q / 2); si AH <> 0 entonces comenzar AH: = signo (q) * exp (ln (AH) / 3) fin x [1]: = 2 * AH-a / 3; x [2]: = - AH-a / 3; x [3]: = - AH-a / 3 fin otra cosa comenzar si QH> 0 entonces comenzar AH: = - q / 2 + sqrt (QH); AH: = signo (AH) * exp (ln (abs (AH)) / 3); BH: = - q / 2-sqrt (QH); BH: = signo (BH) * exp (ln (abs (BH)) / 3); x [1]: = AH + BH-a / 3; si AH = BH entonces comenzar nr: = 3; x [2]: = - (AH + BH) / 2-a / 3; x [3]: = - (AH + BH) / 2-a / 3 fin otra cosa comenzar nr: = 1; x [2]: = - (AH + BH) / 2-a / 3; x [3]: = (AH-BH) / 2 * sqrt (3) fin fin otra cosa comenzar nr: = 3; u: = - q / 2 / sqrt (-p * p * p / 27); u: = arcos (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 fin fin fin

No sé si confiar ...



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

A mashinist
¿Sigue luchando con sus reguladores?



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

> Romkin © (17.12.01 12: 19)

Me permitiré una enmienda, por encima de la tercera, y no de la segunda. Para las ecuaciones cúbicas, sin embargo, existen fórmulas exactas, por ejemplo, la fórmula de Cardano. Es mucho más simple, más rápido y más preciso.



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

¡Gracias!




Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.56 MB
Tiempo: 0.04 c
1-22265
Ser_Kham1
2001-12-17 16:10
2002.01.08
Cuadro de lista


14-22415
Wetnose
2001-11-12 06:42
2002.01.08
Temas para WinXP


1-22044
Eduard
2001-12-10 10:09
2002.01.08
Frame


7-22444
VS
2001-09-27 07:14
2002.01.08
Cómo copiarse si el programa se está ejecutando.


1-22129
Aleksandr
2001-12-19 16:04
2002.01.08
¿Cómo eliminar el parpadeo de tu barra de desplazamiento?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español