```pascal FUNCTION "BlenderRun_SelectConstan" : Void { S7_Optimized_Access := 'FALSE' } AUTHOR : 'Author' FAMILY : TASK2 NAME : 'Name' VERSION : 1.0 BEGIN CASE "HMI_Blender_Parameters".Processor_Options.Blender_OPT._ModelNum OF 0: "Blender_Variables".gWaterVFM_DN := 25 ; "Blender_Variables".gSyrupMFM_DN := 15 ; "Blender_Variables".gWaterPipe_DN := 32 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ; "Blender_Variables".gProdTankVolume := 550 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; 1: "Blender_Variables".gWaterVFM_DN := 25 ; "Blender_Variables".gSyrupMFM_DN := 15 ; "Blender_Variables".gWaterPipe_DN := 38 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ; "Blender_Variables".gProdTankVolume := 550 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#116.7 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; 2: "Blender_Variables".gWaterVFM_DN := 25 ; // NOT Exists "Blender_Variables".gSyrupMFM_DN := 15 ; "Blender_Variables".gWaterPipe_DN := 50 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ; "Blender_Variables".gProdTankVolume := 550 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 150.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#150.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; 3: "Blender_Variables".gWaterVFM_DN := 25 ; "Blender_Variables".gSyrupMFM_DN := 15 ; "Blender_Variables".gWaterPipe_DN := 50 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.325 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.325 ; "Blender_Variables".gProdTankVolume := 550 ; "Blender_Variables".gDeairTankVolume := 550 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 200.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#200.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; 4: "Blender_Variables".gWaterVFM_DN := 40 ; "Blender_Variables".gSyrupMFM_DN := 25 ; "Blender_Variables".gWaterPipe_DN := 65 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.9 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.9 ; "Blender_Variables".gProdTankVolume := 1150 ; "Blender_Variables".gDeairTankVolume := 550 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 283.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#283.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; "Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD4_5_6 ; 5: "Blender_Variables".gWaterVFM_DN := 40 ; "Blender_Variables".gSyrupMFM_DN := 25 ; "Blender_Variables".gWaterPipe_DN := 65 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.9 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.9 ; "Blender_Variables".gProdTankVolume := 1150 ; "Blender_Variables".gDeairTankVolume := 550 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 350.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#350.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; "Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD4_5_6 ; 6: "Blender_Variables".gWaterVFM_DN := 40 ; "Blender_Variables".gSyrupMFM_DN :=25 ; "Blender_Variables".gWaterPipe_DN := 80 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 0.9;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#0.9; "Blender_Variables".gProdTankVolume := 1150 ; "Blender_Variables".gDeairTankVolume := 1150 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 450.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#450.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; "Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD4_5_6 ; 7: "Blender_Variables".gWaterVFM_DN := 50 ; "Blender_Variables".gSyrupMFM_DN := 40 ; "Blender_Variables".gWaterPipe_DN := 80 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ; "Blender_Variables".gProdTankVolume := 2170 ; "Blender_Variables".gDeairTankVolume := 1150 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 567.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#600.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; "Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD7_8_9 ; 8: "Blender_Variables".gWaterVFM_DN := 50 ; "Blender_Variables".gSyrupMFM_DN := 40 ; "Blender_Variables".gWaterPipe_DN := 105 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ; "Blender_Variables".gProdTankVolume := 2170 ; "Blender_Variables".gDeairTankVolume := 1150 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 700.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#700.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 100 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; "Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD7_8_9 ; 9: "Blender_Variables".gWaterVFM_DN := 50 ; "Blender_Variables".gSyrupMFM_DN := 40 ; "Blender_Variables".gWaterPipe_DN := 100 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ; "Blender_Variables".gProdTankVolume := 2170 ; "Blender_Variables".gDeairTankVolume := 1150 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 900.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#900.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#1000.0 ; "Blender_Variables".gBufferTankProbeHeight := "Blender_Constants".gBufferTankProbeHtD7_8_9 ; 10: "Blender_Variables".gWaterVFM_DN := 65 ; "Blender_Variables".gSyrupMFM_DN := 50 ; "Blender_Variables".gWaterPipe_DN := 100 ; (* classic code: "Blender_Variables".gSyrupMFMZeroStab := 2.25 ;*) "Blender_Variables".gSyrupMFMZeroStab := REAL#2.25 ; "Blender_Variables".gProdTankVolume := 2170 ; "Blender_Variables".gDeairTankVolume := 1150 ; (* classic code: "Blender_Variables".gBlenderNomSpeed := 1100.0 * "Blender_Constants".gBlenderNominalSpeedAdj ;*) "Blender_Variables".gBlenderNomSpeed := REAL#1100.0 * "Blender_Constants".gBlenderNominalSpeedAdj ; "Blender_Variables".gProdTankBottomVol := 105 ; (* classic code: "Blender_Variables".gFlowTronic := 1000.0 ;*) "Blender_Variables".gFlowTronic := REAL#666.66 ; ELSE: ; END_CASE; (* classic code: "HMI_Variables_Status".Analog_Values.BlenderSlowProd := "Blender_Variables".gBlenderNomSpeed * 0.5;*) "HMI_Variables_Status".Analog_Values.BlenderSlowProd := "Blender_Variables".gBlenderNomSpeed * REAL#0.5; IF "HMI_Blender_Parameters".Actual_Recipe_Parameters._ProductionRate >= "HMI_Variables_Status".Analog_Values.BlenderSlowProd THEN "Blender_Variables".gMinProduction := "Blender_Variables".gBlenderNomSpeed * "HMI_Blender_Parameters".ProcessSetup._MinSpeedNominalProd; ELSE "Blender_Variables".gMinProduction := "Blender_Variables".gBlenderNomSpeed * "HMI_Blender_Parameters".ProcessSetup._MinSpeedSlowProd; END_IF; "Blender_Variables".gCarboCO2MFM_DN := 15 ; "Blender_Variables".gWaterVFM_Area := "Blender_Constants".gP_Greek * "Blender_Variables".gWaterVFM_DN / 2 / 100 * "Blender_Variables".gWaterVFM_DN / 2 / 100 ; "Blender_Variables".gWaterPipe_Area := "Blender_Constants".gP_Greek * "Blender_Variables".gWaterPipe_DN / 2 / 100 * "Blender_Variables".gWaterPipe_DN / 2 / 100 ; (* classic code: "Blender_Variables".gWaterVFMMeasError := 0.2 ;*) "Blender_Variables".gWaterVFMMeasError := REAL#0.2 ; (* classic code: "Blender_Variables".gWaterVFMRepeatibility := 0.1 ;*) "Blender_Variables".gWaterVFMRepeatibility := REAL#0.1 ; (* classic code: "Blender_Variables".gSyrupMFMMeasError := 0.1 ;*) "Blender_Variables".gSyrupMFMMeasError := REAL#0.1 ; (* classic code: "Blender_Variables".gSyrupMFMRepeatibility := 0.05 ;*) "Blender_Variables".gSyrupMFMRepeatibility := REAL#0.05 ; (* classic code: "Blender_Variables".gCO2MFMMeasError := 0.5 ;*) "Blender_Variables".gCO2MFMMeasError := REAL#0.5 ; (* classic code: "Blender_Variables".gCO2MFMRepeatibility := 0.25 ;*) "Blender_Variables".gCO2MFMRepeatibility := REAL#0.25 ; (* classic code: "Blender_Variables".gCO2MFMZeroStab := 0.325 ;*) "Blender_Variables".gCO2MFMZeroStab := REAL#0.325 ; "Blender_Variables".gFirstProdExtraBrix := "HMI_Blender_Parameters".ProcessSetup._FirstProdExtraBrix ; "Blender_Variables".gFirstProdDietExtraSyr := "HMI_Blender_Parameters".ProcessSetup._FirstProdDietExtraSyr ; "Blender_Variables".gFirstProdExtraCO2Fact := "HMI_Blender_Parameters".Actual_Recipe_Parameters._FirstProdExtraCO2Fact ; "System_RunOut_Variables".TM301_Drain.Time_Preset.Step0 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt0Time)); "System_RunOut_Variables".TM301_Drain.Time_Preset.Step1 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt1Time)); "System_RunOut_Variables".TM301_Drain.Time_Preset.Step2 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt2Time)); "System_RunOut_Variables".TM301_Drain.Time_Preset.Step3 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._TM301DrainSt3Time)); "System_RunOut_Variables".Prod_Pipe_RunOut.Time_Preset.Step0 := DINT_TO_INT(WORD_TO_DINT("HMI_Blender_Parameters".ProcessSetup._ProdPipeRunOutSt0Time)); "System_RunOut_Variables".RMM301_OV_ProdPipeRunOut := "HMI_Blender_Parameters".ProcessSetup._RMM301ProdPipeRunOu ; "System_RunOut_Variables".RMP302_OV_ProdPipeRunOut := "HMI_Blender_Parameters".ProcessSetup._RMP302ProdPipeRunOu; "System_RunOut_Variables".ProdPipeRunOutProdAmount := "HMI_Blender_Parameters".ProcessSetup._ProdPipeRunOutAmount ; "System_RunOut_Variables".TM301RunOutChillerAm := "HMI_Blender_Parameters".ProcessSetup._TM301RunOutChiller; END_FUNCTION ```