miércoles, 21 de mayo de 2008

Código en Matlab de un cubo con coordenadas xyz

n=6; %cantidad de puntos

cant_data=3*n; %cantidad de componentes las articulaciones y puntos

l1=3; %longitud del primer brazo

fid=fopen('memoria.m','r'); %comando que abre el archivo para lectura

status=fseek(fid,15,-1); %comando que se saltea los primeros
%digitos del archivo que son datos
%irrelevantes en este caso
[A, count]=fscanf(fid,'%d'); %comando que levanta los valores de
%interés y los carga en una matriz (A)

art21=A(1:cant_data)/100000 %se acomodan los datos
art22=A(cant_data+1:(2*cant_data))/100000 %que antes(dsp) se habían
punto=A(2*cant_data+1:(3*cant_data))/100000 %multiplicado por 100000 se
%ordenan segun correspondan
%a articulaciones o extremo

%Graficas

figure
plot3([0 0],[0 0],[0 l1]);
title('Gráfica de las trayectorias calculadas por el Dsp')
%DSP es un microprocesador controlado
hold on

%Ploteo de la primer trayectoria

for i=1:n
plot3([0 art21(3*i-2)],[0 art21(3*i-1)],[l1 art21(3*i)]);
plot3([art21(3*i-2) punto(3*i-2)],[art21(3*i-1) punto(3*i-1)],[art21(3*i) punto(3*i)]);
plot3(punto(3*i-2), punto(3*i-1),punto(3*i),'*');
grid on
hold on
axis ([-3 3 -3 3 -3 3])
pause
end

%Ploteo de la segunda trayectoria

for i=1:n
plot3([0 art22(3*i-2)],[0 art22(3*i-1)],[l1 art22(3*i)],'g');
plot3([art22(3*i-2) punto(3*i-2)],[art22(3*i-1) punto(3*i-1)],[art22(3*i) punto(3*i)],'g');
grid on
hold on
axis ([-3 3 -3 3 -3 3])
pause
end

lunes, 12 de mayo de 2008

El deporte y tu calidad de vida

Como bien he dado a conocer, este blog es de informacion, tecnologias y programacion, probablemente algunos visitantes ya han visto codigos, textos sobre directorio activo y java, pero ahora abro este espacio para hablar sobre el deporte que tambien es informacion para ti.



La vida a cambiado mucho en nuestros dias, hay demasiado comfort, y el claro ejemplo esta en que si queremos ir a comprar a la tienda que esta a dos cuadras o a la vuelta de la casa, queremos ir en carro y con clima.

Que si me da flojera ir a caminar por pena a que otros te vean, compro mi caminadora electrica, y como somos millonetas no nos importa pagar por mas energia consumida.

Que la casa esta sucia, prefiero pagarle a alguien porque lo haga.

Estamos hablando con estos 3 pequeños ejemplos que el comfort nos esta haciendo ser mas sedentarios, mas flojos, reduciendo la energia que tenemos en el cuerpo.

Y cuales son las consecuencias de ser sedentarios, problemas graves de obesidad, hipertension, propensos a paros cardiacos, peor aun si consumimos alimentos chatarra y como resultado un alto grado de trigliceridos y aunado a eso si consumes drogas como el tabaco y el alcohol, fatal para ti.

Que cosas tan hermosas nos esta dejando el comfort verdad, si te lo digo a ti, que estas acostumbrado a manejar todo como si tu vieras un control remoto que lo hace todo sin que tu te muevas de tu lugar.

Grave ERROR, necesitamos dinamismo, movernos, levantarnos, caminar, estirarnos, ir a correr, hacer ejercicio al aire libre, porque te digo esto, porque dependiendo de tu salud fisica dependen muchas cosas, como tu estado de animo que es el que lo da todo para realizar todas esas cosas que deseas.

No dejes que el comfort te haga ser un vegetal, no te quejes porque subiste de peso despues, o que estes en un hospital, cuida tu salud, oh gran hombre del siglo XXI, se supone que somos la raza mas sobresaliente del reyno animal y de la tierra, se supone que somos la nueva generacion,y la salud fisica cuenta mucho en ello, no te sientas mal si estas gordito(a), ANIMO!!!, todo tiene solucion sin necesidad de tomar medicamentos para adelgazar, engraparte el estomago o hacerte la liposuccion, porque bien sabes que las consecuencias siempre son peores.

Lo importante de hacer deporte es para tu bien, para que te conserves jovial, vital, sonrriente, para que vivas mas años, para que desde joven, crezcas con esa mentalidad y no te lamentes con los años. Tambien es necesario que cuides tu alimentacion porque la comida chatarra es a lo que mas recurres cuando no te da tiempo de ir a tu casa para alimentarte bien, prefieres los hot dogs, hamburguesas, quesadillas, tacos, tortas,galletitas, sabritas, refrescos, etc. Es importante que el cuerpo tenga grasas, pero todo en exceso es malo, cambia todo eso por comer verduras, como zanahoria,betabel, berros, coliflor, broccoli, tomate,pepino, lechuga, o tmabien frutas como peras, manzanas, uvas, mandarinas, naranjas, toronjas, kiwi y tambien carnes del reyno animal( de preferencias aves y de res) no las preprocesadas que no te nutren como debe de ser.

Si te dieras cuenta el cambio de comer frutas y verduras a comer comidas chatarras, ahora combina la buena alimentacion con el deporte, sal a jugar basket ball pero no en el play station, si no reune un grupo de amigos o compañeros de clase o de trabajo y practicalo, o juega foot ball, practica natacion, ciclismo o con que camines media hora es mas que suficiente, veras que te sentiras mejor.

Cuida tu salud y obten una mejor calidad de vida, recuerda que eres la nueva generacion, el hombre moderno, el activo, el fuerte, el guerrero, el homo sapiens-sapiens, y este hombre moderno tiene un problema por no cuidar su salud, se esta muriendo a los 40 años, cambia eso, puedes vivir otros 30 mas y muy feliz.

Te lo dejo a tu reflexion y si piensas hacer algo por tu salud, nada mejor que el deporte, y ya sabes poco a poco, tampoco te aceleres porque tambien tiene severas consecuencias, todo sea por una calidad de vida mas sana y saludable.


Atte: James Rechy

domingo, 11 de mayo de 2008

Gráfica de promedios en MatLab

%calcula el promedio de los elementos de un vector y dibuja dicho vector
%Sintaxis: promedio(x) donde x es el vector a promediar
function p=promedio(x)
x=[1 2 4 3 7 5 6 1 2 0 8 5];
n=length(x);
p=0;
for i=1:n
p=p+x(i);
end
p=p/n;
plot(x);

Gráficando un Círculo en MatLab

%Grafica de un circulo
function circle()
t=linspace(0,2*pi,300);
x=cos(t);
y=sin(t);

plot(x,y),axis('equal'),title('Grafica de un circulo')

grid
zoom off

jueves, 8 de mayo de 2008

CODIGO EN MATLAB QUE GRAFICA UNA ONDA SINUSOIDAL

%Grafica de onda sinusoidal
x=linspace(0,2*pi,100);

y=sin(x);
plot(x,y);
axis([0 6.3 -1.2 1.2]);
grid
title('Grafica del seno');
xlabel('Etiqueta eje x')
ylabel('Etiqueta eje y')
zoom off

domingo, 4 de mayo de 2008

Transacciones bancarias en Visual basic 6.0

' primero crear un formulario en visual basic 6.0, despues crear 7 etiquetas o labels para agregar el nombre del campo, seguidamente agregar 7 textbox, y 5 command buttons, posteriormente el nombre de las variables de los labels, commands y textbox, cambiarlos en la paleta de propiedades donde dice Nombre o Name, el nombre de los campos que verá el usuario en la interfaz, se cambian en la propiedad Caption, puedes dejar tu comentario si no entiendes como hacerlo, buena suerte.




