#pragma rtGlobals=3		// Use modern global access method and strict wave access.

Function DuplicateWaves()

// Duplicate waves from Iolite into Igor Root menu
	Duplicate ::output:Baseline_Subtract:As75_75_CPS ::::As75
	Duplicate ::output:Baseline_Subtract:sO75_91_CPS ::::AsO91
	Duplicate ::output:Baseline_Subtract:Fe56_56_CPS ::::Fe56
	Duplicate ::output:Baseline_Subtract:PO31_47_CPS ::::PO47
	Duplicate ::output:Baseline_Subtract:SO32_48_CPS ::::SO48
	Duplicate ::output:Baseline_Subtract:Cr52_52_CPS ::::Cr52
	Duplicate ::output:Baseline_Subtract:Co59_59_CPS ::::Co59
	Duplicate ::output:Baseline_Subtract:Ni60_60_CPS ::::Ni60
	Duplicate ::output:Baseline_Subtract:Cu65_65_CPS ::::Cu65
	Duplicate ::output:Baseline_Subtract:Sr88_88_CPS ::::Sr88
	Duplicate ::output:Baseline_Subtract:Y89_89_CPS ::::Y89
	Duplicate ::output:Baseline_Subtract:Gd157_157_CPS ::::Gd157

//Change wave scaling
	SetScale/P x 0,0.170,"seconds", ::::As75,::::AsO91,::::Fe56,::::PO47,::::SO48,::::Cr52,::::Co59,::::Ni60,::::Cu65,::::Sr88,::::Y89,::::Gd157

//Create graph of duplicated waves
	Display ::::Fe56,::::Cr52,::::Co59,::::Ni60,::::Cu65,::::Sr88,::::Y89,::::Gd157
	AppendToGraph/R ::::As75,::::AsO91,::::PO47,::::SO48
		SetAxis/A
		//Change graph appearance
		ModifyGraph rgb(As75)=(0,0,0),rgb(PO47)=(0,12800,52224),rgb(SO48)=(32768,40704,65280),rgb(Cr52)=(65280,0,0),rgb(Co59)=(52224,52224,0),rgb(Ni60)=(65280,16384,35840),lstyle(Cu65)=2,rgb(Cu65)=(0,0,65280),lstyle(Sr88)=2,rgb(Sr88)=(65280,16384,35840),lstyle(Y89)=2,rgb(Y89)=(52224,52224,0),lstyle(Gd157)=2,rgb(Gd157)=(0,0,0)
		ModifyGraph noLabel(bottom)=2
		Label left "Layer ID (counts·s\\S-1\\M)"
		Label right "Analyte (counts·s\\S-1\\M)"
		ModifyGraph tickUnit(bottom)=1
		
		//Add tags to identify conditions
		Tag/C/N=text0/F=0/X=0.00/Y=-8.00/L=1 Fe56, 7,"GasBlank"
		Tag/C/N=text1/F=0/X=0.00/Y=-8.00/L=1 Fe56, 307,"0.17 J·cm\\S-2"		
		Tag/C/N=text2/F=0/X=0.00/Y=-8.00/L=1 Fe56, 607,"0.80 J·cm\\S-2"
		Tag/C/N=text3/F=0/X=0.00/Y=-8.00/L=1 Fe56, 907,"2.46 J·cm\\S-2"
		Tag/C/N=text4/F=0/X=0.00/Y=-8.00/L=1 Fe56, 1207,"4.34 J·cm\\S-2"
		Tag/C/N=text5/F=0/X=0.00/Y=-8.00/L=1 Fe56, 1507,"6.42 J·cm\\S-2"
		Tag/C/N=text6/F=0/X=0.00/Y=-8.00/L=1 Fe56, 1807,"9.09 J·cm\\S-2"
		Tag/C/N=text7/F=0/X=0.00/Y=-8.00/L=1 Fe56, 2107,"12.05 J·cm\\S-2"
		
		//Add a legend
		Legend/C/N=text8/J/F=0/A=MC "\\s(Fe56) Fe56 \\s(Cr52) Cr52 \\s(Co59) Co59 \\s(Ni60) Ni60 \\s(Cu65) Cu65 \\s(Sr88) Sr88";DelayUpdate
		AppendText "\\s(Y89) Y89 \\s(Gd157) Gd157 \\s(As75) As75 \\s(AsO91) AsO91 \\s(PO47) PO47 \\s(SO48) SO48"
		Legend/C/N=text8/J/X=-30.00/Y=48.00
		
