we have to change each var Dest : array of byte to a var Dest : TBytes type
for example RegisterMethod('Procedure ReadAsBits( var Dest : array of byte; Threshold : TNeuralFloat)');
to RegisterMethod('Procedure ReadAsBits( var Dest : TBytes; Threshold : TNeuralFloat)');
envlist:= Tstringlist.create;
InStr:= filetostring(Exepath+'\Examples\vararrayofFilename_savereport.txt');
StrtoList(InStr, envlist, CR)
writeln('envlist count: '+itoa(envlist.count));
cnt:= 0;
regEx:= TRegExpr.create; //HISUtils.RegExpr;
regEx.Expression:='var [\w+:\w:\w :,]+ array of byte';
// Execute search
for it:= 0 to envlist.count-1 do
if regEx.Exec(envlist[it]) then begin
writeln(itoa(cnt)+':'+envlist[it]);
inc(cnt)
end;
regex.Free;
envlist.Free;
0:
91: Procedure TIdUDPClientSendBufferAB(Self: TIdUDPClient; var AData: array of byte; const AByteCount: integer);
1:
//Procedure TIdUDPClientSendBufferAB(Self: TIdUDPBase; var AData: array of byte; const AByteCount: integer);
2:
Procedure TIdUDPClientSendBufferAB(Self: TIdUDPClient; var AData: array of byte; const AByteCount: integer);
3:
92: //Procedure TIdUDPClientSendBufferAB(Self: TIdUDPBase; var AData: array of byte; const AByteCount: integer);
4:
157: procedure BurnMemoryByteArray( var buff: array of byte; BuffLen: integer);
5:
1021: procedure ReadByteArray2(Self: TStream; var Buffer: array of byte; Count: Longint);
6:
1924: var mba: array of byte; //TBytearray; //array of byte;
7:
1681: var mba: array of byte; //TBytearray; //array of byte;
8:
46: procedure Include(var S: array of byte);
9:
49: function Test(var S: array of byte): boolean;
10:
56: function ABCmp(var X, Y: array of byte): boolean;
11:
59: function ABGetNext1(var AB: array of byte; ST: word): word;
12:
62: function ABCountDif(var X, Y: array of byte): longint;
13:
65: function ABCountDifZero(var X: array of byte): longint;
14:
68: procedure ABAnd(var A, B: array of byte);
15:
71: function ABGetEqual(var Equal, X, Y: array of byte): longint;
16:
74: procedure ABShiftLogicalLeft(var X: array of byte);
17:
77: procedure ABShiftLogicalRight(var X: array of byte);
18:
80: function ABGetDif(var Dif, X, Y: array of byte): longint;
19:
83: function ABToString(var AB: array of byte): string;
20:
86: function ABToStringR(var AB: array of byte): string;
21:
89: procedure ABClear(var AB: array of byte);
22:
92: procedure ABFull(var AB: array of byte);
23:
95: procedure ABBitOnPos(var AB: array of byte; POS: longint);
24:
98: procedure ABBitOnPosAtPos(var AB: array of byte; X, Start, Len: longint);
25:
104: procedure ABCopy(var A, B: array of byte);
26:
107: procedure ABTriPascal(var A, B: array of byte);
27:
115: procedure ABSet(var A: array of byte; B: array of byte);
28:
117: procedure ABSet2(var A: array of byte; B: array of byte);
29:
149: function ABCmp(var X, Y: array of byte): boolean;
30:
170: procedure ABSet(var A: array of byte; B: array of byte);
31:
179: procedure ABSet2(var A: array of byte; B: array of byte);
32:
187: procedure ABTriPascal(var A, B: array of byte);
33:
195: procedure ABCopy(var A, B: array of byte);
34:
207: function ABGetNext1(var AB: array of byte; ST: word): word;
35:
224: procedure ABClear(var AB: array of byte);
36:
232: procedure ABFull(var AB: array of byte);
37:
240: procedure ABAnd(var A, B: array of byte);
38:
248: function ABCountDif(var X, Y: array of byte): longint;
39:
260: function ABCountDifZero(var X: array of byte): longint;
40:
272: function ABGetEqual(var Equal, X, Y: array of byte): longint;
41:
289: procedure ABShiftLogicalLeft(var X: array of byte);
42:
299: procedure ABShiftLogicalRight(var X: array of byte);
43:
310: function ABGetDif(var Dif, X, Y: array of byte): longint;
44:
327: procedure ABBitOnPos(var AB: array of byte; POS: longint);
45:
333: procedure ABBitOnPosAtPos(var AB: array of byte; X, Start, Len: longint);
46:
366: function ABToString(var AB: array of byte): string;
47:
382: function ABToStringR(var AB: array of byte): string;
48:
413: procedure TABHash.Include(var S: array of byte);
49:
418: function TABHash.Test(var S: array of byte): boolean;
50:
335: procedure Create(Tests, FullEqual: boolean; var ERRORS: array of byte);
51:
628: function getNonZeroElementsPos(InputLen: integer; var InputData: array of byte; var OutputData: TPositionArray):integer;
52:
698: var ERRORS: array of byte);
53:
39: procedure BAClear(var VARS: array of byte);
54:
41: procedure BAMake1(var VARS: array of byte);
55:
43: function BARead(var A: array of byte; P: longint): byte;
56:
45: procedure BAFlip(var A: array of byte; P: longint);
57:
47: procedure BAWrite(var A: array of byte; P: longint; Data: byte);
58:
49: function BATest(var A: array of byte; P: longint): boolean;
59:
51: procedure BASum(var x, y: array of byte);
60:
53: procedure BASub(var x, y: array of byte);
61:
55: procedure BAIncPos(var x: array of byte; POS: longint);
62:
57: procedure BADecPos(var x: array of byte; POS: longint);
63:
59: procedure BAInc(var x: array of byte);
64:
61: procedure BADec(var x: array of byte);
65:
65: function BAToFloat(var VARS: array of byte): extended;
66:
67: procedure PFloatToBA(var VARS: array of byte; Valor: extended);
67:
69: procedure BANot(var VARS: array of byte);
68:
71: procedure BAAnd(var r, x, y: array of byte);
69:
73: procedure BAOr(var r, x, y: array of byte);
70:
75: procedure BAXOr(var r, x, y: array of byte);
71:
77: function BAGrater(var x, y: array of byte): boolean;
72:
79: function BALower(var x, y: array of byte): boolean;
73:
81: function BAEqual(var x, y: array of byte): boolean;
74:
83: procedure BAPMul(var r, x, y: array of byte);
75:
130: procedure BARAnd(var R, A, B: array of byte);
76:
procedure BAROr(var R, AUX, A, B: array of byte);
77:
procedure BARAnd(var R, A, B: array of byte);
78:
131: procedure BAROr(var R, AUX, A, B: array of byte);
79:
procedure BARNot(var R, A: array of byte);
80:
procedure BAROr(var R, AUX, A, B: array of byte);
81:
132: procedure BARNot(var R, A: array of byte);
82:
151: function BARead(var A: array of byte; P: longint): byte;
83:
163: procedure BAFlip(var A: array of byte; P: longint);
84:
174: function BATest(var A: array of byte; P: longint): boolean;
85:
204: procedure BAWrite(var A: array of byte; P: longint; Data: byte);
86:
216: procedure BAXOr(var r, x, y: array of byte);
87:
225: procedure BAOr(var r, x, y: array of byte);
88:
234: procedure BAAnd(var r, x, y: array of byte);
89:
243: procedure BANot(var VARS: array of byte);
90:
252: procedure BAClear(var VARS: array of byte);
91:
261: procedure BAMake1(var VARS: array of byte);
92:
279: procedure BASumWordPos(var X: array of byte; POS: longint; DADO: word);
93:
293: procedure BASum(var x, y: array of byte);
94:
306: procedure BASubBytePos(var X: array of byte; POS: longint; DADO: byte);
95:
325: procedure BASub(var x, y: array of byte);
96:
353: procedure BAIncPos(var x: array of byte; POS: longint);
97:
371: procedure BAInc(var x: array of byte);
98:
378: procedure BADecPos(var x: array of byte; POS: longint);
99:
396: procedure BADec(var x: array of byte);
100:
416: function BAGrater(var x, y: array of byte): boolean;
101:
432: function BALower(var x, y: array of byte): boolean;
102:
438: function BAEqual(var x, y: array of byte): boolean;
103:
452: procedure BANumFirstLast(var x: array of byte; var Num, First, Last: longint);
104:
544: procedure BAPMul(var r, x, y: array of byte);
105:
571: procedure BARAnd(var R, A, B: array of byte);
106:
577: procedure BAROr(var R, AUX, A, B: array of byte);
107:
589: procedure BARNot(var R, A: array of byte);
108:
731: function BAToFloat(var VARS: array of byte): extended;
109:
749: procedure PFloatToBA(var VARS: array of byte; Valor: extended);
110:
152: {input} var PActions: array of byte;
111:
{input} var pCurrentStates, pFoundStates: array of byte);
112:
{input} var PActions: array of byte;
113:
153: {input} var pCurrentStates, pFoundStates: array of byte);
114:
{output} var PNextStates: array of byte;
115:
167: {output} var PNextStates: array of byte;
116:
var PNextStates: array of byte; {states to be predicted}
117:
177: var PNextStates: array of byte; {states to be predicted}
118:
191: (var pFoundStates, pPredictedStates: array of byte;
119:
324: procedure Predict(var pActions, pCurrentState: array of byte;
120:
var pPredictedState: array of byte);
121:
procedure Predict(var pActions, pCurrentState: array of byte;
122:
325: var pPredictedState: array of byte);
123:
701: procedure TEasyLearnAndPredictClass.Predict(var pActions, pCurrentState: array of byte;
124:
var pPredictedState: array of byte);
125:
procedure TEasyLearnAndPredictClass.Predict(var pActions, pCurrentState: array of byte;
126:
702: var pPredictedState: array of byte);
127:
939: procedure TStatePredictionClass.UpdatePredictionStats(var PActions: array of byte;
128:
var pCurrentStates, pFoundStates: array of byte);
129:
procedure TStatePredictionClass.UpdatePredictionStats(var PActions: array of byte;
130:
940: var pCurrentStates, pFoundStates: array of byte);
131:
{output}var PNextStates: array of byte; var pRelationProbability: array of single;
132:
1225: {output}var PNextStates: array of byte; var pRelationProbability: array of single;
133:
1293: {input} PActions, PCurrentStates: array of byte; var PNextStates: array of byte;
134:
1396: var pFoundStates, pPredictedStates: array of byte;
135:
39: TProcPred = procedure(var ST: array of byte; Acao: byte) of object;
136:
133: procedure TCacheMem.Include(var ST, DTA: array of byte);
137:
166: function TCacheMem.ValidEntry(var ST: array of byte): boolean;
138:
176: function TCacheMem.Read(var ST, DTA: array of byte): longint;
139:
1626: procedure Compute(var pInput: array of byte);
140:
procedure Backpropagate(var pOutput: array of byte);
141:
procedure Compute(var pInput: array of byte);
142:
1627: procedure Backpropagate(var pOutput: array of byte);
143:
procedure GetOutput(var pOutput: array of byte);
144:
procedure Backpropagate(var pOutput: array of byte);
145:
1628: procedure GetOutput(var pOutput: array of byte);
146:
1655: procedure Predict(var pActions, pCurrentState: array of byte;
147:
var pPredictedState: array of byte);
148:
procedure Predict(var pActions, pCurrentState: array of byte;
149:
1656: var pPredictedState: array of byte);
150:
2460: procedure TNNetForByteProcessing.Compute(var pInput: array of byte);
151:
2466: procedure TNNetForByteProcessing.Backpropagate(var pOutput: array of byte);
152:
2472: procedure TNNetForByteProcessing.GetOutput(var pOutput: array of byte);
153:
13051: pCurrentState: array of byte; var pPredictedState: array of byte);
154:
43: TProcPred = function(var ST: array of byte; Action: byte): boolean of object;
155:
175: function ChooseBestPlanBasedOnNextStep(var CurrentState: array of byte): longint;
156:
178: function EvalPlanBasedOnNextStep(var CurrentState: array of byte;
157:
var FutureS: array of byte): boolean;
158:
207: var FutureS: array of byte): boolean;
159:
361: var FutureS: array of byte): boolean;
160:
409: var CurrentState: array of byte): longint;
161:
441: var CurrentState: array of byte; PlanIndex: longint): extended; // quanto maior, pior
162:
610: var TargetState: array of byte; currentState: array of byte;
163:
653: function ChooseRandomAction(var State: array of byte): integer;
164:
679: function ChooseActionIn1Step(var State: array of byte): integer;
165:
195: procedure Copy(var Original: array of byte); overload;
166:
267: procedure CopyAsBits(var Original: array of byte; pFlase: T = -0.5; pTrue: T = +0.5); overload;
167:
procedure ReadAsBits(var Dest: array of byte; Threshold: T = 0.0);
168:
procedure CopyAsBits(var Original: array of byte; pFlase: T = -0.5; pTrue: T = +0.5); overload;
169:
268: procedure ReadAsBits(var Dest: array of byte; Threshold: T = 0.0);
170:
3772: procedure TVolume.ReadAsBits(var Dest: array of byte; Threshold: T);
171:
3803: procedure TVolume.Copy(var Original: array of byte);
172:
3855: procedure TVolume.CopyAsBits(var Original: array of byte; pFlase: T = -0.5; pTrue: T = +0.5);
173:
73: RegisterMethod('Procedure Create( Tests, FullEqual : boolean; var ERRORS : array of byte)');
174:
83: RegisterMethod('Procedure Load( PCS : TCreateOperationSettings; var PActions, PCurrentStates, PNextStates : array of byte)');
175:
75: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)');
176:
RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)');
177:
125: RegisterMethod('Procedure UpdatePredictionStats( var PActions : array of byte; var pCurrentStates, pFoundStates : array of byte)');
178:
RegisterMethod('Procedure UpdatePredictionStats( var PActions : array of byte; var pCurrentStates, pFoundStates : array of byte)');
179:
RegisterMethod('Procedure Prediction( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)');
180:
127: RegisterMethod('Procedure Prediction( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)');
181:
RegisterMethod('Procedure PredictionProbability( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)');
182:
RegisterMethod('Procedure Prediction( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)');
183:
128: RegisterMethod('Procedure PredictionProbability( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)');
184:
131: RegisterMethod('Procedure UpdateNeuronVictories( var pFoundStates, pPredictedStates : array of byte; var pVictoryIndex : array of longint)');
185:
277: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)');
186:
RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)');
187:
291: RegisterMethod('Procedure Compute( var pInput : array of byte)');
188:
RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)');
189:
RegisterMethod('Procedure Compute( var pInput : array of byte)');
190:
292: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)');
191:
RegisterMethod('Procedure GetOutput( var pOutput : array of byte)');
192:
RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)');
193:
293: RegisterMethod('Procedure GetOutput( var pOutput : array of byte)');
194:
280: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)');
195:
RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)');
196:
294: RegisterMethod('Procedure Compute( var pInput : array of byte)');
197:
RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)');
198:
RegisterMethod('Procedure Compute( var pInput : array of byte)');
199:
295: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)');
200:
RegisterMethod('Procedure GetOutput( var pOutput : array of byte)');
201:
RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)');
202:
296: RegisterMethod('Procedure GetOutput( var pOutput : array of byte)');
203:
362: RegisterMethod('Procedure Copy42( var Original : array of byte);');
204:
424: RegisterMethod('Procedure CopyAsBits56( var Original : array of byte; pFlase : TNeuralFloat; pTrue : TNeuralFloat);');
205:
RegisterMethod('Procedure ReadAsBits( var Dest : array of byte; Threshold : TNeuralFloat)');
206:
RegisterMethod('Procedure CopyAsBits56( var Original : array of byte; pFlase : TNeuralFloat; pTrue : TNeuralFloat);');
207:
425: RegisterMethod('Procedure ReadAsBits( var Dest : array of byte; Threshold : TNeuralFloat)');
208:
820: Procedure TVolumeCopyAsBits56_P(Self: TVolume; var Original : array of byte; pFlase : T; pTrue : T);
209:
876: Procedure TVolumeCopy42_P(Self: TVolume; var Original : array of byte);
210:
154: procedure TForm2buffer_R(Self: THexForm2; var aT: array of byte);
211:
289: procedure TOscfrmMainframeSaveBuf_R(Self: TOscfrmMain; var T: array of byte);
mX4 executed: 28/10/2022 11:54:25 Runtime: 0:0:3.725 Memload: 38% use
we have to change each var Dest : array of byte to a var Dest : TBytes type for example RegisterMethod('Procedure ReadAsBits( var Dest : array of byte; Threshold : TNeuralFloat)'); to RegisterMethod('Procedure ReadAsBits( var Dest : TBytes; Threshold : TNeuralFloat)'); envlist:= Tstringlist.create; InStr:= filetostring(Exepath+'\Examples\vararrayofFilename_savereport.txt'); StrtoList(InStr, envlist, CR) writeln('envlist count: '+itoa(envlist.count)); cnt:= 0; regEx:= TRegExpr.create; //HISUtils.RegExpr; regEx.Expression:='var [\w+:\w:\w :,]+ array of byte'; // Execute search for it:= 0 to envlist.count-1 do if regEx.Exec(envlist[it]) then begin writeln(itoa(cnt)+':'+envlist[it]); inc(cnt) end;
regex.Free; envlist.Free;
0: 91: Procedure TIdUDPClientSendBufferAB(Self: TIdUDPClient; var AData: array of byte; const AByteCount: integer); 1: //Procedure TIdUDPClientSendBufferAB(Self: TIdUDPBase; var AData: array of byte; const AByteCount: integer); 2: Procedure TIdUDPClientSendBufferAB(Self: TIdUDPClient; var AData: array of byte; const AByteCount: integer); 3: 92: //Procedure TIdUDPClientSendBufferAB(Self: TIdUDPBase; var AData: array of byte; const AByteCount: integer); 4: 157: procedure BurnMemoryByteArray( var buff: array of byte; BuffLen: integer); 5: 1021: procedure ReadByteArray2(Self: TStream; var Buffer: array of byte; Count: Longint); 6: 1924: var mba: array of byte; //TBytearray; //array of byte; 7: 1681: var mba: array of byte; //TBytearray; //array of byte; 8: 46: procedure Include(var S: array of byte); 9: 49: function Test(var S: array of byte): boolean; 10: 56: function ABCmp(var X, Y: array of byte): boolean; 11: 59: function ABGetNext1(var AB: array of byte; ST: word): word; 12: 62: function ABCountDif(var X, Y: array of byte): longint; 13: 65: function ABCountDifZero(var X: array of byte): longint; 14: 68: procedure ABAnd(var A, B: array of byte); 15: 71: function ABGetEqual(var Equal, X, Y: array of byte): longint; 16: 74: procedure ABShiftLogicalLeft(var X: array of byte); 17: 77: procedure ABShiftLogicalRight(var X: array of byte); 18: 80: function ABGetDif(var Dif, X, Y: array of byte): longint; 19: 83: function ABToString(var AB: array of byte): string; 20: 86: function ABToStringR(var AB: array of byte): string; 21: 89: procedure ABClear(var AB: array of byte); 22: 92: procedure ABFull(var AB: array of byte); 23: 95: procedure ABBitOnPos(var AB: array of byte; POS: longint); 24: 98: procedure ABBitOnPosAtPos(var AB: array of byte; X, Start, Len: longint); 25: 104: procedure ABCopy(var A, B: array of byte); 26: 107: procedure ABTriPascal(var A, B: array of byte); 27: 115: procedure ABSet(var A: array of byte; B: array of byte); 28: 117: procedure ABSet2(var A: array of byte; B: array of byte); 29: 149: function ABCmp(var X, Y: array of byte): boolean; 30: 170: procedure ABSet(var A: array of byte; B: array of byte); 31: 179: procedure ABSet2(var A: array of byte; B: array of byte); 32: 187: procedure ABTriPascal(var A, B: array of byte); 33: 195: procedure ABCopy(var A, B: array of byte); 34: 207: function ABGetNext1(var AB: array of byte; ST: word): word; 35: 224: procedure ABClear(var AB: array of byte); 36: 232: procedure ABFull(var AB: array of byte); 37: 240: procedure ABAnd(var A, B: array of byte); 38: 248: function ABCountDif(var X, Y: array of byte): longint; 39: 260: function ABCountDifZero(var X: array of byte): longint; 40: 272: function ABGetEqual(var Equal, X, Y: array of byte): longint; 41: 289: procedure ABShiftLogicalLeft(var X: array of byte); 42: 299: procedure ABShiftLogicalRight(var X: array of byte); 43: 310: function ABGetDif(var Dif, X, Y: array of byte): longint; 44: 327: procedure ABBitOnPos(var AB: array of byte; POS: longint); 45: 333: procedure ABBitOnPosAtPos(var AB: array of byte; X, Start, Len: longint); 46: 366: function ABToString(var AB: array of byte): string; 47: 382: function ABToStringR(var AB: array of byte): string; 48: 413: procedure TABHash.Include(var S: array of byte); 49: 418: function TABHash.Test(var S: array of byte): boolean; 50: 335: procedure Create(Tests, FullEqual: boolean; var ERRORS: array of byte); 51: 628: function getNonZeroElementsPos(InputLen: integer; var InputData: array of byte; var OutputData: TPositionArray):integer; 52: 698: var ERRORS: array of byte); 53: 39: procedure BAClear(var VARS: array of byte); 54: 41: procedure BAMake1(var VARS: array of byte); 55: 43: function BARead(var A: array of byte; P: longint): byte; 56: 45: procedure BAFlip(var A: array of byte; P: longint); 57: 47: procedure BAWrite(var A: array of byte; P: longint; Data: byte); 58: 49: function BATest(var A: array of byte; P: longint): boolean; 59: 51: procedure BASum(var x, y: array of byte); 60: 53: procedure BASub(var x, y: array of byte); 61: 55: procedure BAIncPos(var x: array of byte; POS: longint); 62: 57: procedure BADecPos(var x: array of byte; POS: longint); 63: 59: procedure BAInc(var x: array of byte); 64: 61: procedure BADec(var x: array of byte); 65: 65: function BAToFloat(var VARS: array of byte): extended; 66: 67: procedure PFloatToBA(var VARS: array of byte; Valor: extended); 67: 69: procedure BANot(var VARS: array of byte); 68: 71: procedure BAAnd(var r, x, y: array of byte); 69: 73: procedure BAOr(var r, x, y: array of byte); 70: 75: procedure BAXOr(var r, x, y: array of byte); 71: 77: function BAGrater(var x, y: array of byte): boolean; 72: 79: function BALower(var x, y: array of byte): boolean; 73: 81: function BAEqual(var x, y: array of byte): boolean; 74: 83: procedure BAPMul(var r, x, y: array of byte); 75: 130: procedure BARAnd(var R, A, B: array of byte); 76: procedure BAROr(var R, AUX, A, B: array of byte); 77: procedure BARAnd(var R, A, B: array of byte); 78: 131: procedure BAROr(var R, AUX, A, B: array of byte); 79: procedure BARNot(var R, A: array of byte); 80: procedure BAROr(var R, AUX, A, B: array of byte); 81: 132: procedure BARNot(var R, A: array of byte); 82: 151: function BARead(var A: array of byte; P: longint): byte; 83: 163: procedure BAFlip(var A: array of byte; P: longint); 84: 174: function BATest(var A: array of byte; P: longint): boolean; 85: 204: procedure BAWrite(var A: array of byte; P: longint; Data: byte); 86: 216: procedure BAXOr(var r, x, y: array of byte); 87: 225: procedure BAOr(var r, x, y: array of byte); 88: 234: procedure BAAnd(var r, x, y: array of byte); 89: 243: procedure BANot(var VARS: array of byte); 90: 252: procedure BAClear(var VARS: array of byte); 91: 261: procedure BAMake1(var VARS: array of byte); 92: 279: procedure BASumWordPos(var X: array of byte; POS: longint; DADO: word); 93: 293: procedure BASum(var x, y: array of byte); 94: 306: procedure BASubBytePos(var X: array of byte; POS: longint; DADO: byte); 95: 325: procedure BASub(var x, y: array of byte); 96: 353: procedure BAIncPos(var x: array of byte; POS: longint); 97: 371: procedure BAInc(var x: array of byte); 98: 378: procedure BADecPos(var x: array of byte; POS: longint); 99: 396: procedure BADec(var x: array of byte); 100: 416: function BAGrater(var x, y: array of byte): boolean; 101: 432: function BALower(var x, y: array of byte): boolean; 102: 438: function BAEqual(var x, y: array of byte): boolean; 103: 452: procedure BANumFirstLast(var x: array of byte; var Num, First, Last: longint); 104: 544: procedure BAPMul(var r, x, y: array of byte); 105: 571: procedure BARAnd(var R, A, B: array of byte); 106: 577: procedure BAROr(var R, AUX, A, B: array of byte); 107: 589: procedure BARNot(var R, A: array of byte); 108: 731: function BAToFloat(var VARS: array of byte): extended; 109: 749: procedure PFloatToBA(var VARS: array of byte; Valor: extended); 110: 152: {input} var PActions: array of byte; 111: {input} var pCurrentStates, pFoundStates: array of byte); 112: {input} var PActions: array of byte; 113: 153: {input} var pCurrentStates, pFoundStates: array of byte); 114: {output} var PNextStates: array of byte; 115: 167: {output} var PNextStates: array of byte; 116: var PNextStates: array of byte; {states to be predicted} 117: 177: var PNextStates: array of byte; {states to be predicted} 118: 191: (var pFoundStates, pPredictedStates: array of byte; 119: 324: procedure Predict(var pActions, pCurrentState: array of byte; 120: var pPredictedState: array of byte); 121: procedure Predict(var pActions, pCurrentState: array of byte; 122: 325: var pPredictedState: array of byte); 123: 701: procedure TEasyLearnAndPredictClass.Predict(var pActions, pCurrentState: array of byte; 124: var pPredictedState: array of byte); 125: procedure TEasyLearnAndPredictClass.Predict(var pActions, pCurrentState: array of byte; 126: 702: var pPredictedState: array of byte); 127: 939: procedure TStatePredictionClass.UpdatePredictionStats(var PActions: array of byte; 128: var pCurrentStates, pFoundStates: array of byte); 129: procedure TStatePredictionClass.UpdatePredictionStats(var PActions: array of byte; 130: 940: var pCurrentStates, pFoundStates: array of byte); 131: {output}var PNextStates: array of byte; var pRelationProbability: array of single; 132: 1225: {output}var PNextStates: array of byte; var pRelationProbability: array of single; 133: 1293: {input} PActions, PCurrentStates: array of byte; var PNextStates: array of byte; 134: 1396: var pFoundStates, pPredictedStates: array of byte; 135: 39: TProcPred = procedure(var ST: array of byte; Acao: byte) of object; 136: 133: procedure TCacheMem.Include(var ST, DTA: array of byte); 137: 166: function TCacheMem.ValidEntry(var ST: array of byte): boolean; 138: 176: function TCacheMem.Read(var ST, DTA: array of byte): longint; 139: 1626: procedure Compute(var pInput: array of byte); 140: procedure Backpropagate(var pOutput: array of byte); 141: procedure Compute(var pInput: array of byte); 142: 1627: procedure Backpropagate(var pOutput: array of byte); 143: procedure GetOutput(var pOutput: array of byte); 144: procedure Backpropagate(var pOutput: array of byte); 145: 1628: procedure GetOutput(var pOutput: array of byte); 146: 1655: procedure Predict(var pActions, pCurrentState: array of byte; 147: var pPredictedState: array of byte); 148: procedure Predict(var pActions, pCurrentState: array of byte; 149: 1656: var pPredictedState: array of byte); 150: 2460: procedure TNNetForByteProcessing.Compute(var pInput: array of byte); 151: 2466: procedure TNNetForByteProcessing.Backpropagate(var pOutput: array of byte); 152: 2472: procedure TNNetForByteProcessing.GetOutput(var pOutput: array of byte); 153: 13051: pCurrentState: array of byte; var pPredictedState: array of byte); 154: 43: TProcPred = function(var ST: array of byte; Action: byte): boolean of object; 155: 175: function ChooseBestPlanBasedOnNextStep(var CurrentState: array of byte): longint; 156: 178: function EvalPlanBasedOnNextStep(var CurrentState: array of byte; 157: var FutureS: array of byte): boolean; 158: 207: var FutureS: array of byte): boolean; 159: 361: var FutureS: array of byte): boolean; 160: 409: var CurrentState: array of byte): longint; 161: 441: var CurrentState: array of byte; PlanIndex: longint): extended; // quanto maior, pior 162: 610: var TargetState: array of byte; currentState: array of byte; 163: 653: function ChooseRandomAction(var State: array of byte): integer; 164: 679: function ChooseActionIn1Step(var State: array of byte): integer; 165: 195: procedure Copy(var Original: array of byte); overload; 166: 267: procedure CopyAsBits(var Original: array of byte; pFlase: T = -0.5; pTrue: T = +0.5); overload; 167: procedure ReadAsBits(var Dest: array of byte; Threshold: T = 0.0); 168: procedure CopyAsBits(var Original: array of byte; pFlase: T = -0.5; pTrue: T = +0.5); overload; 169: 268: procedure ReadAsBits(var Dest: array of byte; Threshold: T = 0.0); 170: 3772: procedure TVolume.ReadAsBits(var Dest: array of byte; Threshold: T); 171: 3803: procedure TVolume.Copy(var Original: array of byte); 172: 3855: procedure TVolume.CopyAsBits(var Original: array of byte; pFlase: T = -0.5; pTrue: T = +0.5); 173: 73: RegisterMethod('Procedure Create( Tests, FullEqual : boolean; var ERRORS : array of byte)'); 174: 83: RegisterMethod('Procedure Load( PCS : TCreateOperationSettings; var PActions, PCurrentStates, PNextStates : array of byte)'); 175: 75: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)'); 176: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)'); 177: 125: RegisterMethod('Procedure UpdatePredictionStats( var PActions : array of byte; var pCurrentStates, pFoundStates : array of byte)'); 178: RegisterMethod('Procedure UpdatePredictionStats( var PActions : array of byte; var pCurrentStates, pFoundStates : array of byte)'); 179: RegisterMethod('Procedure Prediction( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)'); 180: 127: RegisterMethod('Procedure Prediction( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)'); 181: RegisterMethod('Procedure PredictionProbability( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)'); 182: RegisterMethod('Procedure Prediction( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)'); 183: 128: RegisterMethod('Procedure PredictionProbability( PActions, PCurrentStates : array of byte; var PNextStates : array of byte; var pRelationProbability : array of single; var pVictoryIndex : array of longint)'); 184: 131: RegisterMethod('Procedure UpdateNeuronVictories( var pFoundStates, pPredictedStates : array of byte; var pVictoryIndex : array of longint)'); 185: 277: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)'); 186: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)'); 187: 291: RegisterMethod('Procedure Compute( var pInput : array of byte)'); 188: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)'); 189: RegisterMethod('Procedure Compute( var pInput : array of byte)'); 190: 292: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)'); 191: RegisterMethod('Procedure GetOutput( var pOutput : array of byte)'); 192: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)'); 193: 293: RegisterMethod('Procedure GetOutput( var pOutput : array of byte)'); 194: 280: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)'); 195: RegisterMethod('Procedure Predict( var pActions, pCurrentState : array of byte; var pPredictedState : array of byte)'); 196: 294: RegisterMethod('Procedure Compute( var pInput : array of byte)'); 197: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)'); 198: RegisterMethod('Procedure Compute( var pInput : array of byte)'); 199: 295: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)'); 200: RegisterMethod('Procedure GetOutput( var pOutput : array of byte)'); 201: RegisterMethod('Procedure Backpropagate( var pOutput : array of byte)'); 202: 296: RegisterMethod('Procedure GetOutput( var pOutput : array of byte)'); 203: 362: RegisterMethod('Procedure Copy42( var Original : array of byte);'); 204: 424: RegisterMethod('Procedure CopyAsBits56( var Original : array of byte; pFlase : TNeuralFloat; pTrue : TNeuralFloat);'); 205: RegisterMethod('Procedure ReadAsBits( var Dest : array of byte; Threshold : TNeuralFloat)'); 206: RegisterMethod('Procedure CopyAsBits56( var Original : array of byte; pFlase : TNeuralFloat; pTrue : TNeuralFloat);'); 207: 425: RegisterMethod('Procedure ReadAsBits( var Dest : array of byte; Threshold : TNeuralFloat)'); 208: 820: Procedure TVolumeCopyAsBits56_P(Self: TVolume; var Original : array of byte; pFlase : T; pTrue : T); 209: 876: Procedure TVolumeCopy42_P(Self: TVolume; var Original : array of byte); 210: 154: procedure TForm2buffer_R(Self: THexForm2; var aT: array of byte); 211: 289: procedure TOscfrmMainframeSaveBuf_R(Self: TOscfrmMain; var T: array of byte); mX4 executed: 28/10/2022 11:54:25 Runtime: 0:0:3.725 Memload: 38% use