Nesesito ayuda con el metodo de potencias para sacar un valor caracteristico y su vector asociado de una matriz cuadrada en este caso es una de 3x3 
 

 https://es.m.wikipedia.org/wiki/Método_de_las_potencias



Edto ea lo que tengo pero por alguna razon  no sigue asiendo interaciones

 'Metodo de Potencias para encontrar 
'el maximo valor caracteristico
'y su vector asociado
 
 
'Ingresando la siguiente matriz 
 
'1 2 3 
'4 5 6 
'1 1 1
 
'Debe dar como resultado
 
'lambda 1 = 7.7720018727
'Vector asiciado:
'0.3860009363
'1.0000000000
'0.2046663546
 
'Pedir una matriz(a) 3 x 3 y la multiplica por otra matriz(b) aleatoria 
'de 3 x 1 dando como resultado una matriz(c) de 3 x 1 dividir la matriz(c)
'entre el maximo de dicha matriz genrando otra matriz(d) de 3x1.calcular 
'el error relativo q seria el numero maximo de la matriz(d) menos el 
'numero maximo anterior si estes es menor a 0.0000000001 imprimir el
'ultimo valor maximo  y la ultima matriz dividida   
 
 
Dim A(50, 50) ,B(50, 50), c(50,50) 
Dim n,i,j,k,nn,NuMax
 
wscript.echo  "Ingrese Los Elementos De La Matriz A  " & vbLf & ""
For i  = 1 To 3
   For j  = 1 To 3
      wscript.echo "Elemento", i, j
      A(i, j) = Wscript.StdIn.ReadLine
   Next
Next 
'genera matriz aleatoria de ceros y unos
for i = 1 to 3 
   if i = 1 then 
      b(i,1) = 1
   else   
      RAndomize()
      b(i, 1) = Mid("01", Int(Rnd * 2) + 1, 1)
   end if
next
 
do 
'multiplica la matriz a*b y 
'almacena el resultado en c 
For i  = 1 To 3
   For j  = 1 To 1
      For k  = 1 To 3
          C(i, j) = C(i, j) + (A(i, k) * B(k, j)) 
      next
   Next
Next
 
'busca el valor mas grande
'en vector c
NuMax = c(1,1)
for i = 1 to 3
    if c(i,1)>NuMax then
       NuMax = c(i,1)
    end if   
next
 
'divide cada uno de los componentes
'del vector c entre el maximo de dicho vector
for i = 1 to 3
   for j = 1 to 3
      b(i,j) = c(i,j)/NuMax
   next
next
 
'error:: numero maximo - el anterior
err = NuMax-err
if round(err,10) <0.000000001 then ' Si el error es menor a  0.000000001  termina e imprimeresultados
exit do
end if
loop
 
'para comprobar que lambda y el vector asociado esta bien 
'multiplicar la matriz(a) ingesada y multiplicarla por
'la matriz resultante debe dar 
 
'0
'0
'0
'MatrizOriginal * VectorAsociado = 0 ok
 
wscript.echo "Lambda1 = " & NuMax & vbLf & "Vector Asociado:" & vbLf & imprimir(b)
 
 
 
function Imprimir(c)
M = ""
For i  = 1 To 3 
    For j  = 1 To 1
      M = M & C(i, j) & " "
    Next
   M = M & vbLf 
Next
imprimir = M & vbLf
End function 

Necesito un poco de ayuda
en un textbox  o inputbox se ingresara una funcion pej    x^2-1.44   

como ago para evaluarla si x = 1.20  o cualquier otro numero
y q me arroje el resultado de la funcion

x^2-1.44

1.2^2-1.44

Que si no me equivoco es 0

basicamente como sustituyo x por un numero y luego opero

Saludos a tod@s

Bueno tengo dos variables del tipo float

x= 1.12349
y=1.1248648

si las compara para ver si son iguales con (if x ==y){

}

Dara resultado falso

lo q qiero es q redonde el valor de las 2 variables a 2 desimales de esta forma al compararla dara verdadero

en vb usaba round()

x=round(1.12349,2)
y=round( 1.1248648,2)

if x=y then
msgbox "="
elae
msgbox "<>"
end if

En C como qdaria

Saludos

Les traigo un regalo, un crypter para vbscript,en cuanto al aapecto grafico no es muy bueno pero hace su jale,cuenta von 10 algotitmos de cifrado Ascii ,vigenere, cesar,Rc4,revese,hexadesimal , base 64 etc....

