http://www.josemanuelbaldo.com cosicas varias Sun, 20 Sep 2009 09:31:28 +0000 http://backend.userland.com/rss092 en Fibonacci Ideas básicas. -          Cada pareja de conejos tendrá una nueva pareja. -          En el mes siguiente la nueva pareja es fértil. -          La función devuelve el número de parejas transcurridos n meses desde un instante inicial mes 1. -          Las compramos no fértiles.   Entonces, en el mes n, tengo todas las parejas que tenía en ... http://www.josemanuelbaldo.com/2009/09/18/94/ A ver si consigo la geodesica entre dos puntos, de momento tenemos esto :). http://www.josemanuelbaldo.com/2009/09/02/proyeccion-recta-en-r2-sobre-superficie/ http://www.josemanuelbaldo.com/2009/08/28/viva-rhinoscript/ Un ejemplillo de como rotar, trasladar y escalar objetos en rhinoceros con vbscript. Por cierto, tambien se puede usar la función Rhino.TransformObject que usa las matrices de transformación con coordenadas homogeneas, ya escribiré algo sobre esto :). Sub ScaleAndMove() Dim idBox, idBoxNew ' MOVER/TRASLADAR idBox = DrawCube(20, 0, 0, 10) idBoxNew = DrawCube(20, 0, ... http://www.josemanuelbaldo.com/2009/08/28/scale-rotate-and-translate-move-in-rhinoscript-vbscript/ Ya está!, me quedo con vbVariant para implementar mis vectores, por varias razones: - Los vectores no se pueden asignar unos a otros, me toca copiar elemento a elemento, los variant, como son variant conteniendo valores (da igual la forma) si se pueden copiar con una asignación directamente :). - Las variant ... http://www.josemanuelbaldo.com/2009/08/26/variant-to-the-power/ Bueno, el tema es que vengo de C++ y el tipo Variant me está volviendo loco, claro si estuviera en visual basic no script le pongo tipo a todas las variables y me movería en mi salsa, pero en vbscript todas las variables son de tipo variant :). Empecemos. Scalar Variables ... http://www.josemanuelbaldo.com/2009/08/26/vbscript-variant-type/ Option Explicit 'Script written by 'Script copyrighted by 'Script version jueves, 13 de agosto de 2009 9:05:47 'Cambiar esta llamada para ir cambiando el procedimiento que ejecuta el script. Call Main5() Sub Main() Dim x x = 1 Do While x http://www.josemanuelbaldo.com/2009/08/15/bucles-1/ Option Explicit 'Script written by 'Script copyrighted by 'Script version martes, 11 de agosto de 2009 9:37:31 ' Procedimiento que imprime los dos puntos introducidos por el usuario ' por orden de mas cercano al origen. Sub Main() Dim punto1, punto2, d1, d2 punto1 = Rhino.GetPoint("Punto 1: ") punto2 = Rhino.GetPoint("Punto 2: ") d1 = (punto1(0)^2 + punto1(1)^2 ... http://www.josemanuelbaldo.com/2009/08/15/vbscript-if-else/ Bueno he elegido este como primer titulo Microsoft, a ver si lo consigo. Trata sobre ".NET FRAMEWORK 2.0 Application development foundation" y voy a seguir el libro oficial, que consta de nada menos que 1040 páginas aproximadamente. He empezado a leerlo y comenta que necesitas haber programado dos años en ... http://www.josemanuelbaldo.com/2009/08/02/mcts-exam-70-536/ Sub ComprobarCuadrante() Dim x, y x = Rhino.getreal("coordenada x:") y = Rhino.getreal("coordenada y:") If x = 0 And y = 0 Then Rhino.Print "Origen" Else If x = 0 Then If y > 0 Then rhino.print "y +" Else rhino.print "y -" End If Else If y = 0 Then If x < 0 Then rhino.print "x -" Else rhino.print "x +" End If Else If x > 0 Then If y ... http://www.josemanuelbaldo.com/2009/07/27/un-ejemplo-de-if-else-anidados/