Messungen an PSI- und Nafion-Membranen zur Bestimmung des ...

Range("J1").Value = "I31" 'C10Range("K1").Value = "I32"'C11Range("L1").Value = "PKR"'C12Range("M1").Value = "I31(t)/I31" 'C13Range("N1").Value = "Integral"'C14' t relativRange("B2").SelectActiveCell.FormulaR1C1 = "=RC[-1]-R2C1"Range("B2").SelectSelection.AutoFill Destination:=Range("B2:B" & Fin), Type:= _xlFillDefault'sqrt(t)Range("C2").SelectActiveCell.FormulaR1C1 = "=SQRT(RC[-1])"Range("C2").SelectSelection.AutoFill Destination:=Range("C2:C" & Fin), Type:= _xlFillDefault'1/t, ln(sqrt(t)*I31)Range("D3").SelectActiveCell.FormulaR1C1 = "=1/RC[-2]"Range("E3").SelectActiveCell.FormulaR1C1 = "=LN(RC[-2]*RC10)"Range("D3:E3").SelectSelection.AutoFill Destination:=Range("D3:E" & Fin), Type:= _xlFillDefault'I(t)(31)/I(31)Range("M2").SelectActiveCell.FormulaR1C1 = "=(RC10-R2C10)/(R" & Fin & "C10-R2C10)"Range("M2").SelectSelection.AutoFill Destination:=Range("M2:M" & Fin), Type:= _xlFillDefault'IntegralRange("N2").SelectActiveCell.FormulaR1C1 = "0"Range("N3").SelectActiveCell.FormulaR1C1 = _"=((RC10)*(RC2-R[-1]C2)+R[-1]C)"Range("N3").SelectSelection.AutoFill Destination:=Range("N3:N" & Fin), Type:= _xlFillDefault' Generate Graphs from the calculated datasetsGraph1 Fin, Head' Calculate Thresholds 0.1 < I(t)31/I31 < 0.6i = 2While Range("M" & i).Value < Thres_lowi = i + 1WendMin = iWhile Range("M" & i).Value < Thres_highi = i + 1WendMax = i' Calculate Threshold for the L-RegressionWhile Range("M" & i).Value < 0.95i = i + 1WendMax2 = i