Tiene opcion para ofuscar mas el codigo y tiene la opcion de agregar lineas en blanco yas cosillas (todo esta esplicado en el mini mabual que viene en el ZIP

Si tienen dudas postenlas aqui abajo,se aceptan comentarios buenos malos sujerencias felicitaciones


Si detectan errores aganmelo saber si su vbsctipt no corre bien subanlo a un servidor y posten el link para poder arreglar el error

Por el momento el Crypter y  los archivos generados estan FUD VirusTotal no los detecto Cifre el virus HappyTime.vbs y nada

ESPERO QUR DISFRUTEN CIFRANDO SUS SCRIPT COMO YO DISFRUTE PROGRAMARLO



pasword: 123


Link:

Tengo una pc infectada ya le pase varios programas pero no sale .Es el virus que crea accesos directos en las usb no pude saber ni desde donde se inicia ya cheque en el regedit Run y variablciones y la carpeta de Startup .Tambien e en la usb crea una carpeta inborrable y lo q creo q es el virus un archivo *.fr pesa como 20 megas 


les dejo el link de lo q crea en una usb 
aver si me pueden dar solucion a la desinfecion

abstenerse de darme solucion para mostrar los archivos ocultos

cmd
attrib -s -r -h /d /s

https://mega.nz/#!bIszWRpY!Y4g_6BnGd7RYzTougxRpjN-tj6hRUOx9SeN-ik3ebDk

Tengo una funcion para el calculo de la determinante de 3*3 pero esta ya no me sirve si ingreso matrizes mas grandes  ,si alguien me puede ayudar  con una nueva funcion

 a11 = 1
a12 = 2
a13 = 3
a21 = 1
a22 = 2
a23 = 1
a31 = 2
a32 = 1
a33 = 1
 
'  |1 2 3|
'A=|1 2 1|
'  |2 1 1|
 
'|A|=-6
 
MSGBOX determinante(a11,a12,a13,a21,a22,a23,a31,a32,a33 )
 
 
 
Function determinante(ij11,ij12,ij13,ij21,ij22,ij23, ij31, ij32, ij33)
 
 
FC = ij11 * ((ij22 * ij33) - (ij32 * ij23)) +((-1 * ij12) * ((ij21 * ij33) - (ij31 * ij23)) +
 (ij13 * ((ij21 * ij32) - (ij31 * ij22))))
determinante = FC
End Function
 
 

Encontre este code  para determinantes n*n Pero no lo comprendo


visual basic 2010 este codigo al pareser usa el metodo de cofactor y yo lo quiero en script vbs

si alguien me ayuda estare agradesido

 

 
 Function DET(ByVal Aux(,) As Double) 
 
For i As Integer = 1 To n 
 
For j = 1 To n 
T(i, j) = Aux(i, j) 
Next 
Next
 deter = 1 
For k As Integer = 1 To n 
If T(k, k) = 0 Then 
j = k If T(k, j)= 0 Then 
If j =n Then 
deter = 0
 End If 
j = j+ 1
 End If
 If T(k, j) <> 0 Then 
For i As Integer = k To n 
temp = T(i, j)
 T(i, j) = T(i, k) 
T(i, k) = temp 
Next i 
deter= -deter
 End If 
End If 
If (k - n) < 0 Then
 k1 = k + 1
 For i As Integer = k1 To n 
For j = k1 To n
 T(i, j) = T(i, j) - (T(i,k) * T(k, j) /T(k, k)) 
Next j 
Next i 
End If
 deter = deter * T(k, k) 
Next k 
DET = deter 
End Function 
 
 

Alguien sabe como graficar x,y,z   lo q pasa es q tengo un vector  arrogado por la solucion de un sistema de ecuaciones Homogeneo  , bueni en realidad lo arroga una magnitud ....... bueno X   lo q quiero saber es como graficar

(-Cos 45° , Cos 45° , Cos 90°)

Si alguien me puede ayudar se lo agradecería enormemente

Saludos a tod@s

Tngo un problema con un programa que realize a forma  exponer mi problema simplificare

Tengo un proyecto con 3 form (a,b,c ) en a  2 botones mostrar y terminar .

Al dar clic en mostrar mostrara b y c 

al dar clic en terminar cerrar b y c

Codigo en mostrar es

b.show
c.show

En terminar  codigo

B.hide
C.hide

Set b = nothing
Set c= nothing

Esto ase lo q qiero pero  al cerrar a y echecar en el Admi de Tar  el programa esta abierto en 2do plano

Cual es mi error

Les traigo un efecto sus script. Es un efecto parecidio al que sale en Matrix  cuando Neo esta en frente de la pc y en la pantalla aparece

Neo,levantate .Sigue al conejo blanco

Bueno aqui esta la funcion  y tambien una breve explicacion de cada parte del codigo

Code:
 

  'llamamos a la funcion MaqEsc() con el texto incluido casi 
'al final esta un numero este indica el tiempo en milisegundos 
'en que iran apareciendo las letras
 
 call MaqEsc("HOLA SOY EL USUARIO .::KSV::. DEL FORO DE ELHACKER.NET",60)
 Function MaqEsc(Striing,tt) 
For i = 1 To Len(Striing) 'Iniciamos un for hasta la ultima letra ,para saber 
X = (Mid(Striing, i, 1)) 'cuantas letras son usamos Len() esto regresa la cantidad de letras 'nos movemos letra x letra con mid(cadenaDeTexto,EmpezandoPor,CantidadDeLetrasAprosesar) 
 
If x= " " then 'Si el caracter que estamos analizando 
wscript.sleep 00 'es espacio se ignora y "aparece de inmediato" 
else 'De lo contrario se espera tt tiempo wscript.sleep tt 'tt = al tiempo q se le asigna en mi caso 60 milisegundos 
End If 
Wscript.StdOut.Write x  'Escribe caracter por caracter tambien se puede usar wscript.echo x
Next 
wscript.sleep 3000 'esperamos 3000 milisegundos osea 3 s. y cerramos 
End function

Espero que les guste Adios

Muy buenas a tod@s  veran tengo un pequeño gran proyecto entre manos .Estoy en detalles y uno de esos detalles es que quiero poner un poco de color a la ventana usando el comando color de batch .Al principio para poner titulo a la ventana use

Set ksv  = CreateObjet('WScript.Shell")
ksv.Exec "%comspec% /c title .::ELHACKER.NET::."
 
WScript.echo "Hola Mundo"
wscript.sleep 3000
 

consola
c:\cscript //nologo  filevb.vbs


 
Pero no funciona con color :

Set ksv  = CreateObjet('WScript.Shell")
ksv.Exec "%comspec% /c color 0a"
 
WScript.echo "Hola Mundo"
wscript.sleep 3000
 

Alguien tiene una idea d como solucionar eso

Gracias de antemano