PCS7: FB1843 Model predictive controller APL V8.2+SP1
Äàòà: 2016-08-23
Äîáàâëåíî: komatic
Òåìà: SCL
Update äî âåðñèè 4.0
Ïðåäûäóùàÿ âåðñèÿ
Name: FB1843
Symbolic Name: ModPreCon
Symbol Comment: Model predictive controller
Family: Control
Version: 4.0
Author: AdvLib82
Last modified: 08/10/2015
Use: FB1444,SFB36,FC260,FC369,SFC20,SFC6
Size: 27040 bytes
Signature: generiert vom SCL Übersetzer Version: SCLCOMP K05.03.08.02_01.02.00.01 release
FOR laufy:=1 TO NumberCVs BY 1 DO IF PreFilt[laufy]>rSampleTime THEN alpha[laufy]:=EXP(-rSampleTime*INT_TO_REAL(ufaktor)*6.0/PreFilt[laufy]); ELSE; alpha[laufy]:=0.0; END_IF; w[(laufy-1)*np+1]:=CV[laufy]; FOR laufp:=2 TO np BY 1 DO w[(laufy-1)*np+laufp]:=(alpha[laufy]*w[(laufy-1)*np+laufp-1])+(1.0-alpha[laufy])*SP[laufy]; END_FOR; END_FOR; IF DB_Loaded THEN FOR laufy:=1 TO NumberCVs BY 1 DO FOR laufp:=1 TO np BY 1 DO faltungssumme:=0.0; FOR laufu:=1 TO NumberMVs BY 1 DO index1:=(laufu-1)*n; FOR lauf:=1 TO n BY 1 DO faltungssumme:=(g[laufy,laufu,laufp+lauf]-g[laufy,laufu,lauf])*duv[index1+lauf]+faltungssumme; END_FOR; END_FOR; IF DV_On THEN FOR laufu:=1 TO NumberDVs BY 1 DO index1:=(laufu-1)*n; FOR lauf:=1 TO n BY 1 DO faltungssumme:=(gz[laufy,laufu,laufp+lauf]-gz[laufy,laufu,lauf])*ddv[index1+lauf]+faltungssumme; END_FOR; END_FOR; END_IF; f[(laufy-1)*np+laufp]:=CV[laufy]+faltungssumme; END_FOR; END_FOR; END_IF;
Block checksum îðèãèíàëüíîãî è âîññòàíîâëåííîãî áëîêà ñîâïàäàåò.
Îðèãèíàëüíàÿ áèáëèîòåêà PCS7 (APL (V8.2sp1) (zip, 1.3Mb)
Äîêóìåíòàöèÿ íà áëîê (pdf, 21Mb)
Ïðîñìîòðîâ: 3749
Êîììåíòàðèè ê ìàòåðèàëó
Äîáàâëåí: Graeber Äàòà: 2019-01-13
Hi,
What's the chance to get the source code of this block ?
Thanks in advance
Graeber
Äîáàâèòü êîììåíòàðèé