| Код |
Function Save_Network_Structure (save_file_name:string):string;
var
ii,jj,dd:integer;
fff1:string;
fff:file;
begin
K:=1;
for ii:=1 to input_neiro_q do
begin
for jj:=1 to neiro_q do
begin
temp_input_weight[ii,jj]:=input_weight[ii,jj,k];
end;
end;
for ii:=1 to neiro_q do
begin
for jj:=1 to neiro_q do
begin
for dd:=1 to layer_q do
begin
temp_weight_hidden_layer[ii,jj,dd]:=weight_hidden_layer[ii,jj,dd,k];
end;
end;
end;
for ii:=1 to neiro_q do
begin
temp_autput_weight[ii]:=output_weight[ii,k];
end;
//SIRAJA.neiro
fff1:=save_path + datetoStr(now) + '__' + IntToStr(k)+ save_file_name;
assignfile(fff,fff1);
rewrite(fff,5129251);
blockwrite (fff,layer_q,1);
blockwrite (fff,neiro_q,1);
blockwrite (fff,input_neiro_q,1);
blockwrite(fff,temp_input_weight,5120000);
blockwrite(fff,temp_weight_hidden_layer,9216);
blockwrite(fff,temp_autput_weight,32);
closefile(fff);
result := 'SAVED in ' + fff1;
end;
|
Vidaet owibku EInOutError I/O error 998
Добавлено через 34 секунды
 |
