?DEF COL1x2 [IF] FORGET COL1x2 [THEN]

: COL1x2 ( F: x y -- x y' )
	FDROP  1 READ-values 2 READ-values F* ;

: COL2/1 ( F: x y -- x y' )
	FDROP  2 READ-values 1 READ-values F/ ;

: COL2 ( F: x y -- x y' ) ;

s" MPXS run-up curve"   set-1sttitle
0. 			set-ixline

0 TO X-col  s" Time [s]" set-hlabel

-- -----------------------------------------------------------------
graph-id# 4 =
  [IF] ( RESISTANCE )
	' COL2/1 IS USER-FUNC ( modify Y-col)
	s" Resistance"		set-2ndtitle
	1 TO Y-col  s" Rla"	set-vlabel
	0e 0e   25e ( sim_time) 400e ( R_max) dimensions
[THEN]
-- -----------------------------------------------------------------
graph-id# 3 =
  [IF] ( POWER )
	' COL1x2 IS USER-FUNC ( modify Y-col)
	s" Power"		set-2ndtitle
	1 TO Y-col  s" Pla"	set-vlabel
	0e 0e   25e ( sim_time) 100e ( Pla_max) dimensions
[THEN]
-- -----------------------------------------------------------------
graph-id# 2 =
  [IF] ( VLAMP )
	' COL2 IS USER-FUNC ( modify Y-col)
	s" Voltage"		set-2ndtitle
	2 TO Y-col  s" Vla"     set-vlabel
	0e 0e   25e ( sim_time) 160e ( Vla_max) dimensions
[THEN]
-- -----------------------------------------------------------------
graph-id# 1 =
  [IF]	( ILAMP )
	' COL2 IS USER-FUNC ( modify Y-col)
	s" Current"		set-2ndtitle
	1 TO Y-col  s" Ila"     set-vlabel
	0e 0e   25e ( sim_time) 4e ( Ila_max) dimensions
[THEN]
-- -----------------------------------------------------------------

250 POINTS
