Funciones matematicas de vb1

Ejemplo de la función Abs
En este ejemplo se utiliza la función Abs para calcular el valor absoluto de un número.
Dim MiNúmero
MiNúmero = Abs(50.3) ' Devuelve 50.3.
MiNúmero = Abs(-50.3) ' Devuelve 50.3.
Atn (Función)
Vea también Ejemplo Detalles
Devuelve un tipo Double que especifica el arcotangente de un número.
Sintaxis
Atn(número)
El argumento número es un tipo Double o cualquier expresión numérica válida.
Comentarios
La función Atn toma la razón de dos lados de un triángulo rectángulo (número) y devuelve el ángulo correspondiente en
radianes. La razón es la longitud del lado opuesto al ángulo dividida por la longitud del lado adyacente al ángulo.
El ángulo del resultado es -pi/2 a pi/2 radianes.
Para convertir grados en radianes, multiplique los grados por PI/180. Para convertir radianes en grados, multiplique los
radianes por 180/pi.
Nota Atn es la función trigonométrica inversa de Tan, que toma un ángulo y su argumento y devuelve la razón de dos
lados de un triángulo rectángulo. No confunda con la cotangente, que es el inverso de la tangente (1/tangente).
Ejemplo de la función Atn
En este ejemplo se utiliza la función Atn para calcular el valor de pi.
Dim pi
pi = 4 * Atn(1) ' Calcula el valor de pi.
Cos (Función)
Devuelve un tipo Double que especifica el coseno de un ángulo.
Sintaxis
Cos(número)

El argumento número es un tipo Double o cualquier expresión numérica válida que expresa un ángulo en radianes.
Comentarios
La función Cos toma un ángulo y devuelve la razón de dos lados de un triángulo rectángulo. La razón es la longitud del lado
adyacente al ángulo dividida por la longitud de la hipotenusa.
El resultado está dentro del intervalo -1 a 1.
Para convertir grados en radianes, multiplique los grados por pi/180. Para convertir radianes en grados, multiplique los
radianes por 180/pi.
Ejemplo de la función Cos
En este ejemplo se utiliza la función Cos para devolver el coseno de un ángulo.
Dim MiÁngulo, MiSecante
MiÁngulo = 1.3 ' Define el ángulo en radianes.
MiSecante = 1 / Cos(MiÁngulo) ' Calcula la secante.
Ejemplo de la función Sin
En este ejemplo se utiliza la función Sin para devolver el signo de un ángulo.
Dim MiÁngulo, MiCosecante
MiCosecante = 1 / Sin(MiÁngulo) ' Calcula la cosecante.
Ejemplo de la función Tan
En este ejemplo se utiliza la función Tan para devolver la tangente de un ángulo.
Dim MiÁngulo, MyCotangente
MyCotangente = 1 / Tan(MiÁngulo) ' Calcula la cotangente.
Exp (Función)
Devuelve un tipo Double que especifica e (la base de los logaritmos naturales) elevado a una potencia.
Sintaxis
Exp(número)
El argumento número es un tipo Double o cualquier expresión numérica válida
Comentarios
Si el valor de número es mayor que 709.782712893,se produce un error. El valor de la constante e es 2.718282
aproximadamente.
Nota La función Exp complementa la acción de la función Log y a veces se llama antilogaritmo.

Ejemplo de la función Exp
En este ejemplo se utiliza la función Exp para que devuelva e elevado a una potencia.
Dim MiÁngulo, MiSenoH
' Define el ángulo en radianes.
MiÁngulo = 1.3
' Calcula el seno hiperbólico.
MiSenoH = (Exp(MiÁngulo) - Exp(-1 * MiÁngulo)) / 2
Int, Fix (Funciones)
Devuelve la parte entera de un número.
Sintaxis
Int(número)
Fix(número)
El argumento número es un tipo Double o cualquier expresión numérica válida. Si número contiene Null, la función
devolverá Null.
Comentarios
Las funciones Int y Fix eliminan la fracción de un número y devuelven el valor entero resultante.
La diferencia entre Int y Fix es que si el número es negativo, Int devuelve el primer entero negativo menor o igual a
número, mientras que Fix devuelve el primer entero negativo mayor o igual a número. Por ejemplo, Int convierte -8.4 en -9
y Fix convierte -8.4 a -8.
La función Fix(número) es equivalente a:
Sgn(número) * Int(Abs(número))
Ejemplo de las funciones Int y Fix
Este ejemplo muestra cómo las funciones Int y Fix devuelven la parte entera de los números. En el caso de que el
argumento sea un número negativo, la función Int devuelve el primer número entero negativo menor o igual que el número;
la función Fix devuelve el primer entero negativo mayor o igual que el número.
Dim MiNúmero
MiNúmero = Int(99.8) ' Devuelve 99.
MiNúmero = Fix(99.2) ' Devuelve 99.
MiNúmero = Int(-99.8) ' Devuelve -100.
MiNúmero = Fix(-99.8) ' Devuelve -99.
MiNúmero = Int(-99.2) ' Devuelve -100.
MiNúmero = Fix(-99.2) ' Devuelve -99.

Log (Función)
Devuelve un tipo Double que especifica el logaritmo natural de un número.
Sintaxis
Log(número)
El argumento número es un tipo Double o cualquier expresión numérica válida mayor que cero.
Comentarios
El logaritmo natural es el logaritmo en base e. El valor de la constante e es 2.718282 aproximadamente.
Puede calcular logaritmos en base-n para cualquier número x dividiendo el logaritmo natural de x por el logaritmo natural de
n de la siguiente manera:
Logn(x) = Log(x) / Log(n)
El ejemplo siguiente ilustra una función personalizada (Function) que calcula logaritmos en base 10:
Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function
Ejemplo de la función Log
En este ejemplo se utiliza la función Log para que devuelve el logaritmo natural de un número.
Dim MiÁngulo, MiLog
' Define el ángulo en radianes.
MiÁngulo = 1.3
' Calcula el seno hiperbólico inverso.
MiLog = Log(MiÁngulo + Raíz(MiÁngulo * MiÁngulo + 1))
Randomize (Instrucción)
Inicializa el generador de números aleatorios.
Sintaxis
Randomize [número]
El argumento opcional número es un tipo Variant o cualquier expresión numérica válida.
Comentarios
La instrucción Randomize utiliza número para inicializar el generador de números aleatorios de la función Rnd y le asigna
un nuevo valor de semilla. Si omite número, el valor devuelto por el reloj del sistema se usa como el nuevo valor de semilla.

Si no utiliza la instrucción Randomize, la función Rnd (sin argumentos) utiliza el mismo número como valor de semilla la
primera vez que se la invoca, usando después como valor de semilla el último número generado.
Nota Para repetir secuencias de números aleatorios, llame a la función Rnd con un argumento negativo antes de utilizar la
instrucción Randomize con un argumento numérico. Al utilizar la instrucción Randomize con el mismo valor de número
no se repite la secuencia anterior.
Ejemplo de la instrucción Randomize
En este ejemplo se utiliza la instrucción Randomize para inicializar el generador de números aleatorios. Al omitirse el
argumento número, Randomize utiliza el valor de retorno de la función Timer un nuevo valor de comienzo.
Dim MiValor
Randomize ' Inicializa el generador de números aleatorios.
MiValor = Int((6 * Rnd) + 1) ' Genera valores aleatorios entre 1 y
6.
Rnd (Función)
Devuelve un tipo Single que contiene un número aleatorio.
Sintaxis
Rnd[(número)]
El argumento opcional número es un tipo Single o cualquier expresión numérica válida.
Valores devueltos
Si número es Rnd genera
Menor que cero El mismo número todas las veces, utilizando número como valor de semilla.
Mayor que cero El siguiente número aleatorio de la secuencia.
Igual a cero El número generado más recientemente.
No se especifica El siguiente número aleatorio de la secuencia.
Comentarios
La función Rnd devuelve un valor menor que 1 pero mayor o igual que cero.
El valor de número determina cómo la función Rnd genera un número aleatorio:
Para cualquier valor de semilla inicial se genera la misma secuencia de números. Esto es debido a que cada llamada sucesiva
a la función Rnd usará el número anterior como valor de semilla para el siguiente número de la secuencia.
Antes de llamar a la función Rnd, utilice la instrucción Randomize sin argumento para inicializar el generador de números
aleatorios con un valor de semilla basado en el reloj del sistema.

