123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247 |
- <?php
- // include helper functions
- include "wgts_functions.php";
- // include channel list
- include "wgts_channels.php";
- $color = "#000000";
- // link to STS status overview
- placeTextWithWebsiteLink(0, 1130, "STS", 140, 40, $color, "STS Status Overview", "../");
- // link to DPS status overview
- placeTextWithWebsiteLink(153, 1480, "DPS", 70, 6, $color, "DPS Status Overview", "http://bora-dps.kaas.kit.edu/");
- // if DPS magnetic field is ramped, show warning on WGTS status monitor
- $thresDPS = 0.1; // magnet B in T
- $tol = 180; // hall sensor B in mT 55
- //$cali = array( 800, -800, 800, -800, 800, -800, 808, -769, 736, -778 );
- // calibration from M. Erhard
- $cali = array( 760, -760, 760, -760, 760, -760, 808, -769, 736, -778 );
- $DPSramped = "false";
- for ($index = 1; $index <= 5; $index++)
- {
- $value = ( (5.5 * $adeiValue[0][2*($index-1)] / $cali[2*($index-1)]) + (5.5 * $adeiValue[0][1 + 2*($index-1)] / $cali[1 + 2*($index-1)]) ) / 2.0 ;
- if ( abs($value)>$thresDPS )
- {
- $DPSramped = "true";
- }
- }
- if ( $DPSramped == "true" )
- {
- $color = "#FF0000";
- placeText(100, 1480, "Magnets On", 30, 5, $color);
- }else{
- placeText(100, 1480, 'Magnets Off', 30, 5, $color);
- }
- $color = "#000000"; // reset color to black
- // link to alternative WGTS status overview
- placeTextWithWebsiteLink(580, 5, "WGTS tech", 200, 6, $color, "Technical WGTS Status Overview", "http://bora-wgts.kaas.kit.edu/");
- // link to WGTS magnet status overview
- placeTextWithWebsiteLink(620, 30, "Magnets", 70, 6, $color, "WGTS Magnet Status Overview", "https://bora-mcs.kaas.kit.edu/");
-
- // LHe and LN2 supply
- for ( $ii=2; $ii <= 3; $ii++)
- {
- $Level = $adeiValue[$ii][0]/100;
- $posXPic = 506; // 506 for LHe, 506+445 for LN
- $posYPic = 106;
- $TankPic = "WGTS-Schema-";
- $posXLevel = 690; // 700 for LHe, 700+445-155 for LN
- $posYLevel = 180;
- $posXPres = $posXLevel; // 700 for LHe, 700+445-155 for LN
- $posYPres = 150;
- $posXTemp = $posXPres; // 700 for LHe, 700+445-155 for LN
- $posYTemp = 120;
- if ( $ii == 2 )
- {
- $TankPic = $TankPic."LN";
- $posXPic += 445;
- $posXPres += 445-155;
- $posXTemp = $posXPres;
- $posXLevel = $posXPres;
- $title = "LN2 buffer vessel";
- }else if ( $ii ==3 )
- {
- $TankPic = $TankPic."LHe";
- $title = "LHe buffer vessel";
- }
-
- if ( $Level>=0.0 && $Level<0.05 )
- {
- placePicOrig($posYPic, $posXPic, $TankPic."0".".png", $title);
- }else if ( $Level>=0.05 && $Level<0.40 )
- {
- placePicOrig($posYPic, $posXPic, $TankPic."25".".png", $title);
- }else if ( $Level>=0.40 && $Level<0.60 )
- {
- placePicOrig($posYPic, $posXPic, $TankPic."50".".png", $title);
- }else if ( $Level>=0.60 && $Level<0.95 )
- {
- placePicOrig($posYPic, $posXPic, $TankPic."75".".png", $title);
- }else if ( $Level>=0.95 && $Level<=1.00 )
- {
- placePicOrig($posYPic, $posXPic, $TankPic."100".".png", $title);
- }
- // Level of LHe / LN2 buffer vessel
- $level = sprintf('%.1F', $adeiValue[$ii][0])."%";
- placeTextWithLink($posYLevel, $posXLevel, $level, 70, 5, $color, $KatrinNumber[$ii][0], $adeiChannel[$ii][0]);
- // Pressure of LHe / LN2 buffer vessel
- $pres = sprintf('%.1F', $adeiValue[$ii+2][0])." bar";
- placeTextWithLink($posYPres, $posXPres, $pres, 80, 5, $color, $KatrinNumber[$ii+2][0], $adeiChannel[$ii+2][0]);
- // Temperature of LHe / LN2 buffer vessel
- $temp = sprintf('%.1F', $adeiValue[$ii+15][0])." K";
- placeTextWithLink($posYTemp, $posXTemp, $temp, 80, 5, $color, $KatrinNumber[$ii+15][0], $adeiChannel[$ii+15][0]);
-
- }
- // DPS1-R beamtube temperature
- $posX = 100;
- $posY = 400;
- for ($ii = 0; $ii < sizeof($adeiValue[6]); $ii++)
- {
- if ( $ii&1 ) // odd index
- {
- $posY = 379;
- }else // even index
- {
- $posY = 415;
- $posX = $ii*36;
- }
- $temp = sprintf('%.1F', $adeiValue[6][$ii])." K";
- placeTextWithLink($posY, $posX+95, $temp, 60, 2, $color, $KatrinNumber[6][$ii], $adeiChannel[6][$ii]);
- }
- for ($ii = 0; $ii < sizeof($adeiValue[7]); $ii++)
- {
- if ( $ii&1 ) // odd index
- {
- $posY = 379;
- }else // even index
- {
- $posY = 415;
- $posX = $ii*36;
- }
- $temp = sprintf('%.1F', $adeiValue[7][$ii])." K";
- placeTextWithLink($posY, $posX+315, $temp, 60, 2, $color, $KatrinNumber[7][$ii], $adeiChannel[7][$ii]);
- }
-
- // Source beamtube temperature
- for ($ii = 0; $ii < sizeof($adeiValue[8]); $ii++)
- {
- if ( $ii&1 ) // odd index
- {
- $posY = 379;
- }else // even index
- {
- $posY = 415;
- $posX = $ii*53;
- }
- //if ( $ii == 2 ) continue; // 200-RTP-3-5109 shows large variations
- $temp = sprintf('%.1F', $adeiValue[8][$ii])." K";
- placeTextWithLink($posY, 980-$posX, $temp, 60, 2, $color, $KatrinNumber[8][$ii], $adeiChannel[8][$ii]);
- }
- // DPS1-F beamtube temperature
- for ($ii = 0; $ii < sizeof($adeiValue[9]); $ii++)
- {
- if ( $ii&1 ) // odd index
- {
- $posY = 379;
- }else // even index
- {
- $posY = 415;
- $posX = $ii*36;
- }
- if ( $ii == 2 ) continue; // 200-RTP-3-7101 shows constantly 31.6 K
- $temp = sprintf('%.1F', $adeiValue[9][$ii])." K";
- placeTextWithLink($posY, $posX+1077, $temp, 60, 2, $color, $KatrinNumber[9][$ii], $adeiChannel[9][$ii]);
- }
- for ($ii = 0; $ii < sizeof($adeiValue[10]); $ii++)
- {
- if ( $ii&1 ) // odd index
- {
- $posY = 379;
- }else // even index
- {
- $posY = 415;
- $posX = $ii*36;
- }
- $temp = sprintf('%.1F', $adeiValue[10][$ii])." K";
- placeTextWithLink($posY, $posX+1297, $temp, 60, 2, $color, $KatrinNumber[10][$ii], $adeiChannel[10][$ii]);
- }
-
- // Isolation vakuum
- placeText(612, 700, "Isolation vacuum", 200, 4, $color);
- $vak1 = sprintf('%.1e', $adeiValue[11][0])." mbar";
- placeTextWithLink(612, 460, $vak1, 100, 4, $color, $KatrinNumber[11][0], $adeiChannel[11][0]);
- $vak2 = sprintf('%.1e', $adeiValue[11][1])." mbar";
- placeTextWithLink(612, 1050, $vak2, 100, 4, $color, $KatrinNumber[11][1], $adeiChannel[11][1]);
- // Magnet temperature
- $MagnetName = array ( "M5", "M4", "M1", "M2", "M3", "M7", "M6" );
- for ($ii = 0; $ii < sizeof($adeiValue[12]); $ii++)
- {
- $posY = 297;
- $posX = $ii*220;
- if ($ii==2) $posX=$ii*235;
- if ($ii==3) $posX=$ii*210;
- if ($ii==4) $posX=$ii*200;
- if ($ii>=5) $posX=$ii*211;
- $temp = sprintf('%.1F', $adeiValue[12][$ii])." K";
- $bgcolor="#FFFFFF";
- $textcolor="#000000";
- placeBoxTextWithLink($posY, $posX+140, $temp, 50, 3, $bgcolor, $textcolor, $KatrinNumber[12][$ii], $adeiChannel[12][$ii]);
- placeText($posY+185, $posX+140, $MagnetName[$ii], 50, 5, $color);
- }
- // Magnet currents / B field
- for ($ii = 13; $ii <=15; $ii++)
- {
- if ($ii==13) {$posX=400; $Nl=9280;} else if ($ii==14) {$posX=810; $Nl=9289;} else if ($ii==15) {$posX=1200; $Nl=21852;}
- // Magnet currents
- placeTextWithLink(250, $posX-18, sprintf('%.1F', $adeiValue[$ii][0])." A", 80, 4, $color, $KatrinNumber[$ii][0], $adeiChannel[$ii][0]);
- $Bfield = 1.26e-6 * $adeiValue[$ii][0] * $Nl; // mu0 * I * N/l
- placeText(250, $posX+50, "<--> ".sprintf('%.1F', $Bfield)." T", 80, 4, $color);
- }
- // Inner shield (27 K)
- for ($ii = 0; $ii < sizeof($adeiValue[16]); $ii++)
- {
- if ( $ii&1 ) // odd index
- {
- $posY = 337;
- }else // even index
- {
- $posY = 455;
- $posX = $ii*110;
- if ( $ii==6 ) $posX = $ii*110+150;
- if ( $ii>=8 ) $posX = $ii*110+175;
- }
- $temp = sprintf('%.1F', $adeiValue[16][$ii])." K";
- placeTextWithLink($posY, $posX+130, $temp, 60, 2, $color, $KatrinNumber[16][$ii], $adeiChannel[16][$ii]);
- }
- // M5, M6 magnetic dipoles
- for ($ii = 19; $ii <=20; $ii++)
- {
- if ($ii==19) {$posX=60; $coeff=2.1e-3; $Nl=9280; $Bfieldz=1.26e-6*$adeiValue[13][0]*$Nl;} else if ($ii==20) {$posX=1330; $coeff=1.96e-3; $Nl=21852; $Bfieldz=1.26e-6*$adeiValue[15][0]*$Nl;}
- placeText(240, $posX, "Ix= ", 80, 3, $color);
- placeText(260, $posX, "Iy= ", 80, 3, $color);
- $Bfieldz = 1.26e-6 * $adeiValue[$ii][0] * $Nl; // mu0 * I * N/l
- for ($jj = 0; $jj<=1; $jj++)
- {
- if (abs($Bfieldz)>0.1) {$Shift = $coeff * $adeiValue[$ii][$jj] * 0.755 / $Bfieldz;} else {$Shift=0.0;}
- //$Shift = $coeff * 97 * 0.755 / 3.6;
- placeText(240+$jj*20, $posX+80, " <--> ".sprintf('%.1F', $Shift*1e+2)." cm", 140, 3, $color);
- placeTextWithLink(240+$jj*20, $posX+55, sprintf('%.1F', $adeiValue[$ii][$jj])." A", 60, 3, $color, $KatrinNumber[$ii][$jj], $adeiChannel[$ii][$jj]);
- }
- }
- // throughput & column density
- $Q = ($adeiValue[23][0]+3.2 ) * 1.0;
- $Qtext = sprintf('%.1f', $Q)." sccm";
- placeTextWithLink(700, 1200, "q = ".$Qtext, 150, 4, $color, $KatrinNumber[23][0], $adeiChannel[23][0]);
- $Q1 = $Q * 0.01689189;
- $Q1text = sprintf('%.1f', $Q1)." mbar l/s";
- placeText(725, 1200, "q = ".$Q1text, 150, 4, $color);
- $Ntext = sprintf('%.1e', GetColDens($Q1))." 1/m^2";
- placeText(750, 1200, "N = ".$Ntext, 150, 4, $color);
- ?>
|