Files
sea/tcl/dil5_press_cell.stick
2022-08-18 15:04:28 +02:00

57 lines
1.3 KiB
Plaintext

stickDesc = 100 mm dilution with pressure cell
proc triton {kind obj name db col} {
makenv $obj -driver itc$kind -port linse-dil5:33576 -controller _tritondil $db
switch $kind {
temp {
GraphAdd $obj K_3 T_$name
GraphAdd $obj.raw Ohm_3 R_$name
}
press {
GraphAdd $obj mbar_2 p_$name
}
}
}
proc itcchan {obj name dbt dbh col setcol} {
makenv $obj -driver itctemp -port linse-dil5:3001 -controller _itcdil ${dbt}.T1 ${dbh}.H1
GraphAdd $obj K_3 T_$name
GraphAdd $obj.set K_3 T_${name}_set $setcol
GraphAdd $obj.pow W_3 pow_$name
# GraphAdd $obj.raw Ohm_3 R_$name
}
itcchan twstill wupstill MB1 MB0 blue cyan
itcchan tonek oneK DB5 DB3 red orange
itcchan twmix wupMix DB6 DB1 green lightgreen
itcchan twivc wupIVC DB7 DB2 magenta violet
itcchan tcond cond DB8 DB3 yellow grey
triton temp tsorb sorb T1 dark_violet
triton temp tivc IVC T2 brown
triton temp tstill still T3 orange
triton temp tcp cond T4 grey
triton temp tmix mix T5 cyan
triton press pdump dump P1 cyan
triton press pcond cond P2 blue
triton press pstill still P3 black
triton press pfore fore P4 green
triton press pback back P5 red
##==== pcell sensor
makenv res -driver 370_lsc {
lsc_sensor s3 -channel 3 -sensor dil5red -excitation 20uV
}
GraphAdd res.s3 K_3 Tpcell
makenv ts -driver drvpar /res/s3
defineTemperature ts