Para producir enteros aleatorios en un intervalo dado, use esta fórmula:
Int((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)
Aquí, límite_superior es el número mayor del intervalo y límite_inferior es el número menor del intervalo.
Nota Para repetir secuencias de números aleatorios, llame a la función Rnd con un argumento negativo antes de utilizar la
función Randomize con un argumento numérico. Al utilizar la instrucción Randomize con el mismo valor de número no se
repite la secuencia anterior.
Ejemplo de la función Rnd
En este ejemplo se utiliza la función Rnd para generar un valor entero aleatorio de 1 a 6.
Dim MiValor
MiValor = Int((6 * Rnd) + 1) ' Genera un valor aleatorio entre 1 y
6.
Sgn (Función)
Devuelve un tipo Variant (Integer)que indica el signo de un número.
Sintaxis
Sgn(número)
El argumento número puede ser cualquier expresión numérica válida.
Valores devueltos
Si número es Sgn devuelve
Mayor que cero 1
Igual a cero 0
Menor que cero -1
Comentarios
El signo del argumento número determina el valor devuelto por la función Sgn.
Ejemplo de la función Sgn
En este ejemplo se utiliza la función Sgn para determinar el signo de un número.
Dim MiVar1, MiVar2, MiVar3, MiSigno
MiVar1 = 12: MiVar2 = -2.4: MiVar3 = 0
MiSigno = Sgn(MiVar1) ' Devuelve 1.
MiSigno = Sgn(MiVar2) ' Devuelve -1.

MiSigno = Sgn(MiVar3) ' Devuelve 0.
Sqr (Función)
Devuelve un tipo Double que especifica la raíz cuadrada de un número.
Sintaxis
Sqr(número)
El núEjemplo de la función Sqr
En este ejemplo se utiliza la función Sqr para calcular la raíz cuadrada de un número.
Dim MiRaíz
MiRaíz = Sqr(4) ' Devuelve 2.
MiRaíz = Sqr(23) ' Devuelve 4.79583152331272.
MiRaíz = Sqr(0) ' Devuelve 0.
MiRaíz = Sqr(-4) ' Genera un error en tiempo de ejecución.
mero argumento es un tipo Double o cualquier expresión numérica válida mayor o igual a cero.
Funciones matemáticas derivadas
Vea también Detalles
La siguiente es una lista de funciones matemáticas no intrínsecas que pueden derivarse de funciones matemáticas
intrínsecas:
Función Derivadas equivalentes
Secante Sec(X) = 1 / Cos(X)
Cosecante Cosec(X) = 1 / Sin(X)
Cotangente Cotan(X) = 1 / Tan(X)
Seno inverso Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Coseno inverso Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Secante inversa Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1))
Cosecante inversa Arccosec(X) = Atn(X / Sqr(X * X – 1)) + (Sgn(X) – 1) * (2 * Atn(1))

Cotangente inversa Arccotan(X) = Atn(X) + 2 * Atn(1)
Seno hiperbólico HSin(X) = (Exp(X) – Exp(–X)) / 2
Coseno hiperbólico HCos(X) = (Exp(X) + Exp(–X)) / 2
Tangente hiperbólica HTan(X) = (Exp(X) – Exp(–X)) / (Exp(X) + Exp(–X))
Secante hiperbólica HSec(X) = 2 / (Exp(X) + Exp(–X))
Cosecante hiperbólica HCosec(X) = 2 / (Exp(X) – Exp(–X))
Cotangente hiperbólica HCotan(X) = (Exp(X) + Exp(–X)) / (Exp(X) – Exp(–X))
Seno hiperbólico inverso HArcsin(X) = Log(X + Sqr(X * X + 1))
Coseno hiperbólico inverso HArccos(X) = Log(X + Sqr(X * X – 1))
Tangente hiperbólica inversa HArctan(X) = Log((1 + X) / (1 – X)) / 2
Secante hiperbólica inversa HArcsec(X) = Log((Sqr(–X * X + 1) + 1) / X)
Cosecante hiperbólica inversa HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Cotangente hiperbólica inversa HArccotan(X) = Log((X + 1) / (X – 1)) / 2
Logaritmo en base N LogN(X) = Log(X) / Log(N)

Funciones matematicas de vb1

Más contenido relacionado

La actualidad más candente (19)

Destacado (20)

Similar a Funciones matematicas de vb1 (20)

Último (20)

Funciones matematicas de vb1