Private Sub Command1_Click()
Form1.Show



End Sub

Private Sub cmdaceptar_Click()
Dim C As Integer, b200 As Integer, b100 As Integer
Dim cant, saldo As Integer
cant = 8000


Dim b50 As Integer, b20 As Integer, b10 As Integer
C = Val(txtcantidad)


If C Mod 10 = 0 Then

b200 = C \ 200: C = C Mod 200
b100 = C \ 100: C = C Mod 100
b50 = C \ 50: C = C Mod 50
b20 = C \ 20: C = C Mod 20
b10 = C \ 10: C = C Mod 10
txtb200 = Str(b200)
txtb100 = Str(b100)
txtb50 = Str(b50)
txtb20 = Str(b20)
txtb10 = Str(b10)
saldo = cant - Val(txtcantidad)

txtsaldo = saldo




Else
MsgBox "cantidad a retirar debe ser multiplo de 10"
txtcantidad = ""
txtcantidad.SetFocus
End If
End Sub

Private Sub cmdlimpiar_Click()
txtcantidad = ""
txtb200 = ""
txtb100 = ""
txtb50 = ""
txtb20 = ""
txtb10 = ""
txtcantidad.SetFocus
End Sub

Private Sub cmdsalir_Click()
End
End Sub

Private Sub Command2_Click()
Printer.Orientation = 1

Printer.FontSize = 12


Printer.Print
Printer.Print Tab(15); lblcantidad.Caption; Tab(30); txtcantidad.Text

Printer.EndDoc
Printer.Print


End Sub

Private Sub txtcantidad_Change()

End Sub

viernes, 2 de mayo de 2008

lectura de cadenas en visual basic 6.0

'para poder usar este código, hay que agregar dos etiquetas label, 2 textbox y un commandbutton, el codigo se programa en el commandbutton dentro de un formulario

Private Sub Command1_Click()
If (Text1.Text = "leonor" And Text2.Text = "*****" Or Text1.Text = "keyla" And Text2.Text = "*******") Then

Form2.Show
Else
MsgBox "Error de contraseña", vbCritical
End If
End Sub

jueves, 1 de mayo de 2008

Codigo JAVASCRIPT + HTML

Ejemplo: Este ejemplo lo puedes copiar en un blog de notas y guardarlo con
extension html y veras la funcion de java script

< html >< head >
< script languaje="Javascript" > function calcula(form) {
if (confirm("¿Está seguro?"))
form.resultado.value = eval(form.expr.value)
else alert("Vuelva a intentarlo...") }

< body bg style="color:#99CC99;" >< form >< span style="Tahoma" > Introduzca una expresión:
< input type="text" name="expr" size="15" >
< input type="button" name="Boton" value="Calcular" onclick="calcula(this.form)" > < br /> Resultado:< /b > < input type="text" name="resultado" size="15" >
< br />< /form >
< script language="JavaScript" >
function mueveReloj(){ momentoActual = new Date() hora = momentoActual.getHours() minuto = momentoActual.getMinutes() segundo = momentoActual.getSeconds()
str_segundo = new String (segundo) if (str_segundo.length == 1) segundo = "0" + segundo
str_minuto = new String (minuto) if (str_minuto.length == 1) minuto = "0" + minuto
str_hora = new String (hora) if (str_hora.length == 1) hora = "0" + hora
horaImprimible = hora + " : " + minuto + " : " + segundo
document.form_reloj.reloj.value = horaImprimible
setTimeout("mueveReloj()",1000) } < /script > < /head >
< body onload="mueveReloj()" >

< form name="form_reloj" > < input type="text" name="reloj" size="10" style="background-color : #33CCFF; color : black; font-family : Verdana, Arial, Helvetica; font-size : 8pt; text-align : center;" onfocus="window.document.form_reloj.reloj.blur()" > < /form >
< /body >< /html >