miércoles, 6 de junio de 2012

Se trata de una impresora 3D gratuita para el escritorio que es capaz de imprimir objetos plásticos. Es capaz de llevar un diseño virtual a la realidad imprimiendo un molde o el objeto en sí. En la industria existen actualmente las impresoras 3D, solo que son gigantes en tamaño y costo. Pero la RepRap tiene un tamaño parecido al de las primeras impresoras láser de los años 90, solo que en vez de ser una caja de plástico parece más como una grúa de cuatro patas.

Hace parte del proyecto de código libre RepRap.org, cuya intención es crear maquinas que se pueden replicar a si mismas. Por ejemplo, en el caso de la impresora 3D, los diseños de todas las piezas que la conforman están disponibles en la página del proyecto, entonces un usuario que ya la tiene puede imprimir una para un amigo o familiar.

Imaginen poder imprimir muchos de los objetos para el hogar que debemos comprar en tiendas. Puede que aún no tenga la capacidad de imprimir una nevera, un carro o un televisor, pero por ahora puede encargarse de muchos objetos misceláneos como ganchos de ropa o útiles de cocina y limpieza.

Artículos como esos no son costosos, pero si se tiene en cuenta que la mayoría es fabricada en lugares lejanos como China, y requieren infraestructuras y altos costos de transporte para llegar a todos los rincones del mundo, su costo ambiental es bastante alto. Además, la materia prima (plástico prefabricado o reciclado) tiene que llegar hasta la fábrica.

En el caso de la impresora RepRap, teóricamente esta podría usar los materiales en desuso, desechables y reciclables, haciendo un estilo de cortocircuito en una infraestructura de transporte y distribución que es muy ineficiente.

