Âåðñèÿ äëÿ ïå÷àòè

PCS7: FB1843 Model predictive controller APL V8.2+SP1

Äàòà: 2016-08-23

Äîáàâëåíî: komatic

Òåìà: SCL



predict



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;   



predict

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

Äîáàâèòü êîììåíòàðèé

Âàøå èìÿ:

Òåêñò êîììåíòàðèÿ (4000 max):

Ââåäèòå ñóììó ñ êàðòèíêè: