#!/usr/bin/tclsh  

set d0 -3
set nd 31
set deltaList ""
for {set i 0} {$i<$nd} {incr i} {
    set delta [expr $d0+2.0*$i*abs($d0)/($nd-1)]
    lappend deltaList $delta
    puts stderr "Running delta = $delta %"
    catch {exec elegant twissDpTemplate.ele -macro=rootname=[format twissDp-%02d $i],delta=$delta} result
}

exec sddsmakedataset deltaValues.sdds -column=delta,type=double,units=% -data=[join $deltaList ,]
