{ Uklad RL Ut It dla cewki } TITLE "5_D1" COORDINATES cartesian1 VARIABLES U (threshold=0.01) , i (threshold=0.01) , Uz(threshold=0.01), ul (threshold=0.01) DEFINITIONS Tstart = -1 T1 = 0 T2 = 30 Tend = 40 Tstep = 0.1 r = 3 L = 2 Um = (upulse ( t- t1, t-t2) ) EQUATIONS Uz : Uz = Um i : dt( i ) = ( ( Uz - i*r ) / L ) * t /tend !i : dt(i) = ( ( Uz - line_integral( i, "test" )*r ) / L ) *t !i : dt(i) = ( ( Uz - i*r ) / L ) *t U : Uz - ul - (i*r) = 0 Ul : Ul = U - (i*r) !Ul : Ul = L *i BOUNDARIES REGION 1 START "test" ( Tstart ) LINE TO ( T1 ) LINE TO ( T2 ) LINE TO ( Tend ) MONITORS TIME tstart TO tend PLOTS FOR T=Tstart BY Tstep to Tend HISTORY( uz , u , i*r , ul , i ) AT ( 1 ) !window = 5 HISTORY( uz , u , i*r , ul , i ) AT ( 1 ) !window = 5 history( line_integral(i, "test") ) HISTORY( ul ) AT ( 1 ) HISTORY( uz,u,ul,i ) AT ( 1 ) WINDOW ( T1, T2 - 1 ) HISTORY( uz,u,ul,i ) AT ( 1 ) WINDOW ( T2-3 , Tend - 1 ) END