* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
Моделирование RLC цепи с применением Maplets интерфейса
( value=R*1000,lower=0,upper=1*1000, majorticks=100, minorticks=10,filled=true,onchange=COMMAND); LINE3 := "C (mF): ", Slider[C_]( value=C*1000, lower=0, upper=1*1000,majorticks=100, minorticks=10,filled=true, onchange=COMMAND); LINE4 := "q0: ",TextBox[q0_]( value=q0,onchange=COMMAND), "i0: ", TextBox[i0_]( value=i0, onchange=COMMAND ),"tf: ", TextBox[tf_]( value=tf, onchange=COMMAND ); LINE5 := "v(t): ",TextBox[v_](value=v,onchange=COMMAND), Button("Plot", COMMAND), Button("Close", Shutdown()); LINE6 := Plotter[p_](); WINDOW := Window[W_](OPTIONS,[[LINE1],[LINE2],[LINE3], [LINE4],[LINE5],[LINE6]]); MAPLET := Maplet(WINDOW); Display(MAPLET); end use; end proc:
1179
15.6.3. Организация связи между процедурой моделирования и Maplets интерфейсом
Следующая процедура служит для связи между процедурой моделирования RLC цепи и процедурой задания Maplets окна:
> lrc_simulate := proc() local L, R, C, q0, i0, tf, v, p; use Maplets[Tools] in L := Get( L_(value) :: algebraic, corrections=true R := Get( R_(value) :: algebraic, corrections=true C := Get( C_(value) :: algebraic, corrections=true L, R, C := (L, R, C)/1000; # i?aia?aciaaiea mH -> H, q0 := Get( q0_(value) :: algebraic, corrections=true i0 := Get( i0_(value) :: algebraic, corrections=true tf := Get( tf_(value) :: algebraic, corrections=true v := Get( v_(value) :: algebraic, corrections=true p := lrc(L, R, C, q0, i0, tf, v); Set( p_(value) = p ); end use; end proc:
); ); ); etc. ); ); ); );
В эту процедуру включены проверки на алгебраичность вводимых с Maplets окна параметров.
15.6.4. Моделирование RLC цепи в окне Maplets интерфейса
Теперь все готово к началу моделирования RLC цепи с применением Maplets ин терфейсного окна. Для этого достаточно исполнить команду
> lrc_maplet();