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

Дата: 2016-08-23

Добавлено: komatic

Тема: SCL

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)

Просмотров: 2377

Комментарии к материалу

Ваш будет первым.

Добавить комментарий