Mensajes

[Z]

.
Coordenadas esfericas.

OJO mis ejes Z y X son el piso y mi eje Y es mi altitud., de donde Z es lo que se define como que tan seca o lejos esta de un objeto.

Como se calcula en angulo azimutal de dos puntos?

x = d * sin(a) * cos(e)
y = d * sin(e)
z = d * cos(a) * cos(e)

donde:

d = distancia entre dos puntos ( X,Y,Z )
a = angulo azimutal
e = angulo de elevacion

hasta ahora ya pude saber como saber el angulo de elevacion de un punto con respecto al punto origen

e = csc( y/d )

Pero para el angulo de la azimutal

[Aqui empiza mi duca sigan leyendo]

llego a un punto muerto donde ya no se que rayos hacer.

El angulo azimutal involucra a el eje x y el eje z, el eje y solo es involucrado por la elevacion ( Logica Basica )

x = d * sin(a) * cos(e)
z = d * cos(a) * cos(e)

Entonces empesando a despejar

Como en ambas expresiones existen d y cos(e) puedo hacer un reemplazo de terminos asi:

Quitando a cos(e) para simplificar la cosa:

cos(e) = x / ( d*sin(a) )

En la segunda formula reemplazo (  z = d * cos(a) * cos(e) )

z = d * cos(a) * x / ( d*sin(a) )

Simplificando un poco queda:

z = cos(a) * x /  sin(a)

y tratando de despejar a el angulo a obtengo:

z/x = cos(a) / sin(a)    siendo lo mismo a:      z/x = cos(a) * csc(a)

por lo tanto:

cosec ( z/x ) = a * csc( a )
sin(cosec(z/x)) = a*a

por lo tanto

raiz( sin(cosec(z/x)) ) = a

pero al aplicar dicho despeje no me da el angulo ya mensionado. alguien sabe como solucionarlo?

Dulces Lunas!¡.
.

....
vean este tema... dice que lo creo el usuario DesSy pero solo se ve mi poublicacion ...

http://foro.elhacker.net/programacion_visual_basic/ayuda_iquestcomo_se_puede_ejecutar_pagina_web_clickeando_en_un_label_en_vb6-t324107.0.html

Dulces Lunas!¡.

.
Aun tiene unos HORRORES al tratar con numeros negativos. xP.

La funcion Not es mas facil que nada al tratarse de numeros decimales xP.

Al rato las mejoro un poco ahora me tengo que ir llevo 2 horas de retraso. xS.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Public Enum tBase
    [  Base2  ] = 2
    [  Base8  ] = 8
    [  Base10  ] = 10  '   //  Se obvia como entrada    (La dejo solo para verificar cogruencia)
    [  Base16  ] = 16
End Enum

Const conlnLong         As Long = &H20  '   //  Bites de un Long.

Public Function Dec2Bin(ByVal CurVal As Long) As String
Dim lng_lim                         As Long
Dim lng_index                       As Long
Dim byt_res                         As Byte
Dim boo_min                         As Boolean
    If (CurVal < 0) Then
        boo_min = True
        CurVal = CurVal * -1 - 1
        Dec2Bin = String$(conlnLong, "1")
    Else
        Dec2Bin = String$(conlnLong, "0")
    End If
    For lng_index = 0 To conlnLong - 1
        byt_res = CurVal Mod 2
        If (boo_min = True) Then
            If (byt_res = 1) Then
                byt_res = 0
            Else
                byt_res = 1
            End If
            Mid$(Dec2Bin, conlnLong - lng_index, 1) = byt_res
        Else
            Mid$(Dec2Bin, conlnLong - lng_index, 1) = byt_res
        End If
        CurVal = CurVal \ 2
        If (CurVal = 0) Then Exit For
    Next
End Function

'   //  Hex no afecta a bases inferiores por ello lo dejo.
Public Function Base2Dec(ByRef inval As String, ByRef InBase As tBase) As Long
Dim lng_lenStr&
Dim lng_Pointer&
Dim lng_Potencia&
Dim lng_limit&

    lng_lenStr& = Len(inval)

    If (lng_lenStr& >= conlnLong) Then
        lng_lenStr& = conlnLong
        lng_limit& = 2
    Else
        lng_limit& = InStr(1, inval, "-")
    End If

    lng_Potencia& = 0

    For lng_Pointer& = lng_lenStr& To lng_limit& Step -1
       Base2Dec = Base2Dec + CLng("&H" & Mid$(inval, lng_Pointer, 1)) * InBase ^ lng_Potencia&
        lng_Potencia& = lng_Potencia& + 1
    Next lng_Pointer&

    If (Mid$(inval, 1, 1) = "1") Then Base2Dec = Base2Dec * -1

End Function

Public Function AndAlt(Byte1 As Long, Byte2 As Long) As Long
Dim str1        As String
Dim str2        As String
Dim str3        As String * conlnLong
Dim i           As Byte

    str1 = Dec2Bin(Byte1)
    str2 = Dec2Bin(Byte2)

    For i = 1 To conlnLong
        If (Mid$(str1, i, 1) = "1") Then
            If (Mid$(str1, i, 1) = Mid$(str2, i, 1)) Then
                Mid$(str3, i, 1) = 1
            Else
                Mid$(str3, i, 1) = 0
            End If
        Else
            Mid$(str3, i, 1) = 0
        End If
    Next i

    AndAlt = Base2Dec(str3, [  Base2  ])

End Function

Public Function OrAlt(Byte1 As Long, Byte2 As Long) As Long
Dim str1        As String
Dim str2        As String
Dim str3        As String * conlnLong
Dim i           As Byte

    str1 = Dec2Bin(Byte1)
    str2 = Dec2Bin(Byte2)

    For i = 1 To conlnLong
        If (Mid$(str1, i, 1) = "1") Then
            Mid$(str3, i, 1) = 1
        ElseIf (Mid$(str2, i, 1) = "1") Then
            Mid$(str3, i, 1) = 1
        Else
            Mid$(str3, i, 1) = 0
        End If
    Next i

    OrAlt = Base2Dec(str3, [  Base2  ])

End Function

Public Function XorAlt(Byte1 As Long, Byte2 As Long) As Long
Dim str1        As String
Dim str2        As String
Dim str3        As String * conlnLong
Dim i           As Byte

    str1 = Dec2Bin(Byte1)
    str2 = Dec2Bin(Byte2)

    For i = 1 To conlnLong
        If (Mid$(str1, i, 1) = "1") Then
            If (Mid$(str2, i, 1) = "0") Then
                Mid$(str3, i, 1) = 1
            Else
                Mid$(str3, i, 1) = 0
            End If
        Else
            If (Mid$(str2, i, 1) = "1") Then
                Mid$(str3, i, 1) = 1
            Else
                Mid$(str3, i, 1) = 0
            End If
        End If
    Next i

    XorAlt = Base2Dec(str3, [  Base2  ])

End Function

Public Function NotAlt(Byte1 As Long) As Long
    NotAlt = (Byte1 + 1) * -1
End Function



Ejemplo Basico:

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
    MsgBox XorAlt(AndAlt(NotAlt(7451), OrAlt(10, 456)), 1) & vbNewLine & _
           CStr((Not 7451) And (10 Or 456) Xor 1)
End Sub



claro esta que los operadores binarios son los mas rapidos y estos ni ninguno va asuperar la velocidad de los originales.

Temibles Lunas!¡.

.
interesante, regresando le hechare mano de obra.

Dulces Lunas!¡.

[@Guillermo575]

.
@Guillermo575

Asi:

Header.h

Código (cpp) [Seleccionar] Expandir



class Header
{
public:
   static int run(void *data);

private:
   int funcion2();
};



CPP

Código (cpp) [Seleccionar] Expandir



#include "Header.h"

int Header::run(void *data){
   while(1>0) {
       metodo();
   }
   return 0;
}

int Header::funcion2() {
    return 1;
}



Dulces Lunas!¡.

.
De que se puede se puede... pero la pregunta real seria: ¿se debe?... esto esta en las politicas del servicio.

Dulces Lunas!¡.

.
Ppues usando todo lo que tienes ya hecho solo implementale un for next que recorra una lista X.

y dicha lista la puedes tener donde quieras... ListBox ListView en un textbox en un archivo de texto plano etc etc etc.

Dulces Lunas!¡.

.
Un cable que condusca energia electrica y que este enrollado te va a generar un campo electromagnetico (Induccion/Bobina) y en algunos casos consumira mayor energia electrica al estar enrollado no creo que exista un cable asi por desde fabrica pero quisas exista algun componente extra...

Inductor

Dulces Lunas!¡.
.

[C\C++]

.
Me late que no se refirio a un lenguje si no a la unidad desco local C:\ no C\C++ vaya... de todas maneras usa el buscador o pasate a ver la pagina de psc hay encuentras un modulo de clase llamado cJPEG si no mal recuerdo para guardar las imagenes de bmp a jpg.

http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=71896&lngWId=1
y/o
http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=68259&lngWId=1

solo extraes la clase y la implementas en tu proyecto.

Dulces Lunas!¡.
-

quiero hacer un soft que pueda leer estos archivos .bmd quisiera pautas de como saber y o entender como hacerlo programo en vb.net 2010 gracias por su tiempo
espero sus respuestas

y te sabes la estructura del formato tan siquiera? o estas biendo quien te facilita dicha informacion en todo caso vb.net 2010 va en el subforo de .NET aun que si sabes el formato de dicho archivo ( estructura de los datos ) podras hacerlo en el lenguaje que desees.

Dulces Lunas!¡.