Pero el impacto que esta podría tener, en especial sobre el ámbito de propiedad intelectual, podría ser muy grande. La impresora en sí tiene un costo de alrededor de 500 euros (unos 1'250.000 pesos), pero de ahí en adelante uno podría imprimir otra RepRap y regalarla.Un esquema sustancialmente diferente al modelo tradicional de distribución de un producto.

BMW y Audi trabajan en sistemas que permitan controlar gran parte de las funciones del vehículo por medio de comandos de voz, lo que sería un gran avance que se haría realidad antes de una década.

Representantes de las dos fábricas alemanas coincidieron en afirmar que la evolución de la industria automotriz para los próximos años estará marcada por la conectividad y la tecnología, donde el usuario podrá incluso controlar parte o todas las funciones vitales de un vehículo con su propia voz.

Según Adrian Van Hooydonk, jefe de diseño de BMW, en los últimos meses se está viendo como cada vez gana más importancia el equipamiento tecnológico de unos carros que como mucho disponían de un GPS y una entrada de audio para mp3. Pero ahora, los prototipos ya disponen de conexión a la red, wifi, sistemas que detectan obstáculos, soluciones a los problemas de movilidad e, incluso, algunos que proponen un piloto automático para ciertos momentos.

Además, estos dispositivos dejarán de estar exclusivamente en los modelos más costosos, y pasarán a formar parte del equipamiento de los utilitarios, unos accesorios que según Van Hooydonk, tendrán tanta importancia como el propio diseño a la hora de decidir la compra de cualquier vehículo.

Por su parte, Rupert Stadler, presidente de Audi, afirmó que se han implementando varios asistentes de manejo que le permiten al conductor llegar a su destino con mayor seguridad y menor estrés.
Actualmente, Audi ofrece en mercados europeos y norteamericanos algunos de estos avances tecnológicos: comenzando con la navegación con mapas de Google Earth y la característica Google Street View, así como la información en tiempo real del tráfico en las calles y la búsqueda de puntos de interés mediante control de voz.

También, tienen el sistema que permite al auto mantener su distancia del vehículo que se encuentra adelante en trancones o situaciones de tráfico en las que hay que frenar y acelerar constantemente, y el asistente que le avisa al piloto cuando se sale de su carril por algún tipo de distracción.

Analizando el principal objetivo que plantean ambos representantes, todo indica que dentro de pocos años tendremos vehículos conducidos por medio de comandos de voz, que evitarán congestiones de tráfico y mejorarán la calidad de vida de sus conductores.

Apple lanzará iPad 4G en marzo

Verizon Communications y AT&T venderán la nueva versión del iPad.

Apple anunciará una versión de su iPad de tercera generación con tecnología 4G durante la primera semana de marzo, informó un reporte del Wall Street Journal, citando a una persona con conocimiento del asunto.

Verizon Communications y AT&T venderán la nueva versión del iPad que usará la red 4G de las compañías, reportó el diario, que citó a fuentes familiarizadas con el asunto.

AT&T y Verizon Wireless son los únicos dos operadores estadounidenses que actualmente venden el iPad. También son las únicas dos empresas que ofrecen la tecnología inalámbrica veloz de próxima generación, conocida como LTE, dijo el diario. Apple no estuvo disponible para comentar la publicación, fuera de las horas regulares de trabajo.

miércoles, 21 de marzo de 2012

ciclo while

como hacer una secuencia con el ciclo while
primero agregamos un botón y le damos doble clic y escribimos la siguiente formula:

fila=1
while(fila<=10)
cells(fila,3)=fila
fila=fila + 1
wend.

cerramos y quitamos el modo de diseño y presionamos el botón creado y automáticamente aparecerá una secuencia

métodos para borrar lo elaborado con el ciclo while.
por ejemplo yo quiero borrar la secuencia de números que hice en el ejemplo anterior.

primer método de borrado
fila= 1
while(fila<=10)
cells(i,3)= " "
fila=fila + 1
wend.

segundo método de borrado

fila= 1
while(fila<=10)
cells(i,3)= clear
fila=fila + 1
wend.

tercer método de borrado

fila= 1
while(fila<=10)
cells(i,3)= 0
fila=fila + 1
wend.

--------------------------------------------------------------

suma de columnas por medio del ciclo while

i=1
while(i<=4)
cells(i,3)=cells (i,1) + cells(i,2)
fila=fila + 1
wend

resta de columnas por medio del ciclo while

j=1
while(j<=4)
cells(j,4)=cells (j,1) - cells(j,2)
j= + 1
wend

multiplicación de columnas por medio del ciclo while

i=1
while(i<=4)
cells(i,5)=cells (i,1) * cells(i,2)
i=i + 1
wend

divicion de columnas por medio del ciclo while

a=1
while(a<=4)
cells(i,6)=cells (a,1) / cells(a,2)
a=a + 1
wend

--------------------------------------------------------------------------------------------------------------------------------

formula para calcular la definitiva en porcentajes diferente y saber el estado y el nivel de varios estudiantes

formula para la definitiva

Private Sub CommandButton1_Click()
i = 2
While (i <= 4)
Cells(i, 5) = Cells(i, 2) * 0.3 + Cells(i, 3) * 0.3 + Cells(i, 4) * 0.4
i = i + 1
Wend
End Sub

formula para el estado

Private Sub CommandButton2_Click()
i = 2
While (i <= 4)
If Cells(i, 5) < 60 Then
Cells(i, 7) = "perdio"
i = i + 1
Else
If Cells(i, 5) > 60 Then
Cells(i, 7) = "gano"
i = i + 1
End If
End If
Wend
End Sub

formula para calcular el nivel

Private Sub CommandButton3_Click()

i = 2
While (i <= 4)
If Cells(i, 5) < 60 Then
Cells(i, 6) = "bajo "
i = i + 1
Else
If Cells(i, 5) < 80 Then
Cells(i, 6) = "basico"
i = i + 1
Else
If Cells(i, 5) < 98 Then
Cells(i, 6) = "alto"
i = i + 1
Else
Cells(i, 6) = "superior"
i = i + 1
End If
End If
End If
Wend
End Sub

jueves, 15 de marzo de 2012

ciclo For

como hacer una secuencia con el ciclo For en excel
primero agregamos un botón de comando

y escribimos la siguiente formula

For i = 1 To 10
Cells(i, 1) = i
Next
presionamos el botón que agregamos y aparecerá una secuencia de 1 al 10

si queremos que la secuencia llegue a 30 solo cambiamos el 10 por el 30
por ejemplo

For i = 1 To 30
Cells(i, 1) = i
Next

como sumar la secuencia de varios numeros.

por ejemplo:
una secuencia de numeros del 1 al 20 yo quiero saber la suma total de esa secuencia y quiero que el resultado me lo de en la celda A 21
primero hay que agregar un boton darle doble clic y escribir la siguiente formula.

for i= 1 to 20
cells(21,1)=cells(21,1) + cells(i,1)
next

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
formula para calcular la definitiva de tres notas diferentes con diferentes porcentajes y para calcular es estado y el nivel de los estudiantes con el siclo for

formula para calcular la definitiva

Private Sub CommandButton1_Click()
for i = 2 to 4
Cells(i, 5) = Cells(i, 2) * 0.3 + Cells(i, 3) * 0.3 + Cells(i, 4) * 0.4
next
End Sub

formula para calcular el estado

Private Sub CommandButton2_Click()
For i = 2 To 4
If Cells(i, 5) < 60 Then
Cells(i, 6) = "perdio"
Else
Cells(i, 6) = "gano"
End If
Next
End Sub

formula para calcular el nivel

For i = 2 To 4

If Cells(i, 5) < 60 Then

Cells(i, 7) = "bajo"

Else

If Cells(i, 5) < 80 Then

Cells(i, 7) = "basico"

Else

If Cells(i, 5) < 98 Then

Cells(i, 7) = "alto"

Else

Cells(i, 7) = "superior"

End If

End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
algoritmo para promedios

Private Sub CommandButton1_Click()

For i = 2 To 10

h = h + Cells(i, 2)

Cells(15, 2) = h / Cells(14, 2)

End Sub

Private Sub CommandButton2_Click()

For k = 2 To 11

If Cells(k, 2) >= Cells(15, 2) Then

h = h + 1

End If

MsgBox ("EL total de alumnos por encima del promedio es: ") + Str(h)

End Sub

martes, 13 de marzo de 2012

formula para calcular la edad en excel

para calcular la edad en excel

primero hay que agregar el boton de comando y el boton de diseño como el ejemplo de suma de celda
después de haber agregados estos botones presionamos el botón de comando y agregamos un boton luego presionamos modo de diseño presionamos nuevamente el botón de comando y escribimos la siguiente formula
cells(3,2)=(datavalle(cells(1,2))-datavalue cells(2,2)))/365
y inmediatamente mostrara la edad