//Extract relevant sample periods and create waves for normalisation
	//As75
		Duplicate/R=[0,1768] ::::As75 ::::As75_Blank
			Duplicate ::::As75_Blank ::::As75_Blank_N
		Duplicate/R=[1770,3538] ::::As75 ::::As75_017
			Duplicate ::::As75_017 ::::As75_017_N
		Duplicate/R=[3540,5308] ::::As75 ::::As75_080
			Duplicate ::::As75_080 ::::As75_080_N
		Duplicate/R=[5310,7078] ::::As75 ::::As75_246
			Duplicate ::::As75_246 ::::As75_246_N
		Duplicate/R=[7080,8848] ::::As75 ::::As75_434
			Duplicate ::::As75_434 ::::As75_434_N
		Duplicate/R=[8850,10618] ::::As75 ::::As75_642
			Duplicate ::::As75_642::::As75_0642_N
		Duplicate/R=[10620,12388] ::::As75 ::::As75_909
			Duplicate ::::As75_909 ::::As75_909_N
		Duplicate/R=[12390,14158] ::::As75 ::::As75_1205
			Duplicate ::::As75_1205::::As75_1205_N
	//As75
		Duplicate/R=[0,1768] ::::AsO91 ::::AsO91_Blank
			Duplicate ::::AsO91_Blank ::::AsO91_Blank_N
		Duplicate/R=[1770,3538] ::::AsO91 ::::AsO91_017
			Duplicate ::::AsO91_017 ::::AsO91_017_N
		Duplicate/R=[3540,5308] ::::AsO91 ::::AsO91_080
			Duplicate ::::AsO91_080 ::::AsO91_080_N
		Duplicate/R=[5310,7078] ::::AsO91 ::::AsO91_246
			Duplicate ::::AsO91_246 ::::AsO91_246_N
		Duplicate/R=[7080,8848] ::::AsO91 ::::AsO91_434
			Duplicate ::::AsO91_434 ::::AsO91_434_N
		Duplicate/R=[8850,10618] ::::AsO91 ::::AsO91_642
			Duplicate ::::AsO91_642::::AsO91_0642_N
		Duplicate/R=[10620,12388] ::::AsO91 ::::AsO91_909
			Duplicate ::::AsO91_909 ::::AsO91_909_N
		Duplicate/R=[12390,14158] ::::AsO91 ::::AsO91_1205
			Duplicate ::::AsO91_1205::::AsO91_1205_N
	//Fe56
		Duplicate/R=[0,1768] ::::Fe56 ::::Fe56_Blank
			Duplicate ::::Fe56_Blank ::::Fe56_Blank_N
		Duplicate/R=[1770,3538] ::::Fe56 ::::Fe56_017
			Duplicate ::::Fe56_017 ::::Fe56_017_N
		Duplicate/R=[3540,5308] ::::Fe56 ::::Fe56_080
			Duplicate ::::Fe56_080 ::::Fe56_080_N
		Duplicate/R=[5310,7078] ::::Fe56 ::::Fe56_246
			Duplicate ::::Fe56_246 ::::Fe56_246_N
		Duplicate/R=[7080,8848] ::::Fe56 ::::Fe56_434
			Duplicate ::::Fe56_434 ::::Fe56_434_N
		Duplicate/R=[8850,10618] ::::Fe56 ::::Fe56_642
			Duplicate ::::Fe56_642::::Fe56_0642_N
		Duplicate/R=[10620,12388] ::::Fe56 ::::Fe56_909
			Duplicate ::::Fe56_909 ::::Fe56_909_N
		Duplicate/R=[12390,14158] ::::Fe56 ::::Fe56_1205
			Duplicate ::::Fe56_1205::::Fe56_1205_N
	//PO47
		Duplicate/R=[0,1768] ::::PO47 ::::PO47_Blank
			Duplicate ::::PO47_Blank ::::PO47_Blank_N
		Duplicate/R=[1770,3538] ::::PO47 ::::PO47_017
			Duplicate ::::PO47_017 ::::PO47_017_N
		Duplicate/R=[3540,5308] ::::PO47 ::::PO47_080
			Duplicate ::::PO47_080 ::::PO47_080_N
		Duplicate/R=[5310,7078] ::::PO47 ::::PO47_246
			Duplicate ::::PO47_246 ::::PO47_246_N
		Duplicate/R=[7080,8848] ::::PO47 ::::PO47_434
			Duplicate ::::PO47_434 ::::PO47_434_N
		Duplicate/R=[8850,10618] ::::PO47 ::::PO47_642
			Duplicate ::::PO47_642::::PO47_0642_N
		Duplicate/R=[10620,12388] ::::PO47 ::::PO47_909
			Duplicate ::::PO47_909 ::::PO47_909_N
		Duplicate/R=[12390,14158] ::::PO47 ::::PO47_1205
			Duplicate ::::PO47_1205::::PO47_1205_N	
	//SO48
		Duplicate/R=[0,1768] ::::SO48 ::::SO48_Blank
			Duplicate ::::SO48_Blank ::::SO48_Blank_N
		Duplicate/R=[1770,3538] ::::SO48 ::::SO48_017
			Duplicate ::::SO48_017 ::::SO48_017_N
		Duplicate/R=[3540,5308] ::::SO48 ::::SO48_080
			Duplicate ::::SO48_080 ::::SO48_080_N
		Duplicate/R=[5310,7078] ::::SO48 ::::SO48_246
			Duplicate ::::SO48_246 ::::SO48_246_N
		Duplicate/R=[7080,8848] ::::SO48 ::::SO48_434
			Duplicate ::::SO48_434 ::::SO48_434_N
		Duplicate/R=[8850,10618] ::::SO48 ::::SO48_642
			Duplicate ::::SO48_642::::SO48_0642_N
		Duplicate/R=[10620,12388] ::::SO48 ::::SO48_909
			Duplicate ::::SO48_909 ::::SO48_909_N
		Duplicate/R=[12390,14158] ::::SO48 ::::SO48_1205
			Duplicate ::::SO48_1205::::SO48_1205_N
	//Cr52
		Duplicate/R=[0,1768] ::::Cr52 ::::Cr52_Blank
			Duplicate ::::Cr52_Blank ::::Cr52_Blank_N
		Duplicate/R=[1770,3538] ::::Cr52 ::::Cr52_017
			Duplicate ::::Cr52_017 ::::Cr52_017_N
		Duplicate/R=[3540,5308] ::::Cr52 ::::Cr52_080
			Duplicate ::::Cr52_080 ::::Cr52_080_N
		Duplicate/R=[5310,7078] ::::Cr52 ::::Cr52_246
			Duplicate ::::Cr52_246 ::::Cr52_246_N
		Duplicate/R=[7080,8848] ::::Cr52 ::::Cr52_434
			Duplicate ::::Cr52_434 ::::Cr52_434_N
		Duplicate/R=[8850,10618] ::::Cr52 ::::Cr52_642
			Duplicate ::::Cr52_642::::Cr52_0642_N
		Duplicate/R=[10620,12388] ::::Cr52 ::::Cr52_909
			Duplicate ::::Cr52_909 ::::Cr52_909_N
		Duplicate/R=[12390,14158] ::::Cr52 ::::Cr52_1205
			Duplicate ::::Cr52_1205::::Cr52_1205_N
	//Co59
		Duplicate/R=[0,1768] ::::Co59 ::::Co59_Blank
			Duplicate ::::Co59_Blank ::::Co59_Blank_N
		Duplicate/R=[1770,3538] ::::Co59 ::::Co59_017
			Duplicate ::::Co59_017 ::::Co59_017_N
		Duplicate/R=[3540,5308] ::::Co59 ::::Co59_080
			Duplicate ::::Co59_080 ::::Co59_080_N
		Duplicate/R=[5310,7078] ::::Co59 ::::Co59_246
			Duplicate ::::Co59_246 ::::Co59_246_N
		Duplicate/R=[7080,8848] ::::Co59 ::::Co59_434
			Duplicate ::::Co59_434 ::::Co59_434_N
		Duplicate/R=[8850,10618] ::::Co59 ::::Co59_642
			Duplicate ::::Co59_642::::Co59_0642_N
		Duplicate/R=[10620,12388] ::::Co59 ::::Co59_909
			Duplicate ::::Co59_909 ::::Co59_909_N
		Duplicate/R=[12390,14158] ::::Co59 ::::Co59_1205
			Duplicate ::::Co59_1205::::Co59_1205_N
	//Ni60
		Duplicate/R=[0,1768] ::::Ni60 ::::Ni60_Blank
			Duplicate ::::Ni60_Blank ::::Ni60_Blank_N
		Duplicate/R=[1770,3538] ::::Ni60 ::::Ni60_017
			Duplicate ::::Ni60_017 ::::Ni60_017_N
		Duplicate/R=[3540,5308] ::::Ni60 ::::Ni60_080
			Duplicate ::::Ni60_080 ::::Ni60_080_N
		Duplicate/R=[5310,7078] ::::Ni60 ::::Ni60_246
			Duplicate ::::Ni60_246 ::::Ni60_246_N
		Duplicate/R=[7080,8848] ::::Ni60 ::::Ni60_434
			Duplicate ::::Ni60_434 ::::Ni60_434_N
		Duplicate/R=[8850,10618] ::::Ni60 ::::Ni60_642
			Duplicate ::::Ni60_642::::Ni60_0642_N
		Duplicate/R=[10620,12388] ::::Ni60 ::::Ni60_909
			Duplicate ::::Ni60_909 ::::Ni60_909_N
		Duplicate/R=[12390,14158] ::::Ni60 ::::Ni60_1205
			Duplicate ::::Ni60_1205::::Ni60_1205_N
	//Cu65
		Duplicate/R=[0,1768] ::::Cu65 ::::Cu65_Blank
			Duplicate ::::Cu65_Blank ::::Cu65_Blank_N
		Duplicate/R=[1770,3538] ::::Cu65 ::::Cu65_017
			Duplicate ::::Cu65_017 ::::Cu65_017_N
		Duplicate/R=[3540,5308] ::::Cu65 ::::Cu65_080
			Duplicate ::::Cu65_080 ::::Cu65_080_N
		Duplicate/R=[5310,7078] ::::Cu65 ::::Cu65_246
			Duplicate ::::Cu65_246 ::::Cu65_246_N
		Duplicate/R=[7080,8848] ::::Cu65 ::::Cu65_434
			Duplicate ::::Cu65_434 ::::Cu65_434_N
		Duplicate/R=[8850,10618] ::::Cu65 ::::Cu65_642
			Duplicate ::::Cu65_642::::Cu65_0642_N
		Duplicate/R=[10620,12388] ::::Cu65 ::::Cu65_909
			Duplicate ::::Cu65_909 ::::Cu65_909_N
		Duplicate/R=[12390,14158] ::::Cu65 ::::Cu65_1205
			Duplicate ::::Cu65_1205::::Cu65_1205_N
	//Sr88
		Duplicate/R=[0,1768] ::::Sr88 ::::Sr88_Blank
			Duplicate ::::Sr88_Blank ::::Sr88_Blank_N
		Duplicate/R=[1770,3538] ::::Sr88 ::::Sr88_017
			Duplicate ::::Sr88_017 ::::Sr88_017_N
		Duplicate/R=[3540,5308] ::::Sr88 ::::Sr88_080
			Duplicate ::::Sr88_080 ::::Sr88_080_N
		Duplicate/R=[5310,7078] ::::Sr88 ::::Sr88_246
			Duplicate ::::Sr88_246 ::::Sr88_246_N
		Duplicate/R=[7080,8848] ::::Sr88 ::::Sr88_434
			Duplicate ::::Sr88_434 ::::Sr88_434_N
		Duplicate/R=[8850,10618] ::::Sr88 ::::Sr88_642
			Duplicate ::::Sr88_642::::Sr88_0642_N
		Duplicate/R=[10620,12388] ::::Sr88 ::::Sr88_909
			Duplicate ::::Sr88_909 ::::Sr88_909_N
		Duplicate/R=[12390,14158] ::::Sr88 ::::Sr88_1205
			Duplicate ::::Sr88_1205::::Sr88_1205_N	
	//Y89
		Duplicate/R=[0,1768] ::::Y89 ::::Y89_Blank
			Duplicate ::::Y89_Blank ::::Y89_Blank_N
		Duplicate/R=[1770,3538] ::::Y89 ::::Y89_017
			Duplicate ::::Y89_017 ::::Y89_017_N
		Duplicate/R=[3540,5308] ::::Y89 ::::Y89_080
			Duplicate ::::Y89_080 ::::Y89_080_N
		Duplicate/R=[5310,7078] ::::Y89 ::::Y89_246
			Duplicate ::::Y89_246 ::::Y89_246_N
		Duplicate/R=[7080,8848] ::::Y89 ::::Y89_434
			Duplicate ::::Y89_434 ::::Y89_434_N
		Duplicate/R=[8850,10618] ::::Y89 ::::Y89_642
			Duplicate ::::Y89_642::::Y89_0642_N
		Duplicate/R=[10620,12388] ::::Y89 ::::Y89_909
			Duplicate ::::Y89_909 ::::Y89_909_N
		Duplicate/R=[12390,14158] ::::Y89 ::::Y89_1205
			Duplicate ::::Y89_1205::::Y89_1205_N	
	//Gd157
		Duplicate/R=[0,1768] ::::Gd157 ::::Gd157_Blank
			Duplicate ::::Gd157_Blank ::::Gd157_Blank_N
		Duplicate/R=[1770,3538] ::::Gd157 ::::Gd157_017
			Duplicate ::::Gd157_017 ::::Gd157_017_N
		Duplicate/R=[3540,5308] ::::Gd157 ::::Gd157_080
			Duplicate ::::Gd157_080 ::::Gd157_080_N
		Duplicate/R=[5310,7078] ::::Gd157 ::::Gd157_246
			Duplicate ::::Gd157_246 ::::Gd157_246_N
		Duplicate/R=[7080,8848] ::::Gd157 ::::Gd157_434
			Duplicate ::::Gd157_434 ::::Gd157_434_N
		Duplicate/R=[8850,10618] ::::Gd157 ::::Gd157_642
			Duplicate ::::Gd157_642::::Gd157_0642_N
		Duplicate/R=[10620,12388] ::::Gd157 ::::Gd157_909
			Duplicate ::::Gd157_909 ::::Gd157_909_N
		Duplicate/R=[12390,14158] ::::Gd157 ::::Gd157_1205
			Duplicate ::::Gd157_1205::::Gd157_1205_N				
		
