(*This notebook should do several relatively quick runs (O(minutes)) and then plot the results below. There should be two plots showing convergence and then a series of plots showing behavior in Lorentzian time. Some results should also be written to the file testruns_results.txt which could be read in again with VRead.*)

ClearAll["Global`*"];
Needs["Virasoro`"];

results1=VRun[30,1,3,0,200];
VConvByOrder[results1,10];
VConvByTL[results1];
results2=VRun["testruns.txt"];
VWrite[results2,"testruns_results.txt"];
VPlot[results1,StartTime->0.1,EndTime->30,Compare->"Semi"];
VPlot[results2,StartTime->0.1,EndTime->30,Compare->"Semi"];

Needs["Virasoro`"];

res1 = VRun[1.0001, 0.0625, 0.0625, 0, 20];

res1[[1]][[1]]

res2=VRun[1.0001, 0.0625, 0.0625, 0, 20];

res2[[2]][[4]]

VRun["testruns.txt"];