История изменений

Исправление ~~curufinwe~~, 14.03.18 12:29 (текущая версия) :

Пока сделал так

Ks(x) = 1/(max((x-Upor)*(Kreg),0)+1);
Ksplus(x) = Upor - x*Upor;

lamp = main ~ _ : +(bias) : max(0) with {
        main(Uout,Uin) = (Ug * Ks(Ug) + Ksplus(Ks(Ug))) * Remax/(Remax+Rg) with {
            Ug = Uin - Uc letrec {
                'Uc = Uc + (Uin - Uc - Uout)/Rg/Cg*tau;
            };
        };
    };

Исходная версия ~~curufinwe~~, 14.03.18 12:28:

Пока сделал так

Ks(x) = 1/(max((x-Upor)*(Kreg),0)+1);
    Ksplus(x) = Upor - x*Upor;

    lamp = main ~ _ : +(bias) : max(0) with {
        main(Uout,Uin) = (Ug * Ks(Ug) + Ksplus(Ks(Ug))) * Remax/(Remax+Rg) with {
            Ug = Uin - Uc letrec {
                'Uc = Uc + (Uin - Uc - Uout)/Rg/Cg*tau;
            };
        };
    };