Entradas con la etiqueta ‘ecuacion’

Ejercicios básicos Maple

Miércoles, 17 de Marzo de 2010

Hola que tal amig@s programadores y matemáticos (si en está ocasión también estan invitados) espeero se la esten pasando de lo más genial ya que nos acercamos a las vacaciones de semana santa lo que significa, dejar de ver a los amigos por dos semanas, descansar un rato de tantas presiones, tomarse tiempo para desvelarse por gusto, y levantarse demasiado tarde o no levantarse jajaja.

Bueno, pero vamos a hablar hoy sobre un nuevo lenguaje (nuevo para mi) el cúal es empleado por matemáticos y programadores y claro alguna otra persona con tiempo libre (mucho tiempo libre), Maple un lenguaje enfocado a la práctica y solución de ejercicios de matemáticas pero programando las funciones o la coherencia resulta un tanto cmplicado al inicio sobre todo si n ose domina ni las matemáticas ni la programación pero por fortuna y cosas del destino pude resolver estos primeros tres ejercicios que nos dejarón hacer para puntos extras… y como la neta necesitare unos 20 puntos extras para pasar me puse a programar un rato aprovechando que se me va el alcohol de mis venas.

Los ejercicios son simples y básicos así que no esperen ver gran cosa pero bueno con algo se inicia (y que bueno que no fue con tipico “Hola mundo”), son tres ejercicios unicamente y espero te sirvan para que te des alguna idea o sirvan para basarse en alguna función o sentencía.

Exercise one.- es calcular las raices de la ecuacion cuadratica, supongo que la general si aquella donde uno tiene “a*x**2+b*x+c” y que se resuelve por formula general, entonces en nuestro programa pediremos los valores de las variables a,b,c, y mostraremos los resultados en las variabls x y x1.

 

raiz := proc ()
local a, b, c, quad1, solution; #declaramos neustras variables
printf(`Programa que calcula las raices de una ecuacion cuadratica`);
printf(`Da el valor de la variable a`);#pedimos valores como en C
a := scanf(%f)[1]; #almacenamos valores casi igual que en C
printf(`Da el valor de la variable b`);
b := scanf(%f)[1];
printf(`Da el valor de la variable c`);
c := scanf(%f)[1];
quad1 := a*x^2+b*x+c = 0; #asignamos la operacion a la variable quad1
solution := solve(quad1, x)#mostramos la solucion con la funcion predeterminada de solve.
end:
raiz();#con esto compilamos nuestro programa

Exercise two.- Calcular la suma de los primeros n números positivos que el usuario indique, por ejemplo la suma de los primeros 5 numeros es: 1+2+3+4+5=15.

 

suma:=proc()
#nuestro metodo se llama suma y es un procedimiento
local n,temp,aux,i;#declaramos variables a emplear
printf(`Este programa calcula la sumatoria de los primernos n numeros\n`);
printf(`¿De cuantos numero quieres calcular la sumatoria?`);
n:=scanf(`%d`)[1];
aux:=0;
for i from 1 to n do #sentencia for en maple
	aux:=aux+i;
od;#fin del for
printf(`La sumatoria de los %d primeros numero es: %d`,n,aux);
end: #fin del metodo
suma();#llamada al metodo

Exercise three.- Un programa que sume los primeros n números impares positivos que el usuario indique, por ejemplo si el usuario introduce 10 el resultado será 1+3+5+7+9+11+13+15+17+19=100.

 

sumaimpar := proc ()
local n, temp, i, aux;
printf(`Este programa calcula la sumatoria de los primero numeros impares\n`);
printf(`De cuantos numero quieres calcular la sumatoria`);
n := scanf(%d)[1];
temp := 0;
aux := 1;
for i to n do #ciclo for
temp := temp+aux; #empezar a sumar numero impares
aux := aux+2; #aumentar numeros impares
od; #cierre del for
printf(`La sumatoria de los  numeros es: %d`, temp)
end:#cierre del metodo

Bueno amigos y amigas que se dedican a la programación y/o las matemáticas espero los ejemplos y ejercicios en maple les hayan ayudado y les sea de gran utilidad para en un futuro, reciban un cordial saludo y espero sus comentarios.

PD: Bachata 4ever!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PD2: maple-22-03-10