prompt function to customize axis labels - cosmetic question

Share icon

Hi. I didn't sleep much last night so this may be a boneheaded question, but I just can't think of it right now. So I wrote a macro to do a daily average of multiple days worth of data. The last part of the macro graphs the result. I have everything to label the axis' but I want to include units and want to prompt the user to enter the units. How would I call up text to use for it.
Code for graph is as follows...

<br />
Macro Makediurnal(JDayStr,wave2avgStr,waveAvgStr)<br />
    String JDayStr, wave2avgStr, waveAvgStr="my_avg"<br />
    prompt JDayStr, "JDay of the data for the diurnal?",popup SortList(WaveList("*",";",""), ";", 16)<br />
    prompt wave2avgStr, "Data for the diurnal?",popup SortList(WaveList("*",";",""), ";", 16)<br />
    prompt waveAvgStr, "Name to give the diurnal wave?"<br />
    <br />
    if (numpnts($JDayStr)!=numpnts($wave2avgStr))<br />
        Abort " The first two waves must have the same number of points."+JDayStr + " "+wave2avgStr+ " - Aborting from Macro"<br />
    endif       <br />
    <br />
    if (strlen(waveAvgStr)==0) <br />
        Abort "You need to insert values into the name prompts - Aborting from Macro"<br />
    endif<br />
<br />
    waveAvgStr = CleanUpName(waveAvgStr, 0)<br />
    Make/o/n=24 $waveAvgStr<br />
        <br />
    DoMakediurnal($JDayStr, $wave2avgStr, $waveAvgStr)<br />
<br />
        Rename sdev $waveAvgStr + "_sdev"<br />
        Display $waveAvgStr vs Hours<br />
        ModifyGraph mode=4,marker=16<br />
        Label left "Diurnal of " + NameofWave($wave2avgStr) + """insert units here???"""<br />
        Label bottom "Hour of Day"<br />
        ErrorBars $waveAvgStr Y,wave=($waveAvgStr + "_sdev",$waveAvgStr + "_sdev")<br />
 <br />
 End<br />
<br />
Function DoMakediurnal(JDay, wave2avg, waveAvg)<br />
    Wave JDay, wave2avg, waveAvg<br />
        <br />
        Make/D/N=24 Hours=0<br />
        Hours=Hours[p-1]+1<br />
        <br />
        Make/D/N=24 Day_Frac=Hours/24<br />
        <br />
        Duplicate JDay JDay_Frac<br />
        JDay_Frac=JDay-floor(JDay)<br />
        <br />
        Wave Hours,Day_Frac,JDay_frac<br />
        <br />
        waveAvg=mean_bin(Jday_Frac,wave2avg,Day_Frac)<br />
End<br />


mean_bin is an averaging function that returns waveAvg and sdev. What I want is to make a "units" string(?, or maybe label?) defined by the user that will insert into the label.
I would use a DoPrompt to ask for the label, set the units using SetScale to the wave itself and then use \U in the label to refer to the unit.

Example:
Function AskForLabel()

    string unitx = "m", unity = "s"
    Prompt unitx, "X unit"
    Prompt unity, "Y unit"
    DoPrompt "Please enter the units", unitx, unity
   
    Make/O data = enoise(p)

    SetScale/P x, DimOffset(data,0), DimDelta(data,0), unitx, data
    SetScale d, 0,0, unity, data
   
    Display data
    Label left   "Some y data [\U]"
    Label bottom "Some x data [\U]"
End

February 6, 2014 at 12:24 pm - Permalink