Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Incorrect incrementation
Message
 
 
À
06/04/2005 19:40:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
Visual FoxPro
Divers
Thread ID:
01002124
Message ID:
01002134
Vues:
17
This message has been marked as the solution to the initial question of the thread.
I'm not sure what you're trying to do but will following code work for you?
CLEAR
Local OutputCounter, Start, Finish
NodeCount = 37
Start =  NodeCount * 2 + 1
Finish = NodeCount * 3
For ActivationCreator = Start To Finish
	CodeLine = [W] + Transform(ActivationCreator) + [_] + Transform(ActivationCreator + 1) + ;
        [ =  W] + Transform(ActivationCreator) + [_] + Transform(ActivationCreator +1 ) + ;
	[ + LearningRate * Node] + Transform(ActivationCreator + OutputCounter) + ;
	[Error * Node] + Transform(ActivationCreator) + [Activation]
	? CodeLine
Next ActivationCreator
>The following code
>
>
>Local OutputCounter, Start, Finish
>Start =  NodeCount * 2 + 1
>Finish = NodeCount * 3
>OutputCounter = 0
>For ActivationCreator = Start To Finish
>
>OutPutCounter = OutPutCounter + 1
>
>CodeLine = [W] + Transform(ActivationCreator) + [_] +Transform(ActivationCreator ;
>OutputCounter) + [ =  W] + Transform(ActivationCreator) + [_] + Transform(ActivationCreator + ;
>OutputCounter) + [ + LearningRate * Node] + Transform(ActivationCreator + OutputCounter) + ;
>[Error * Node] + Transform(ActivationCreator) + [Activation]
>
>Fputs(lnHandle,CodeLine)
>Next ActivationCreator
>
>
>
>Produces this result (NOTE that three of the columns increment by 2. It should be 1, but I have not been able to see why. Can you?
>
<snip>
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform