Converting waves into multiple waves

// an example wave
Make/O/N=(3) myWave = gnoise(1)
// show it
edit myWave
// transpose it
MatrixTranspose myWave
// generate the three waves
SplitWave/NAME=("treatmentA;treatmentB;treatmentC") myWave
// have a look at them
edit treatmentA,treatmentB,treatmentC

#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3     // Use modern global access method and strict wave access.
 
 
Macro poolanalysisfixFinal(EndStr)
 
String Endstr="sub"
prompt Endstr, "Enter match string here"
 
string  traceslist, currenttracename, dep, depolarization, IR
traceslist = Wavelist("*"+Endstr,";","")
 
 
variable traceindex=0
 
do
    currenttracename = StringFromList (traceindex, traceslist,  ";")
    if (strlen(currenttracename) == 0)
        break
    endif
    
    dep=currenttracename+"dep"
    duplicate/O $currenttracename $dep
    depolarization=currenttracename+"_T"
        
    Make/O/N=11 $depolarization 
    $depolarization[0] = mean($dep,pnt2x($dep,5),pnt2x($dep,302)) //baseline    
    $depolarization[1] = mean($dep,pnt2x($dep,328),pnt2x($dep,625)) //first depolarization
    $depolarization[2] = mean($dep,pnt2x($dep,651),pnt2x($dep,948))  //second depolarization
    $depolarization[3] = mean($dep,pnt2x($dep,974),pnt2x($dep,1271))  //third depolarization
    $depolarization[4] = mean($dep,pnt2x($dep,1297),pnt2x($dep,1594)) //fourth depolarization
    $depolarization[5] = mean($dep,pnt2x($dep,1620),pnt2x($dep,1917)) //fifth depolarization
    $depolarization[6] = mean($dep,pnt2x($dep,1943),pnt2x($dep,2240))  //sixth depolarization
    $depolarization[7] = mean($dep,pnt2x($dep,2359),pnt2x($dep,2656))  //seventh depolarization
    $depolarization[8] = mean($dep,pnt2x($dep,2775),pnt2x($dep,3072))  //eighth depolarization
    $depolarization[9] = mean($dep,pnt2x($dep,3191),pnt2x($dep,3488))  //ninth depolarization
    $depolarization[10] = mean($dep,pnt2x($dep,3607),pnt2x($dep,3904))  //tenth depolarization
 
    //making a wave to take the 6th and the 10th points corresponding to either IRP or RRPtotal
    //duplicate/O $currenttracename IRpools
    IR=currenttracename+"_I"
    Make/O/N=3 $IR
    
    $IR[0]= $depolarization[6]
    $IR[1]= $depolarization[10]-$depolarization[6]
    $IR[2]= $depolarization[10]
    
    MatrixTranspose $IR
    splitWave/O/NAME=("IRP;RRP;RRPtotal") $IR
    //Killwaves $IR
     
    //$PA[2]=3
    
 
    //calculating DCM for each depolarization step
    //$depolarization[0]=0
    $depolarization[10]=$depolarization[10]-$depolarization[9]
    $depolarization[9] =$depolarization[9]-$depolarization[8]
    $depolarization[8] =$depolarization[8]-$depolarization[7]
    $depolarization[7] =$depolarization[7]-$depolarization[6]
    $depolarization[6] =$depolarization[6]-$depolarization[5]
    $depolarization[5] =$depolarization[5]-$depolarization[4]
    $depolarization[4] =$depolarization[4]-$depolarization[3]
    $depolarization[3] =$depolarization[3]-$depolarization[2]
    $depolarization[2] =$depolarization[2]-$depolarization[1]
    $depolarization[1] =$depolarization[1]-$depolarization[0]
 
 
traceindex+=1
 
 
    print "traceindex = ",traceindex
    print currenttracename
    display $depolarization
 
        
while(1)
 
KillAllGraphs()
 
endmacro 
 
 
Function KillAllGraphs()  
   string fulllist = WinList("*", ";","WIN:1")
    string name, cmd
    variable i 
    for(i=0; i<itemsinlist(fulllist); i +=1)
        name= stringfromlist(i, fulllist)
        sprintf  cmd, "Dowindow/K %s", name
        execute cmd    
    endfor
end

// outside loop
String expr = ""
 
// inside your loop
    IR=currenttracename+"_I"
    Make/O/N=3 $IR
    $IR[0]= $depolarization[6]
    $IR[1]= $depolarization[10]-$depolarization[6]
    $IR[2]= $depolarization[10]
    
    expr = currenttracename + "_IRP;" + currenttracename + "_RRP;" + currenttracename + "_RRPtotal;"
    MatrixTranspose $IR
    SplitWave/O/NAME=expr $IR

Function test()
    // Creating this wave based on the picture
    Make/O/N=(3)/D wave1 = {1.02887e-14,4.15793e-14,5.1868e-14}
    
    Edit wave1.ld   // At this point we haven't set the dimension labels
    
    // Set the dimension labels
    SetDimLabel 0, 0, treatmentA, wave1
    SetDimLabel 0, 1, treatmentB, wave1
    SetDimLabel 0, 2, treatmentC, wave1
    
    
    // Example of how to use dimension labels
    // with a 1D wave
    print wave1[%treatmentB]    
    
    
    // At this point you have a 1D wave with 3 rows.
    // Maybe that's all you need?
    // If not, the next command makes
    // it a 2D wave with 1 row and 3 columns.
    MatrixTranspose wave1
    
    // Example of how to use dimension labels
    // with a 2D wave
    print wave1[0][%treatmentB]
End

 Variable IRP = $depolarization[6]
 Variable RRP = $depolarization[10]-$depolarization[6]
 Variable RRPtotal = $depolarization[10]