FiveTech Software tech support forums

... local i
FOR i := Len(::layers) TO 1 STEP -1
::layers[i]:Backward(d_output)
NEXT
RETURN NIL

// Función para aplicar Softmax con estabilidad numérica
FUNCTION Softmax(matrix)
LOCAL rows := Len(matrix)
LOCAL cols := Len(matrix[1])
LOCAL result := Array(rows, cols)
local i, j, max_val, sum_exp ...

... local i
FOR i := Len(::layers) TO 1 STEP -1
::layers[i]:Backward(d_output)
NEXT
RETURN NIL

// Función para aplicar Softmax con estabilidad numérica
FUNCTION Softmax(matrix)
LOCAL rows := Len(matrix)
LOCAL cols := Len(matrix[1])
LOCAL result := Array(rows, cols)
local i, j, max_val, sum_exp ...

... 01], aGets3[02], aGets3[03], hasta aGets3[50], bajo ninguna circunstancia repetir el mismo aGets[nn]. No importa qué carpeta[Folder] sea, debes seguir la secuencia numérica.


LOCAL aGets3 := ARRAY(50) // por ejemplo.


O publique el código completo para críticas y análisis.

Regards, saludos.

Hola a todos,

Como debo especificar un PICTURE para un GET de una variable carácter (no numérica), que acepte sólo cifras y el punto (.)?

No doy con ello.

Muchas gracias,

Parece que hoy me levante sin muchas ganas de pensar
La funsion en cuestion es Dow() que devuelve en forma numérica el día de la semana espesando con un 1 para el domingo así correlativamente.
Gracias y disculpen
Abrazos

... nCount], [aColPos/bSort] ) --> aSorted
Por defecto, funciona como la función ASort(), pero si el cuarto parámetro es una matriz con columnas
numéricas, resulta una ordenación en varias columnas. Para una ordenación descendente, se debe especificar
la columna numérica como un valor negativo ...

Yo con los GURUS ni me meto
apenas si me sale bien la tabla del 10
y con errores

Un placer leer estas respuestas.... Seguimos aprendiendo...

wow!
me siento abrumado por la rápida respuesta de 3 masters!!!!

Victor,

Puedes usar las propias funciones de Harbour:

? hb_bitAnd( 10, 2 )
? hb_bitAnd( 10, 8 )

Si escribes 10 en binario obtemos esto (puedes usar la calculadora de Windows en modo programador): "1010"

hb_bitAnd( 10, 2 ...

Rao,

very elegant, as usual...

C.

function ValSplit&#40; nTotal &#41; local aResult := &#123;&#125; local n := 1 DEFAULT nTotal := 10 do while n <= nTotal if lAnd&#40; nTotal, n &#41; AAdd&#40; aResult, n &#41; endif n += n enddoreturn aResult

Usage:
? ValSplit&#40; 10 &#41; // -> { 2,8 }? ValSplit&#40; 12 &#41; // --> { 4,8 }

V,

Creo q esta ebtrada del amic Biel te servira...

https://bielsys.blogspot.com/2015/01/ma ... rbour.html

Salut.
C.

Si prefieres usar las funciones de FWH lo harías asi:
#include "FiveWin.ch"function Main&#40;&#41;&nbsp; &nbsp;MsgInfo&#40; IsBit&#40; 10, 2 &#41; &#41; // está encendido el segundo bit del valor 10 ?&nbsp; &nbsp;MsgInfo&#40; IsBit&#40; 10, 4 &#41; &#41; // está encendido el cuarto bit del valor 10 ...

Victor,

Puedes usar las propias funciones de Harbour:

? hb_bitAnd( 10, 2 )
? hb_bitAnd( 10, 8 )

Si escribes 10 en binario obtemos esto (puedes usar la calculadora de Windows en modo programador): "1010"

hb_bitAnd( 10, 2 ) intenta hacer un "and" del bit segundo entre "1010" y "10" (dos en ...

Hola.

Estoy enfrascado en un tema que no le veo la punta y seguro será simplón pero no he trabajado nunca de esta forma.

Tengo un control que activa opciones mediante un número, por ejemplo:
Opción 1 : valor 1
Opción 2 : valor 2
Opción 3 : valor 4
Opción 4 : valor 8

y así sucesivamente.

El ...