Automated plotting of multiple waves using multiple axes

Share icon

Hello everyone,

I have a system which generates several channels of data, in multiples of 9. I've been writing small scripts to automate the process of reducing the data and histogramming them and so on. Now I'm a bit stuck in my attempts to make plots of the sets of 9 waves (see attached image), because I can't figure out a slick way of laying them out using a loop. So far I've been doing them manually but that is a terrible option now that my experiment is generating a lot of data.

In my automated version, I have the data in subfolders, and they all have the same name unlike in my example below.

Thanks in advance for any and all responses!

Display as "Histograms of the first 9 channels"
ModifyGraph width=800,height=800
 
AppendToGraph/L=l1/B=b1 chan_1_hist
ModifyGraph mode=6
ModifyGraph lstyle=0
ModifyGraph grid(l1)=1
ModifyGraph grid(b1)=0
ModifyGraph tick=3
ModifyGraph standoff=0
ModifyGraph log(l1)=1
ModifyGraph mirror(l1)=0
ModifyGraph fSize=14
ModifyGraph noLabel(l1)=0
SetAxis l1 1,5000
SetAxis b1 -500,12000
ModifyGraph freePos(l1)={-500,b1}
ModifyGraph axisEnab(l1)={0.66,1.00}
ModifyGraph freePos(b1)={0,l1}
ModifyGraph axisEnab(b1)={0,0.32}
ModifyGraph mirror(b1)=1
ModifyGraph noLabel(b1)=2
 
 
AppendToGraph/L=l2/B=b2 chan_3_hist
ModifyGraph mode=6
ModifyGraph lstyle=0
ModifyGraph grid(l2)=0
ModifyGraph grid(b2)=0
ModifyGraph tick=3
ModifyGraph standoff=0
ModifyGraph log(l2)=1
ModifyGraph mirror(l2)=1
ModifyGraph noLabel(l2)=2
SetAxis l2 1,5000
SetAxis b2 -500,12000
ModifyGraph freePos(l2)={-500,b2}
ModifyGraph axisEnab(l2)={0.66,1}
ModifyGraph freePos(b2)={0,l2}
ModifyGraph axisEnab(b2)={0.33,0.65}
ModifyGraph mirror(b2)=1
ModifyGraph noLabel(b2)=2
Here is a bare-bones function:
Function Graphs3by3(listofwaves)
    String listofwaves
 
    Display
    String gname = S_name
    
    Variable i
    for(i = 0; i < 9; i += 1)
        Variable row = floor(i/3)
        Variable col = mod(i, 3)
        
        String XAxisName = "X_"+num2str(col)
        String YAxisName = "Y_"+num2str(row)
        
        WAVE onewave = $(StringFromList(i, listofwaves))
        AppendToGraph/W=$gname/L=$YAxisName/B=$XAxisName onewave
    endfor
    DoUpdate
    for (i = 0; i < 3; i += 1)
        XAxisName = "X_"+num2str(i)
        YAxisName = "Y_"+num2str(i)
        Variable startfrac = i/3
        Variable endfrac = (i+1)/3
        ModifyGraph/W=$gname freePos($XAxisName)={0,kwFraction}
        ModifyGraph/W=$gname freePos($YAxisName)={0,kwFraction}
        DoUpdate
        ModifyGraph/W=$gname axisEnab($XAxisName) = {startfrac, endfrac}
        ModifyGraph/W=$gname axisEnab($YAxisName) = {startfrac, endfrac}
        DoUpdate
    endfor
end

It's not pretty. That's your job:)

John Weeks
WaveMetrics, Inc.
support@wavemetrics.com

November 19, 2013 at 10:59 am - Permalink

Thanks much, John! It's a great start and I'm now working on incorporating the data subfolder names and so on.

johnweeks wrote:
Here is a bare-bones function:
...
It's not pretty. That's your job:)

John Weeks
WaveMetrics, Inc.
support@wavemetrics.com

November 20, 2013 at 12:17 am - Permalink