\\  Solving Delay Differential Equations Using TACS-P2



{  Delayed FirstOrder Differential Equation
           dx/dt = -k*x(t-tau) 
}
       
pub  DDE1
     4 7 EULER  5 4 DELAY1  6 5 INV  7 1 K() 6 POT  ;
 
pub (DDE1)  
    4 NODES  10000 1 >K()  20 >DT  20 >COMINT
    650  >DN1  100000 >YO YO setDLY1
    4 YO   ASSIGN-IC    4 OUT-NODES   ;

REVECTOR model DDE1
REVECTOR output PLOTY
SETPAR
(DDE1)
gph2
CHECK

    4-  100000  
    5-  100000
    6-  -100000
    7-  -100000

800 SRUN
     tau Values:   1.0 > yellow  1.7  > white   


-