Changeset 930


Ignore:
Timestamp:
Apr 20, 2020 5:20:02 PM (2 years ago)
Author:
ilavsky
Message:

Fix for Igor 7.08

Location:
trunk/User Procedures
Files:
11 edited

Legend:

Unmodified
Added
Removed
  • trunk/User Procedures/Indra 2/IN2_GeneralProcedures.ipf

    r917 r930  
    1 #pragma rtGlobals=2             // Use modern global access method.
     1IN2G_FindNu#pragma rtGlobals=2          // Use modern global access method.
    22#pragma version = 2.22
    33#pragma IgorVersion = 7.05
     
    145145//Function IN2G_FindAVailableResultsGen(StringName, Foldername)
    146146//                      returns next available _XY number for results generation
    147 //Function/T IN2G_COnvertTextWaveToStringList(txWvIn)
     147//Function/T IN2G_ConvTextWaveToStringList(txWvIn)
    148148//                      this takes text wave and converts to list
    149149//
     
    681681//************************************************************************************************
    682682//************************************************************************************************
    683 threadsafe Function IN2G_FindNumericalIndexForSorting(StrnameIn)
     683threadsafe Function IN2G_FindNumIndxForSort(StrnameIn)
    684684        string StrnameIn
    685685        //finds - starting at the end - number, separated by _
     
    721721//************************************************************************************************
    722722
    723 Function/T IN2G_ConvertTextWaveToStringList(txtWvIn)
     723Function/T IN2G_ConvTextWaveToStringList(txtWvIn)
    724724        wave/T txtWvIn
    725725       
     
    39173917                topGraph=topGraphStr   
    39183918        endif
    3919 
     3919#if(IgorVersion()>=8)
    39203920        if(strlen(topGraph)>0)
    39213921                TraceNames=TraceNameList(topGraph,";",3)
     
    39293929                        endfor 
    39303930        endif
     3931#endif
    39313932end
    39323933
  • trunk/User Procedures/Irena/IR1_Main.ipf

    r926 r930  
    66//DO NOT renumber Main files every time, these are main release numbers...
    77//define manual date and release verison
    8 constant CurrentIrenaVersionNumber = 2.692
     8constant CurrentIrenaVersionNumber = 2.691
    99
    1010//*************************************************************************\
  • trunk/User Procedures/Irena/IR2_DataMiner.ipf

    r924 r930  
    146146                IR1_UpdatePanelVersionNumber("IR3B_MetadataBrowserPanel", IR3BversionNumber,1)
    147147        endif
    148         IR3C_MultiUpdateListOfAvailFiles("Irena:MetadataBrowser")
     148        IR3C_MultiUpdListOfAvailFiles("Irena:MetadataBrowser")
    149149end
    150150//**********************************************************************************************************
     
    558558        KillWindow/Z MetadataBrowsertempTable
    559559        if(GrepString(TempStrValues[0], "^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$"))            //this si number
    560                 Make/O/N=(numpnts(TempStrValues)) $(CleanupName(KeyName, 0, 25)+"TmpWv")
    561                 Wave ResultsWv=$(CleanupName(KeyName, 0, 25)+"TmpWv")
     560                Make/O/N=(numpnts(TempStrValues)) $(CleanupName(KeyName[0,25], 0)+"TmpWv")
     561                Wave ResultsWv=$(CleanupName(KeyName[0,25], 0)+"TmpWv")
    562562                ResultsWv = str2num(TempStrValues[p])
    563563                Display/W=(423,162,1293,747)/K=1/N=MetadataBrowserTempGraph ResultsWv as "Temporary display of selected parameter"
     
    568568                TimeInSeconds = IN2G_ConvertTimeStringToSecs(TempStrValues[0])
    569569                if(numtype(TimeInSeconds)==0)           //looks like time!
    570                         Make/O/N=(numpnts(TempStrValues)) $(CleanupName(KeyName, 0, 22)+"TmpTimeWv")
    571                         Wave ResultsTimeWv=$(CleanupName(KeyName, 0, 22)+"TmpTimeWv")
     570                        Make/O/N=(numpnts(TempStrValues)) $(CleanupName(KeyName[0,22], 0)+"TmpTimeWv")
     571                        Wave ResultsTimeWv=$(CleanupName(KeyName[0,22], 0)+"TmpTimeWv")
    572572                        ResultsTimeWv = IN2G_ConvertTimeStringToSecs(TempStrValues[p])
    573573                        Display/W=(423,162,1293,747)/K=1/N=MetadataBrowserTempGraph ResultsTimeWv as "Temporary display of selected parameter"
     
    576576                        Label bottom "Sample Order"
    577577                else            //ok, this is really string now...
    578                         Make/O/N=(numpnts(TempStrValues))/T $(CleanupName(KeyName, 0, 22)+"TmpStrWv")
    579                         Wave/T ResultsStrWv=$(CleanupName(KeyName, 0, 25)+"TmpStrWv")
     578                        Make/O/N=(numpnts(TempStrValues))/T $(CleanupName(KeyName[0,22], 0)+"TmpStrWv")
     579                        Wave/T ResultsStrWv=$(CleanupName(KeyName[0,22], 0)+"TmpStrWv")
    580580                        ResultsStrWv = TempStrValues[p]
    581581                        Edit/W=(423,162,902,874)/K=1/N=MetadataBrowsertempTable ResultsStrWv as "Temporary Display of selected parameter"
     
    621621                if(SelectionOfAvailableData[i])
    622622                        //print "Extracting data from "+ListOfAvailableData[i]
    623                         IR3B_ExtractMetadataFromOneFolder(ListOfAvailableData[i])
     623                        IR3B_ExtrMtdtFromOneFolder(ListOfAvailableData[i])
    624624                endif   
    625625        endfor
     
    628628//**********************************************************************************************************
    629629//**********************************************************************************************************
    630 static Function IR3B_ExtractMetadataFromOneFolder(FolderNameStr)
     630static Function IR3B_ExtrMtdtFromOneFolder(FolderNameStr)
    631631        string FolderNameStr
    632632
     
    705705                else            ///all others.
    706706                        if(GrepString(ValueString, "^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$"))         //this si number
    707                                 CleanKeyName = CleanupName(KeyString, 0, 31)
     707                                CleanKeyName = CleanupName(KeyString[0,31], 0)
    708708                                Wave/Z TmpWv=$(CleanKeyName)
    709709                                if(!WaveExists(TmpWv))
     
    716716                                TimeInSeconds = IN2G_ConvertTimeStringToSecs(ValueString)
    717717                                if(numtype(TimeInSeconds)==0)           //looks like time!
    718                                         CleanKeyName = CleanupName(KeyString, 0, 24)+"Time"
     718                                        CleanKeyName = CleanupName(KeyString[0,24], 0)+"Time"
    719719                                        Wave/Z TmpTimeWv=$(CleanKeyName)
    720720                                        if(!WaveExists(TmpStrWv))
     
    725725                                        TmpTimeWv[NumberOfExtractedItems] = TimeInSeconds
    726726                                else            //ok, this is really string now...
    727                                         CleanKeyName = CleanupName(KeyString, 0, 31)
     727                                        CleanKeyName = CleanupName(KeyString[0,31], 0)
    728728                                        Wave/Z/T TmpStrWv=$(CleanKeyName)
    729729                                        if(!WaveExists(TmpStrWv))
  • trunk/User Procedures/Irena/IR2_ModelingSupport.ipf

    r893 r930  
    13161316       
    13171317        //update the graph with displayed Mean mode etc...
    1318         IR2L_RemoveLocalGuinierPorodFits()
     1318        IR2L_RemLocalGuinPorodFits()
    13191319        IR2L_GraphSizeDistUpdate()
    13201320        IR2L_AppendOrRemoveLocalPopInts()
     
    13231323//*****************************************************************************************************************
    13241324//*****************************************************************************************************************
    1325 Function IR2L_RemoveLocalGuinierPorodFits()
     1325Function IR2L_RemLocalGuinPorodFits()
    13261326        //remove Local fits from LSQF_MainGraph
    13271327        string ListOFDisplayedWave=TraceNameList("LSQF_MainGraph", ";", 5)
  • trunk/User Procedures/Irena/IR2_PanelCntrlProcs.ipf

    r917 r930  
    29302930        elseif(StringMatch(DataSelSortString, "Sort _XYZ" ))
    29312931                        //For(i=0;i<numpnts(TempWv);i+=1)
    2932                 TempWv = IN2G_FindNumericalIndexForSorting(WaveOfFiles[p])
     2932                TempWv = IN2G_FindNumIndxForSort(WaveOfFiles[p])
    29332933                        //TempWv[i] = str2num(StringFromList(ItemsInList(WaveOfFiles[i]  , "_")-1, WaveOfFiles[i]  , "_"))
    29342934                        //endfor
     
    29362936        elseif(StringMatch(DataSelSortString, "Inv Sort _XYZ" ))
    29372937                        //For(i=0;i<numpnts(TempWv);i+=1)
    2938                 TempWv = IN2G_FindNumericalIndexForSorting(WaveOfFiles[p])
     2938                TempWv = IN2G_FindNumIndxForSort(WaveOfFiles[p])
    29392939                        //TempWv[i] = str2num(StringFromList(ItemsInList(WaveOfFiles[i]  , "_")-1, WaveOfFiles[i]  , "_"))
    29402940                        //endfor
     
    36533653                case 2: // Enter key
    36543654                        if(stringmatch(sva.ctrlName,"FolderNameMatchString")||stringmatch(sva.ctrlName,"genericXgrepString")||stringmatch(sva.ctrlName,"genericYgrepString")||stringmatch(sva.ctrlName,"genericEgrepString"))
    3655                                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocation)
     3655                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
    36563656                        endif
    36573657                break
     
    36973697
    36983698                        if(stringmatch(cba.ctrlName,"InvertGrepSearch"))
    3699                                         IR3C_MultiUpdateListOfAvailFiles(CntrolLocationShort)   
     3699                                        IR3C_MultiUpdListOfAvailFiles(CntrolLocationShort)     
    37003700                        endif
    37013701                        if(stringmatch(cba.ctrlName,"UseIndra2Data"))
     
    37053705                                endif
    37063706                                IR3C_MultiFixPanelControls(TopPanel,CntrolLocationShort)       
    3707                                 //IR3C_MultiUpdateListOfAvailFiles(CntrlLocation)
     3707                                //IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
    37083708                        endif
    37093709                        if(stringmatch(cba.ctrlName,"UseResults"))
     
    37133713                                endif
    37143714                                IR3C_MultiFixPanelControls(TopPanel,CntrolLocationShort)       
    3715                                 //IR3C_MultiUpdateListOfAvailFiles(CntrlLocation)
     3715                                //IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
    37163716                        endif
    37173717                        if(stringmatch(cba.ctrlName,"UseQRSData"))
     
    37213721                                endif
    37223722                                IR3C_MultiFixPanelControls(TopPanel,CntrolLocationShort)       
    3723                                 //IR3C_MultiUpdateListOfAvailFiles(CntrlLocation)
     3723                                //IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
    37243724                        endif
    37253725                        if(stringmatch(cba.ctrlName,"UseQRSData")||stringmatch(cba.ctrlName,"UseIndra2Data")||stringmatch(cba.ctrlName,"UseResults"))
    37263726                                DataStartFolder = "root:"
    37273727                                PopupMenu StartFolderSelection,win=$(TopPanel), mode=1,popvalue="root:"
    3728                                 IR3C_MultiUpdateListOfAvailFiles(CntrolLocationShort)
     3728                                IR3C_MultiUpdListOfAvailFiles(CntrolLocationShort)
    37293729                        endif
    37303730                        break
     
    38163816                SVAR StartFolderName=$(CntrlLocation+":DataStartFolder")
    38173817                StartFolderName = popStr
    3818                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocationShort)
     3818                IR3C_MultiUpdListOfAvailFiles(CntrlLocationShort)
    38193819        endif
    38203820        if(stringmatch(ctrlName,"SortFolders"))
     
    38223822                SVAR FolderSortString = $(CntrlLocation+":FolderSortString")
    38233823                FolderSortString = popStr
    3824                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocationShort)
     3824                IR3C_MultiUpdListOfAvailFiles(CntrlLocationShort)
    38253825        endif
    38263826        if(stringmatch(ctrlName,"SubTypeData"))
     
    38283828                SVAR DataSubType = $(CntrlLocation+":DataSubType")
    38293829                DataSubType = popStr
    3830                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocationShort)
     3830                IR3C_MultiUpdListOfAvailFiles(CntrlLocationShort)
    38313831        endif
    38323832        if(stringmatch(ctrlName,"ToolResultsSelector"))
     
    38373837                SVAR SelectedResultsType=$(CntrlLocation+":SelectedResultsType")
    38383838                SelectedResultsType = stringFromList(0,ListOfAvailableResults)
    3839                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocationShort)
     3839                IR3C_MultiUpdListOfAvailFiles(CntrlLocationShort)
    38403840        endif
    38413841        if(stringmatch(ctrlName,"ResultsTypeSelector"))
     
    38433843                SVAR SelectedResultsType=$(CntrlLocation+":SelectedResultsType")
    38443844                SelectedResultsType = popStr
    3845                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocationShort)
     3845                IR3C_MultiUpdListOfAvailFiles(CntrlLocationShort)
    38463846        endif
    38473847        if(stringmatch(ctrlName,"ResultsGenerationToUse"))
     
    38493849                SVAR ResultsGenerationToUse=$(CntrlLocation+":ResultsGenerationToUse")
    38503850                ResultsGenerationToUse = popStr
    3851                 IR3C_MultiUpdateListOfAvailFiles(CntrlLocationShort)
     3851                IR3C_MultiUpdListOfAvailFiles(CntrlLocationShort)
    38523852        endif
    38533853        setDataFolder OldDf
     
    38593859//**************************************************************************************
    38603860//**************************************************************************************
    3861 Function IR3C_MultiUpdateListOfAvailFiles(CntrlLocationG)
     3861Function IR3C_MultiUpdListOfAvailFiles(CntrlLocationG)
    38623862        string CntrlLocationG
    38633863
     
    39283928        endif
    39293929        SelectionOfAvailableData = 0
    3930         IR3C_MultiSortListOfAvailableFldrs(CntrlLocation)
     3930        IR3C_MultiSortListOfAvailFldrs(CntrlLocation)
    39313931        setDataFolder OldDF
    39323932end
     
    39353935//**************************************************************************************
    39363936//**************************************************************************************
    3937 Function IR3C_MultiSortListOfAvailableFldrs(CntrlLocation)
     3937Function IR3C_MultiSortListOfAvailFldrs(CntrlLocation)
    39383938        string CntrlLocation
    39393939       
     
    39593959        elseif(stringMatch(FolderSortString,"_xyz")&&(numpnts(ListOfAvailableData)>2))
    39603960                        //For(i=0;i<numpnts(TempWv);i+=1)
    3961                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[i])
     3961                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[i])
    39623962                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    39633963                        //endfor
     
    40564056        elseif(stringMatch(FolderSortString,"Reverse _xyz"))
    40574057                        //For(i=0;i<numpnts(TempWv);i+=1)
    4058                         TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[p])
     4058                        TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[p])
    40594059                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    40604060                        //endfor
     
    41464146                        make/N=0/FREE/T ResultingWave
    41474147                        IR2P_FindFolderWithWaveTypesWV(StartFolder, 10, genericXgrepString, 1, ResultingWave)           //these folder should match X grep string
    4148                         IR3C_SelectFolderWithWaveMatching(ResultingWave,genericYgrepString)                                                             //these should match Y grep string
     4148                        IR3C_SelectFldrWithWaveMatch(ResultingWave,genericYgrepString)                                                          //these should match Y grep string
    41494149                        //ignore E string for now, assume we can use just X/Y
    4150                         result=IN2G_COnvertTextWaveToStringList(ResultingWave)
     4150                        result=IN2G_ConvTextWaveToStringList(ResultingWave)
    41514151        endif
    41524152        if(stringmatch(";",result[0]))
     
    41594159//*****************************************************************************************************************
    41604160//*****************************************************************************************************************
    4161 Function IR3C_SelectFolderWithWaveMatching(WaveOfFolders,grepStringS)
     4161Function IR3C_SelectFldrWithWaveMatch(WaveOfFolders,grepStringS)
    41624162                        wave/T WaveOfFolders
    41634163                        string grepStringS
  • trunk/User Procedures/Irena/IR2_ScriptingTool.ipf

    r903 r930  
    658658        elseif(stringMatch(FolderSortString,"_xyz"))
    659659                        //For(i=0;i<numpnts(TempWv);i+=1)
    660                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[p])
     660                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[p])
    661661                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    662662                        //endfor
     
    664664        elseif(stringMatch(FolderSortString,"Reverse _xyz"))
    665665                        //For(i=0;i<numpnts(TempWv);i+=1)
    666                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[i])
     666                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[i])
    667667                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    668668                        //endfor
  • trunk/User Procedures/Irena/IR3_MergingData.ipf

    r908 r930  
    14561456        elseif(stringMatch(FolderSortString,"_xyz"))
    14571457                        //For(i=0;i<numpnts(TempWv);i+=1)
    1458                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[i])
     1458                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[i])
    14591459                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    14601460                        //endfor
     
    15631563        elseif(stringMatch(FolderSortString,"Reverse _xyz"))
    15641564                        //For(i=0;i<numpnts(TempWv);i+=1)
    1565                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[i])
     1565                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[i])
    15661566                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    15671567                        //endfor
  • trunk/User Procedures/Irena/IR3_MultiDataPlot.ipf

    r924 r930  
    3636                IR3L_SetStartConditions()
    3737        endif
    38         IR3C_MultiUpdateListOfAvailFiles("Irena:MultiSamplePlot")
     38        IR3C_MultiUpdListOfAvailFiles("Irena:MultiSamplePlot")
    3939end
    4040//**********************************************************************************************************
  • trunk/User Procedures/Irena/IR3_SimpleFits.ipf

    r925 r930  
    6363                ING2_AddScrollControl()
    6464                IR1_UpdatePanelVersionNumber("IR3J_SimpleFitsPanel", IR3JversionNumber,1)
    65                 IR3C_MultiUpdateListOfAvailFiles("Irena:SimpleFits")   
     65                IR3C_MultiUpdListOfAvailFiles("Irena:SimpleFits")       
    6666        endif
    6767        IR3J_CreateCheckGraphs()
     
    19031903                                DoWIndow/F IR3J_GuinierRodFitResultsTable
    19041904                        else
    1905                                 IR3J_GuinierRodFitResultsTableFnct()
     1905                                IR3J_GuinRodFitResTblFnct()
    19061906                        endif           
    19071907                        break           // exit from switch
    19081908                case "Guinier Sheet":   // execute if case matches expression
    1909                         DoWindow IR3J_GuinierSheetFitResultsTable
     1909                        DoWindow IR3J_GuinierSheetFitResTable
    19101910                        if(V_Flag)
    1911                                 DoWIndow/F IR3J_GuinierSheetFitResultsTable
     1911                                DoWIndow/F IR3J_GuinierSheetFitResTable
    19121912                        else
    1913                                 IR3J_GuinierSheetFitResultsTableFnct()
     1913                                IR3J_GuinSheetFitResTblFnct()
    19141914                        endif           
    19151915                        break           // exit from switch
     
    19271927                                DoWindow/F IR3J_SphereFFFitResultsTable
    19281928                        else
    1929                                 IR3J_SphereFFFitResultsTableFnct()
     1929                                IR3J_SphFFFitResTblFnct()
    19301930                        endif
    19311931                        break
     
    19351935                                DoWindow/F IR3J_SpheroidFFFitResultsTable
    19361936                        else
    1937                                 IR3J_SpheroidFFFitResultsTableFnct()
     1937                                IR3J_SpheroidFFFitResTblFnct()
    19381938                        endif
    19391939                        break
     
    19681968                                break           // exit from switch
    19691969                        case "Guinier Sheet":   // execute if case matches expression
    1970                                 DoWindow/K/Z IR3J_GuinierSheetFitResultsTable
     1970                                DoWindow/K/Z IR3J_GuinierSheetFitResTable
    19711971                                KillDataFolder/Z root:GuinierSheetFitResults:
    19721972                                if(V_Flag!=0)
     
    20252025EndMacro
    20262026//*****************************************************************************************************************
    2027 static Function IR3J_GuinierRodFitResultsTableFnct() : Table
     2027static Function IR3J_GuinRodFitResTblFnct() : Table
    20282028        PauseUpdate; Silent 1           // building window...
    20292029        IN2G_PrintDebugStatement(IrenaDebugLevel, 5,"")
     
    20472047EndMacro
    20482048//*****************************************************************************************************************
    2049 static Function IR3J_GuinierSheetFitResultsTableFnct() : Table
     2049static Function IR3J_GuinSheetFitResTblFnct() : Table
    20502050        PauseUpdate; Silent 1           // building window...
    20512051        IN2G_PrintDebugStatement(IrenaDebugLevel, 5,"")
     
    20572057        Wave/T SampleName
    20582058        Wave GuinierTh,GuinierI0,GuinierChiSquare,GuinierQmax,GuinierQmin
    2059         Edit/K=1/W=(860,772,1831,1334)/N=IR3J_GuinierSheetFitResultsTable SampleName,GuinierTh,GuinierI0,GuinierChiSquare,GuinierQmax as "Guinier Sheet fitting results Table"
     2059        Edit/K=1/W=(860,772,1831,1334)/N=IR3J_GuinierSheetFitResTable SampleName,GuinierTh,GuinierI0,GuinierChiSquare,GuinierQmax as "Guinier Sheet fitting results Table"
    20602060        AppendToTable GuinierQmin
    20612061        ModifyTable format(Point)=1,width(SampleName)=304,title(SampleName)="Sample Folder"
     
    20922092EndMacro
    20932093//*****************************************************************************************************************
    2094 Function IR3J_SphereFFFitResultsTableFnct() : Table
     2094Function IR3J_SphFFFitResTblFnct() : Table
    20952095        PauseUpdate; Silent 1           // building window...
    20962096        IN2G_PrintDebugStatement(IrenaDebugLevel, 5,"")
     
    21162116//*****************************************************************************************************************
    21172117
    2118 Function IR3J_SpheroidFFFitResultsTableFnct() : Table
     2118Function IR3J_SpheroidFFFitResTblFnct() : Table
    21192119        PauseUpdate; Silent 1           // building window...
    21202120        IN2G_PrintDebugStatement(IrenaDebugLevel, 5,"")
  • trunk/User Procedures/Irena/IR3_WAXSDiffraction.ipf

    r903 r930  
    563563        elseif(stringMatch(FolderSortString,"_xyz"))
    564564                        //For(i=0;i<numpnts(TempWv);i+=1)
    565                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[i])
     565                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[i])
    566566                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    567567                        //endfor
     
    714714        elseif(stringMatch(FolderSortString,"Reverse _xyz"))
    715715                        //For(i=0;i<numpnts(TempWv);i+=1)
    716                 TempWv = IN2G_FindNumericalIndexForSorting(ListOfAvailableData[i])
     716                TempWv = IN2G_FindNumIndxForSort(ListOfAvailableData[i])
    717717                        //TempWv[i] = str2num(StringFromList(ItemsInList(ListOfAvailableData[i]  , "_")-1, ListOfAvailableData[i]  , "_"))
    718718                        //endfor
  • trunk/User Procedures/Irena/IRB1_bioSAXS.ipf

    r925 r930  
    22#pragma rtGlobals=3             // Use modern global access method and strict wave access.
    33#pragma version=0.1
    4 #pragma IgorVersion = 8.03
     4#pragma IgorVersion = 7.08
    55
    66
     
    1010//* in the file LICENSE that is included with this distribution.
    1111//*************************************************************************/
    12 constant IRB1_ImportBioSAXSASCIIDataVersion = 0.1                       //IRB1_ImportBioSAXSASCIIData tool version number.
     12constant IRB1_ImpBioSAXSASCIIVer = 0.1                  //IRB1_ImportBioSAXSASCIIData tool version number.
    1313constant IRB1_DataManipulation = 0.1                                                    //IRB1_DataManipulation tool version number.
    1414constant IRB1_SetVariableStepScaling = 0.01                                     //this is fraction of the value to which the step in SetVariable is set. 
     
    5252                IRB1_ImportBioSAXSASCIIDataFnct()
    5353                ING2_AddScrollControl()
    54                 IR1_UpdatePanelVersionNumber("IRB1_ImportBioSAXSASCIIData", IRB1_ImportBioSAXSASCIIDataVersion,1)
    55         endif
    56 end
    57 //************************************************************************************************************
    58 Function IRB1_ImportASCIIMainCheckVersion()     
     54                IR1_UpdatePanelVersionNumber("IRB1_ImportBioSAXSASCIIData", IRB1_ImpBioSAXSASCIIVer,1)
     55        endif
     56end
     57//************************************************************************************************************
     58Function IRB1_ImpASCIIMainCheckVer()   
    5959        DoWindow IR1I_ImportBioSAXSASCIIData
    6060        if(V_Flag)
    61                 if(!IR1_CheckPanelVersionNumber("IR1I_ImportBioSAXSASCIIData", IRB1_ImportBioSAXSASCIIDataVersion))
     61                if(!IR1_CheckPanelVersionNumber("IR1I_ImportBioSAXSASCIIData", IRB1_ImpBioSAXSASCIIVer))
    6262                        DoAlert /T="The Import ASCII panel was created by incorrect version of Irena " 1, "Import ASCII tool needa to be restarted to work properly. Restart now?"
    6363                        if(V_flag==1)
     
    9191                IRB1_DataManInitBioSAXS()
    9292                IRB1_DataManPanelFnct()
    93                 IR3C_MultiUpdateListOfAvailFiles("Irena:BioSAXSDataMan")
     93                IR3C_MultiUpdListOfAvailFiles("Irena:BioSAXSDataMan")
    9494                ING2_AddScrollControl()
    9595                IR1_UpdatePanelVersionNumber("IRB1_DataManipulationPanel", IRB1_DataManipulation,1)
     
    130130                IRB1_PDDFPanelFnct()
    131131                SetWindow IRB1_PDDFInterfacePanel, hook(ATSASCursorMoved) = IRB1_PDDFGraphWindowHook
    132                 IR3C_MultiUpdateListOfAvailFiles("Irena:PDDFInterface")
     132                IR3C_MultiUpdListOfAvailFiles("Irena:PDDFInterface")
    133133                ING2_AddScrollControl()
    134134                IR1_UpdatePanelVersionNumber("IRB1_PDDFInterfacePanel", IRB1_PDDFInterfaceVersion,1)
    135                 IRB1_PDDFResetValuesToPreventStale()
     135                IRB1_PDDFResetValsToPrevStale()
    136136        endif
    137137end
     
    694694                        endif
    695695                       
    696                                 IR3C_MultiUpdateListOfAvailFiles("Irena:BioSAXSDataMan")
     696                                IR3C_MultiUpdListOfAvailFiles("Irena:BioSAXSDataMan")
    697697                        break
    698698                case -1: // control being killed
     
    713713                        // click code here
    714714                        if(stringMatch(ba.ctrlName,"PlotSelectedData"))
    715                                 IRB1_DataManAppendSelectedDataSets()
     715                                IRB1_DataManAppendSelDtaSets()
    716716                        endif
    717717                        if(stringMatch(ba.ctrlName,"AverageData"))
     
    897897//**********************************************************************************************************
    898898//**********************************************************************************************************
    899 Function IRB1_DataManAppendSelectedDataSets()
     899Function IRB1_DataManAppendSelDtaSets()
    900900
    901901        IN2G_PrintDebugStatement(IrenaDebugLevel, 5,"")
     
    15701570        TitleBox PDDFInstructions11 title="\Zr120Rambo-Tainer Background : ",size={230,15},pos={270,310},frame=0,fColor=(0,0,65535),labelBack=0
    15711571        checkbox RamboTainerAutoSetBckg, pos={270,330}, title="Auto Find Backg.?", size={76,14},proc=IRB1_PDDFCheckProc, variable=root:Packages:Irena:PDDFInterface:RamboTainerAutoSetBckg, mode=0, help={"Find Background AUtomatically background from I(Q)"}
    1572         checkbox RamboTainerSubtractFlatBackground, pos={420,330}, title="Subtract Background?", size={76,14},proc=IRB1_PDDFCheckProc, variable=root:Packages:Irena:PDDFInterface:RamboTainerSubtractFlatBackground, mode=0, help={"Subtract background from I(Q)"}
     1572        checkbox RamboTainerSubFlatBack, pos={420,330}, title="Subtract Background?", size={76,14},proc=IRB1_PDDFCheckProc, variable=root:Packages:Irena:PDDFInterface:RamboTainerSubFlatBack, mode=0, help={"Subtract background from I(Q)"}
    15731573        NVAR RamboTainerFlatBackground=root:Packages:Irena:PDDFInterface:RamboTainerFlatBackground
    15741574        if(RamboTainerFlatBackground==0)
    15751575                RamboTainerFlatBackground = 0.0001
    15761576        endif
    1577         SetVariable RamboTainerFlatBackground,pos={270,355},size={250,18}, bodyWidth=90, proc=IRB1_PDDFSetVarProc,title="Flat Background = ", variable=root:Packages:Irena:PDDFInterface:RamboTainerFlatBackground, limits={0.00,inf,RamboTainerFlatBackground*0.01},frame=1, help={"Flat Background"}, format="%4.2f"
     1577        SetVariable RamboTainerFlatBackground,pos={270,355},size={250,18}, bodyWidth=90, proc=IRB1_PDDFSetVarProc,title="Flat Background = ", variable=root:Packages:Irena:PDDFInterface:RamboTainerFlatBackground, limits={0.00,inf,RamboTainerFlatBackground*0.01},frame=1, help={"Flat Background"}, format="%4.2e"
    15781578
    15791579        TitleBox PDDFInstructions12 title="\Zr120Real Space/PDDF (GNOM) Mol. Weight Conc.",size={330,15},pos={270,390},frame=0,fColor=(0,0,65535),labelBack=0
     
    17891789        checkbox InvariantCalcQmaxLog225,  disable = (whichTab!=1)
    17901790        SetVariable InvariantCalcQmax,  disable = (whichTab!=1)
    1791         checkbox RamboTainerSubtractFlatBackground,  disable = (whichTab!=1)
     1791        checkbox RamboTainerSubFlatBack,  disable = (whichTab!=1)
    17921792        SetVariable RamboTainerFlatBackground,  disable = (whichTab!=1)
    17931793        SetVariable ConcentrationForCals, win=IRB1_PDDFInterfacePanel,  disable = (whichTab!=1)
     
    18471847                                IRB1_PDDFCalcRamboTainer()
    18481848                        endif
    1849                         if(stringmatch(cba.ctrlname,"RamboTainerSubtractFlatBackground"))
     1849                        if(stringmatch(cba.ctrlname,"RamboTainerSubFlatBack"))
    18501850                                //IRB1_PDDFFitRgAndG()
    18511851                                //IRB1_PDDFCalcSAXSMoW2()
     
    19131913                                PDDFUseNucleicAcid=!PDDFUseProtein
    19141914                                IRB1_PDDFSetDensitySLD()       
    1915                                 IRB1_PDDFResetValuesToPreventStale()
     1915                                IRB1_PDDFResetValsToPrevStale()
    19161916                        endif                   
    19171917                        if(stringmatch(cba.ctrlname,"PDDFUseNucleicAcid"))
    19181918                                PDDFUseProtein=!PDDFUseNucleicAcid
    19191919                                IRB1_PDDFSetDensitySLD()       
    1920                                 IRB1_PDDFResetValuesToPreventStale()
     1920                                IRB1_PDDFResetValsToPrevStale()
    19211921                        endif
    19221922                        break
     
    22162216        NVAR InvariantCalcQmaxLog225 = root:Packages:Irena:PDDFInterface:InvariantCalcQmaxLog225       
    22172217        NVAR InvariantCalcQmax = root:Packages:Irena:PDDFInterface:InvariantCalcQmax
    2218         NVAR RamboTainerSubtractFlatBackground = root:Packages:Irena:PDDFInterface:RamboTainerSubtractFlatBackground
     2218        NVAR RamboTainerSubFlatBack = root:Packages:Irena:PDDFInterface:RamboTainerSubFlatBack
    22192219        NVAR RamboTainerFlatBackground = root:Packages:Irena:PDDFInterface:RamboTainerFlatBackground
    22202220        NVAR RamboTainerAutoSetBckg = root:Packages:Irena:PDDFInterface:RamboTainerAutoSetBckg
     
    22422242        variable ChangeToRealIntP=BinarySearch(RamboTainerQ,QValueToChange)
    22432243        RamboTainerInt[ChangeToRealIntP, ] = OriginalIntensity[BinarySearchInterp(OriginalQvector, RamboTainerQ[p])]
    2244         if(RamboTainerSubtractFlatBackground)
     2244        if(RamboTainerSubFlatBack)
    22452245                RamboTainerInt -= RamboTainerFlatBackground                                             //this subtract approximate background from the data.
    22462246        endif
     
    29572957        NVAR UseQRSdata=root:Packages:Irena:PDDFInterface:UseQRSdata
    29582958        //zero old values to prevent stale.
    2959         IRB1_PDDFResetValuesToPreventStale      ()
     2959        IRB1_PDDFResetValsToPrevStale   ()
    29602960        //get the names of waves, assume this tool actually works. May not under some conditions. In that case this tool will not work.
    29612961        IR3C_SelectWaveNamesData("Irena:PDDFInterface", FolderNameStr)                  //this routine will preset names in strings as needed,  DataFolderName = DataStartFolder+FolderNameStr
     
    31063106        ListOfVariables += "RealSpaceRg;RealSpaceI0;ConcentrationForCals;ScattLengthDensDifference;PDDFCalculatedMW;RealSpacePorodVolumeA3;"   
    31073107        ListOfVariables += "RamboTainerMWRecSpacekDa;InvariantCalcQmax8overRg;InvariantCalcQmax;InvariantCalcQmaxLog225;"
    3108         ListOfVariables += "RamboTainerSubtractFlatBackground;RamboTainerFlatBackground;RamboTainerAutoSetBckg;"
     3108        ListOfVariables += "RamboTainerSubFlatBack;RamboTainerFlatBackground;RamboTainerAutoSetBckg;"
    31093109        ListOfVariables += "SaveToFolder;SaveToNotebook;SaveToWaves;SaveToGNOMOut;"     
    31103110        ListOfVariables += "MWPorodInvariant;ReciprocalPorodVolumeA3;MWMassDensityProtein;SAXSMoW2MWRecSpacekDa;SAXSMoW2MWRealSpacekDa;"       
     
    31713171        endif
    31723172        IRB1_PDDFSetDensitySLD()       
    3173         IRB1_PDDFResetValuesToPreventStale()
     3173        IRB1_PDDFResetValsToPrevStale()
    31743174       
    31753175        NVAR SaveToFolder
     
    31853185end
    31863186//**********************************************************************************************************
    3187 static Function IRB1_PDDFResetValuesToPreventStale()
     3187static Function IRB1_PDDFResetValsToPrevStale()
    31883188        //zero old values to prevent stale.
    31893189        DFRef OldDF=GetDataFolderDFR()
Note: See TracChangeset for help on using the changeset viewer.