Changeset 240
 Timestamp:
 Jan 15, 2008 10:46:43 AM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

sans/SASCalc/trunk/SASCALC.ipf
r233 r240 333 333 //poll the controls on the panel, and change needed values 334 334 Variable isNG3,Ng,mode 335 ControlInfo checkNG3335 ControlInfo/W=SASCALC checkNG3 336 336 isNG3=V_value 337 ControlInfo SC_slider337 ControlInfo/W=SASCALC SC_slider 338 338 Ng=V_value 339 339 SVAR A1str= root:Packages:NIST:SAS:gSourceApString// = "1.43 cm;2.54 cm;3.81 cm;" … … 342 342 switch(ng) 343 343 case 0: 344 ControlInfo popup0344 ControlInfo/W=SASCALC popup0 345 345 mode=V_value 346 346 A1str="1.43 cm;2.54 cm;3.81 cm;" … … 373 373 switch(ng) 374 374 case 0: 375 ControlInfo popup0375 ControlInfo/W=SASCALC popup0 376 376 mode=V_value 377 377 A1str="1.43 cm;2.22 cm;3.81 cm;" … … 389 389 ControlUpdate popup0 390 390 PopupMenu popup0,mode=mode //source Ap 391 ControlInfo popup0391 ControlInfo/W=SASCALC popup0 392 392 SourceAperturePopMenuProc("",0,S_Value) //send popNum==0 so recalculation won't be done 393 393 394 394 ControlUpdate popup0_2 // delta lambda pop 395 ControlInfo popup0_2395 ControlInfo/W=SASCALC popup0_2 396 396 DeltaLambdaPopMenuProc("",0,S_Value) //sets the global and the wave 397 397 End … … 597 597 598 598 599 Proc DoTest() 600 599 Proc DoTest(nCts) 600 variable nCts = 1e6 601 602 test2DSphere(nCts) 603 604 root:Packages:NIST:SAS:linear_data = root:sim_lin 605 601 606 S_CircularAverageTo1D("Packages:NIST:SAS") 602 607 … … 605 610 606 611 //root:Packages:NIST:SAS:aveint = S_SphereForm(1,80,1e6,0,root:Packages:NIST:SAS:qval) 607 root:Packages:NIST:SAS:aveint = S_Debye(1000,100,0,qval)612 //root:Packages:NIST:SAS:aveint = S_Debye(1000,100,0,qval) 608 613 609 614 // multiply by beamstop shadowing 610 root:Packages:NIST:SAS:aveint *= root:Packages:NIST:SAS:fSubS615 //root:Packages:NIST:SAS:aveint *= root:Packages:NIST:SAS:fSubS 611 616 612 617 //multiply by current offset (>=1) 613 root:Packages:NIST:SAS:aveint *= root:Packages:NIST:SAS:gModelOffsetFactor618 //root:Packages:NIST:SAS:aveint *= root:Packages:NIST:SAS:gModelOffsetFactor 614 619 615 620 End … … 1353 1358 // updates the wave 1354 1359 Function sourceApertureDiam() 1355 ControlInfo popup01360 ControlInfo/W=SASCALC popup0 1356 1361 Variable diam 1357 1362 sscanf S_Value, "%g cm", diam … … 1378 1383 // returns a2 in cm 1379 1384 Function sampleApertureDiam() 1380 ControlInfo popup0_11385 ControlInfo/W=SASCALC popup0_1 1381 1386 1382 1387 // Print "In sampleApertureDiam()" … … 1403 1408 //1=huber 2=chamber 1404 1409 Function tableposition() 1405 ControlInfo checkHuber1410 ControlInfo/W=SASCALC checkHuber 1406 1411 if(V_Value) 1407 1412 return(1) //huber
Note: See TracChangeset
for help on using the changeset viewer.