Code covered by the BSD License  

Highlights from
Logiciels temps réel

Logiciels temps réel

by

 

Real-time software concerning the domains of the signal processing, feedback and regulation

Kd_monte.m
P_PID(4,1)=P_PID(4,1)+P_PID(4,2);
schema_modele=get_param(gcs,'name');
bloc_Kd=[schema_modele,'/ValeurKd'];
set_param(bloc_Kd,'Kd',num2str(P_PID(4,1)))
set(MOG(1,7),'string',num2str(P_PID(4,1)))

if isinf(P_PID(4,1))
    P_PID(4,1)=P_PID(3,1)/DEF(1);
    P_PID(6,1)=0;
else
    if P_PID(3,1)==0
        P_PID(4,1)=0;
        P_PID(6,1)=0;
    else
        tau=P_PID(3,1)/P_PID(4,1);
        P_PID(6,1)=exp(-DEF(1)/tau);
    end;
end;
schema_modele=[get_param(gcs,'name'),'/Correcteur'];
bloc_pid=[schema_modele,'/PID'];
set_param(bloc_pid,'a',num2str(P_PID(6,1)))
 set_param(bloc_pid,'Kd',num2str(P_PID(4,1)))

Contact us