35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
load_file("nrngui.hoc")
|
|
|
|
strdef tstr
|
|
|
|
xpanel("Figures for Zhou et al 2005")
|
|
xlabel("Press a button to create the figure")
|
|
xradiobutton("Main simulation", "restart(\"MSO_Zhouetal_2005\")")
|
|
xradiobutton("Additional simulation", "restart(\"test_inputs\")")
|
|
xlabel("After you click on one of the above buttons you will be asked")
|
|
xlabel("to enter a number which will be used to seed the random number")
|
|
xlabel("generator. After you have entered the number please press the")
|
|
xlabel("\"Single Run\" button which will appear in a Control window")
|
|
xlabel("Note: the main simulation takes 3 1/4 minutes on a 2Ghz machine")
|
|
xlabel("and the additional simulation takes less than 15 seconds.")
|
|
xpanel(5,100)
|
|
|
|
pwmcnt = PWManager[0].count // the initial gui should not be dismissed
|
|
|
|
proc restart() {local i
|
|
objref graphItem, save_window_
|
|
for i=0, n_graph_lists-1 {
|
|
graphList[i].remove_all()
|
|
}
|
|
flush_list.remove_all()
|
|
fast_flush_list.remove_all()
|
|
doNotify()
|
|
for (i= PWManager[0].count-1; i >= pwmcnt; i -= 1) {
|
|
PWManager[0].close(i)
|
|
doNotify()
|
|
}
|
|
|
|
sprint(tstr, "%s.hoc", $s1)
|
|
load_file(1, tstr)
|
|
}
|