* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

1178 Аналитическое и спектральное моделирование Рис. 15.54. Временные зависимости v(t) и i(t) при моделировании LCR цепи 15.6.2. Подготовка окна Maplets интерфейса Теперь зададимся целью построить окно Maplets интерфейса, имеющего следую щие детали: • поле для задания индуктивности L в mH; • слайдеры для задания резистивности R в mOhm и емкости C в mF; • поля для задания начальных значений q0 и i0 и конечного времени t; • поле для задания временной зависимости i(t) по умолчанию sin(10*t); • кнопки Plot для построения графиков временных зависимостей v(t) и i(t) и Close для закрытия окна; • подокно для отображения графиков временных зависимостей v(t) и i(t). Поскольку построение Maplets интерфейса уже было подробно описано, при ведем процедуру lrc_maplet, реализующую эти возможности: > lrc_maplet := proc() local OPTIONS, COMMAND, WINDOW, MAPLET,LINE1,LINE2,LINE3, LINE4, LINE5, LINE6, L, R, C, q0, i0, tf, v; use Maplets, Maplets[Elements] in L,R,C,q0,i0,tf:= 1/10,1/10,1/ 10,0,0,10; v := sin(10*t); OPTIONS:= title="RLC Circuit Simulator"; COMMAND:= Evaluate( function="lrc_simulate" ); LINE1:= "L(mH):",TextBox[L_](value=L*1000, onchange=COMMAND ); LINE2 := "R (mOhm): ",Slider[R_]