//Normalise waves for easier visualisation
	//::::Fe56_Blank_N = ::::Fe56_Blank / mean(::::Fe56_Blank)
	//Duplicate ::::As75 ::::As75_N
	//Duplicate ::::AsO91 ::::AsO91_N
	//Duplicate ::::Fe56 ::::Fe56_N
	//Duplicate ::::PO47 ::::PO47_N
	//Duplicate ::::SO48 ::::SO48_N
	//Duplicate ::::Cr52 ::::Cr52_N
	//Duplicate ::::Co59 ::::Co59_N
	//Duplicate ::::Ni60 ::::Ni60_N
	//Duplicate ::::Cu65 ::::Cu65_N
	//Duplicate ::::Sr88 ::::Sr88_N
	//Duplicate ::::Y89 ::::Y89_N
	//Duplicate ::::Gd157 ::::Gd157_N
	
//Do normalisation of each wave to respective mean of wave
	//Display ::::Fe56_NORM
	//::::As75_NORM = As75 / mean(As75)
	//::::AsO91_NORM = AsO91 / mean(AsO91)
	//::::Fe56_NORM = Fe56 / mean(Fe56)
	//::::PO47_NORM = PO47 / mean(PO47)
	//::::SO48_NORM = SO48 / mean(SO48)
	//::::Cr52_NORM = Cr52 / mean(Cr52)
	//::::Co59_NORM = Co59 / mean(Co59)
	//::::Ni60_NORM = Ni60 / mean(Ni60)
	//::::Cu65_NORM = Cu65 / mean(Cu65)
	//::::Sr88_NORM = Sr88 / mean(Sr88)
	//::::Y89_NORM = Y89 / mean(Y89)
	//::::Gd157_NORM = Gd157 / mean(Gd157)

End