formulas para sumar,restar,multiplicar,dividir.celdas en excel

para sumar,restar, multiplicar, dividir celdas.
primero hay que agregar el botón de modo de diseño y el botón modo de comando

por ejemplo yo quiero sumar la celda 2,1 y la celda 2,1

para sumar esas dos celdas hay que presionar el botón modo de comando y agregar un boton y

presionamos en modo de diseño y escribimos la siguiente formula
cells(2,3)=cells(2,1)+cells(2,2)
y desactivamos el modo de diseño y presionamos en el botón que agregamos y automáticamente se sumaran las celdas.

para restar,multiplicar y dividir se hace el mismo procedimiento que el de la suma pero con una diferencia en la formula que cambia el el signo
por ejemplo para restar se utiliza esta formula
cells(2,3)=cells(2,1)-cells(2,2)
para multiplicar
cells(2,3)=cells(2,1)*cells(2,2)
para dividir
cells(2,3)=cells(2,1)/cells(2,2)

-
para no tener que sumar, restar, multiplicar o dividir celda por celda utilizamos el ciclo for y resumimos la formula.

para sumar dos columnas hay que presionar el botón modo de comando y agregar un boton y
presionamos en modo de diseño y presionamos nuevamente el botón y escribimos la siguiente formula

for i= 2 to 20
cells(i,3)= cells(j,1) + cells(j,2)
next

para restar,multiplicar y dividir se hace el mismo procedimiento que el de la suma pero con una diferencia en la formula que cambia el el signo.

for i= 2 to 20

cells(i,4)= cells(j,1) - cells(j,2)

for i= 2 to 20
cells(i,5)= cells(j,1) * cells(j,2)
next

for i= 2 to 20
cells(i,6)= cells(j,1) / cells(j,2)
next