DiagAccU

A unified framework for uncertainty estimation of diagnostic accuracy measures

Rallou A. Chatzimichail, MEng, MSc, PhD
rc@hcsl.com
Theodora Chatzimichail, MRCS 
tc@hcsl.com
Aristides T. Hatjimihail, MD, PhD
 ath@hcsl.com

Hellenic Complex Systems Laboratory, Kostis Palamas 21, 66131 Drama, Greece.

ClearAll["`*"]
Needs["HypothesisTesting`"];
SetOptions[EvaluationNotebook[],TaggingRules-><|"DOI"->"https://doi.org/10.5281/zenodo.21901487","PreferredCitation"->"Chatzimichail RA, Chatzimichail T, Hatjimihail AT. DiagAccU: A unified framework for uncertainty estimation of diagnostic accuracy measures. Ver. 1.3.4. Hellenic Complex Systems Laboratory; 2026. https://doi.org/10.5281/zenodo.21901487"|>];logNormalDistribution[μ_,σ_]:=LogNormalDistribution[(1/2) (2 Log[μ]-Log[(((μ^2)+(σ^2))/(μ^2))]),(Sqrt[Log[(((μ^2)+(σ^2))/(μ^2))]])]
gammaDistribution[μ_,σ_]:=GammaDistribution[(μ^2)/(σ^2),(σ^2)/μ]
min[x_,y_]:=Min[Re[x],Re[y]]
max[x_,y_]:=Max[Re[x],Re[y]]
snsnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]),0],1]
usnsnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((Sqrt[(((E^(-((((t-μD))^2)/((σD)^2)))) ((((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((((b0+b1 t))^2)+(((σD)^2)/nD))))/((σD)^4))])/(Sqrt[2 π])),1,((Sqrt[(((E^(-((((t-μD))^2)/((σD)^2)))) ((((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD))))/((σD)^4))])/(Sqrt[2 π]))],0],1]
dfusnsnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((1-nD))^3) (nD^2) (1-nU) ((((((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((((b0+b1 t))^2)+(((σD)^2)/nD))))^2))/(4 (((-1+nD))^3) (nD^2) (((b0+b1 t))^4) ((((t^2)-2 t μD+((μD)^2)+((σD)^2)))^2)+(-1+nU) ((σD)^4) (((-2 ((σD)^2)+nD ((t^2)-2 t μD+((μD)^2)+2 ((σD)^2))))^2)),1,(((((((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD))))^2)/(((((((b0^2)+(b1^2) (t^2)))^2) ((((t^2)-2 t μD+((μD)^2)+((σD)^2)))^2))/(-1+nU))+(((((((((t-μD))^2) ((σD)^2))/(2 (-1+nD)))+(((σD)^4)/nD)))^2)/(-1+nD))))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]),0],1]
usnsnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((Sqrt[(((E^(-((((t-μD))^2)/((σD)^2)))) ((((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((((b0+b1 t))^2)+(((σD)^2)/nD))))/((σD)^4))])/(Sqrt[2 π])),1,((Sqrt[(((E^(-((((t-μD))^2)/((σD)^2)))) ((((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD))))/((σD)^4))])/(Sqrt[2 π]))],0],1]
dfusnsnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((1-nD))^3) (nD^2) (1-nU) ((((((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((((b0+b1 t))^2)+(((σD)^2)/nD))))^2))/(4 (((-1+nD))^3) (nD^2) (((b0+b1 t))^4) ((((t^2)-2 t μD+((μD)^2)+((σD)^2)))^2)+(-1+nU) ((σD)^4) (((-2 ((σD)^2)+nD ((t^2)-2 t μD+((μD)^2)+2 ((σD)^2))))^2)),1,(((((((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD))))^2)/(((((((b0^2)+(b1^2) (t^2)))^2) ((((t^2)-2 t μD+((μD)^2)+((σD)^2)))^2))/(-1+nU))+(((((((((t-μD))^2) ((σD)^2))/(2 (-1+nD)))+(((σD)^4)/nD)))^2)/(-1+nD))))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]),0],1]
usnsng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((Sqrt[(((E^(-((((t-μD))^2)/((σD)^2)))) ((((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((((b0+b1 t))^2)+(((σD)^2)/nD))))/((σD)^4))])/(Sqrt[2 π])),1,((Sqrt[(((E^(-((((t-μD))^2)/((σD)^2)))) ((((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD))))/((σD)^4))])/(Sqrt[2 π]))],0],1]
dfusnsng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((1-nD))^3) (nD^2) (1-nU) ((((((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((((b0+b1 t))^2)+(((σD)^2)/nD))))^2))/(4 (((-1+nD))^3) (nD^2) (((b0+b1 t))^4) ((((t^2)-2 t μD+((μD)^2)+((σD)^2)))^2)+(-1+nU) ((σD)^4) (((-2 ((σD)^2)+nD ((t^2)-2 t μD+((μD)^2)+2 ((σD)^2))))^2)),1,(((((((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD))))+((σD)^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD))))^2)/(((((((b0^2)+(b1^2) (t^2)))^2) ((((t^2)-2 t μD+((μD)^2)+((σD)^2)))^2))/(-1+nU))+(((((((((t-μD))^2) ((σD)^2))/(2 (-1+nD)))+(((σD)^4)/nD)))^2)/(-1+nD))))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-(1/2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],0],1]
usnsln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (1-nD) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/((-1+nD) nD ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))),1,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (-1+nD) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/((-1+nD) nD ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))))],0],1]
dfusnsln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1-nD))^3) (1-nU) (((nD ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (1-nD) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (4 (((-1+nD))^3) (nD^2) (((b0+b1 t))^4) (((((μD)^2)+((σD)^2)))^2) (((4 ((σD)^2) ((Log[t])^2)+4 ((σD)^2) ((Log[μD])^2)+12 ((σD)^2) Log[μD] Log[1+(((σD)^2)/((μD)^2))]+(4 ((μD)^2)+9 ((σD)^2)) ((Log[1+(((σD)^2)/((μD)^2))])^2)-4 ((σD)^2) Log[t] (2 Log[μD]+3 Log[1+(((σD)^2)/((μD)^2))])))^2)-(1-nU) (((nD ((μD)^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (1-nD) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))),1,((((1-nD))^3) (1-nU) (((nD ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (-1+nD) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (4 (((-1+nD))^3) (nD^2) ((((b0^2)+(b1^2) (t^2)))^2) (((((μD)^2)+((σD)^2)))^2) (((4 ((σD)^2) ((Log[t])^2)+4 ((σD)^2) ((Log[μD])^2)+12 ((σD)^2) Log[μD] Log[1+(((σD)^2)/((μD)^2))]+(4 ((μD)^2)+9 ((σD)^2)) ((Log[1+(((σD)^2)/((μD)^2))])^2)-4 ((σD)^2) Log[t] (2 Log[μD]+3 Log[1+(((σD)^2)/((μD)^2))])))^2)-(1-nU) (((nD ((μD)^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (-1+nD) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-(1/2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],0],1]
usnsll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (1-nD) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/((-1+nD) nD ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))),1,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (-1+nD) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/((-1+nD) nD ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))))],0],1]
dfusnsll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1-nD))^3) (1-nU) (((nD ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (1-nD) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (4 (((-1+nD))^3) (nD^2) (((b0+b1 t))^4) (((((μD)^2)+((σD)^2)))^2) (((4 ((σD)^2) ((Log[t])^2)+4 ((σD)^2) ((Log[μD])^2)+12 ((σD)^2) Log[μD] Log[1+(((σD)^2)/((μD)^2))]+(4 ((μD)^2)+9 ((σD)^2)) ((Log[1+(((σD)^2)/((μD)^2))])^2)-4 ((σD)^2) Log[t] (2 Log[μD]+3 Log[1+(((σD)^2)/((μD)^2))])))^2)-(1-nU) (((nD ((μD)^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (1-nD) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))),1,((((1-nD))^3) (1-nU) (((nD ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (-1+nD) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (4 (((-1+nD))^3) (nD^2) ((((b0^2)+(b1^2) (t^2)))^2) (((((μD)^2)+((σD)^2)))^2) (((4 ((σD)^2) ((Log[t])^2)+4 ((σD)^2) ((Log[μD])^2)+12 ((σD)^2) Log[μD] Log[1+(((σD)^2)/((μD)^2))]+(4 ((μD)^2)+9 ((σD)^2)) ((Log[1+(((σD)^2)/((μD)^2))])^2)-4 ((σD)^2) Log[t] (2 Log[μD]+3 Log[1+(((σD)^2)/((μD)^2))])))^2)-(1-nU) (((nD ((μD)^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (-1+nD) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snslg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-(1/2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],0],1]
usnslg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (1-nD) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/((-1+nD) nD ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))),1,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (-1+nD) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/((-1+nD) nD ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))))],0],1]
dfusnslg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1-nD))^3) (1-nU) (((nD ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (1-nD) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (4 (((-1+nD))^3) (nD^2) (((b0+b1 t))^4) (((((μD)^2)+((σD)^2)))^2) (((4 ((σD)^2) ((Log[t])^2)+4 ((σD)^2) ((Log[μD])^2)+12 ((σD)^2) Log[μD] Log[1+(((σD)^2)/((μD)^2))]+(4 ((μD)^2)+9 ((σD)^2)) ((Log[1+(((σD)^2)/((μD)^2))])^2)-4 ((σD)^2) Log[t] (2 Log[μD]+3 Log[1+(((σD)^2)/((μD)^2))])))^2)-(1-nU) (((nD ((μD)^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (1-nD) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))),1,((((1-nD))^3) (1-nU) (((nD ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (-1+nD) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (4 (((-1+nD))^3) (nD^2) ((((b0^2)+(b1^2) (t^2)))^2) (((((μD)^2)+((σD)^2)))^2) (((4 ((σD)^2) ((Log[t])^2)+4 ((σD)^2) ((Log[μD])^2)+12 ((σD)^2) Log[μD] Log[1+(((σD)^2)/((μD)^2))]+(4 ((μD)^2)+9 ((σD)^2)) ((Log[1+(((σD)^2)/((μD)^2))])^2)-4 ((σD)^2) Log[t] (2 Log[μD]+3 Log[1+(((σD)^2)/((μD)^2))])))^2)-(1-nU) (((nD ((μD)^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (-1+nD) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],0],1]
usnsgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,√(((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],0],1]
dfusnsgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((((1-nD))^3) (nD^2) (1-nU) ((μD)^4) ((σD)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1-nU) ((σD)^4) (((-2 nD ((((E^(-((t μD)/((σD)^2)))) μD (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^3) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1-nD) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1-nD) (((-1+nD))^2) (((-((σD)^4) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 ((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 nD (((b0+b1 t))^2) ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(nD (((b0+b1 t))^2)+((σD)^2)) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))),1,-(((((1-nD))^3) (nD^2) (1-nU) ((μD)^4) ((σD)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1-nU) ((σD)^4) (((-2 nD ((((E^(-((t μD)/((σD)^2)))) μD (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^3) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1-nD) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1-nD) (((-1+nD))^2) (((-((σD)^4) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 ((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 (b0^2) nD ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 (b1^2) nD (t^2) ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],0],1]
usnsgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,√(((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],0],1]
dfusnsgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((((1-nD))^3) (nD^2) (1-nU) ((μD)^4) ((σD)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1-nU) ((σD)^4) (((-2 nD ((((E^(-((t μD)/((σD)^2)))) μD (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^3) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1-nD) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1-nD) (((-1+nD))^2) (((-((σD)^4) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 ((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 nD (((b0+b1 t))^2) ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(nD (((b0+b1 t))^2)+((σD)^2)) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))),1,-(((((1-nD))^3) (nD^2) (1-nU) ((μD)^4) ((σD)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1-nU) ((σD)^4) (((-2 nD ((((E^(-((t μD)/((σD)^2)))) μD (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^3) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1-nD) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1-nD) (((-1+nD))^2) (((-((σD)^4) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 ((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 (b0^2) nD ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 (b1^2) nD (t^2) ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]
snsgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],0],1]
usnsgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,√(((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],0],1]
dfusnsgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((((1-nD))^3) (nD^2) (1-nU) ((μD)^4) ((σD)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1-nU) ((σD)^4) (((-2 nD ((((E^(-((t μD)/((σD)^2)))) μD (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^3) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1-nD) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1-nD) (((-1+nD))^2) (((-((σD)^4) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 ((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 nD (((b0+b1 t))^2) ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(nD (((b0+b1 t))^2)+((σD)^2)) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))),1,-(((((1-nD))^3) (nD^2) (1-nU) ((μD)^4) ((σD)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))-(1/((σD)^2))2 μD (((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1-nU) ((σD)^4) (((-2 nD ((((E^(-((t μD)/((σD)^2)))) μD (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^3) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1-nD) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1-nD) (((-1+nD))^2) (((-((σD)^4) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 ((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 (b0^2) nD ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 (b1^2) nD (t^2) ((μD)^2) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-((μD)^2) (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^3)-2 ((μD)^2) σD (MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nU-1],nD-1]],If[b0>0∨b1>0,2nD+nU-3,2nD-2]]

spcnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[((-t+μH)/((Sqrt[2]) σH))],0],1]
uspcnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(Sqrt[(((E^(-((((-t+μH))^2)/((σH)^2)))) (((-t+μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/(2 π ((σH)^4)))+(((E^(-((((-t+μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/(2 π ((σH)^2)))]),1,((Sqrt[(((E^(-((((t-μH))^2)/((σH)^2)))) ((((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH))))/((σH)^4))])/(Sqrt[2 π]))],0],1]
dfuspcnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((1-nH))^3) (nH^2) (1-nU) ((((((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((((b0+b1 t))^2)+(((σH)^2)/nH))))^2))/(4 (((-1+nH))^3) (nH^2) (((b0+b1 t))^4) ((((t^2)-2 t μH+((μH)^2)+((σH)^2)))^2)+(-1+nU) ((σH)^4) (((-2 ((σH)^2)+nH ((t^2)-2 t μH+((μH)^2)+2 ((σH)^2))))^2)),1,(((((((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH))))^2)/(((((((b0^2)+(b1^2) (t^2)))^2) ((((t^2)-2 t μH+((μH)^2)+((σH)^2)))^2))/(-1+nU))+(((((((((t-μH))^2) ((σH)^2))/(2 (-1+nH)))+(((σH)^4)/nH)))^2)/(-1+nH))))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2nH+nU-3,2nH-2]]
spcnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],0],1]
uspcnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH ((μH)^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nH) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nH) nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))),1,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH ((μH)^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (-1+nH) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nH) nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))))],0],1]
dfuspcnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1-nH))^3) (1-nU) (((nH ((μH)^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nH) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nH))^2) (4 (((-1+nH))^3) (nH^2) (((b0+b1 t))^4) (((((μH)^2)+((σH)^2)))^2) (((4 ((σH)^2) ((Log[t])^2)+4 ((σH)^2) ((Log[μH])^2)+12 ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]+(4 ((μH)^2)+9 ((σH)^2)) ((Log[1+(((σH)^2)/((μH)^2))])^2)-4 ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])))^2)-(1-nU) (((nH ((μH)^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (1-nH) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))),1,((((1-nH))^3) (1-nU) (((nH ((μH)^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (-1+nH) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nH))^2) (4 (((-1+nH))^3) (nH^2) ((((b0^2)+(b1^2) (t^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((4 ((σH)^2) ((Log[t])^2)+4 ((σH)^2) ((Log[μH])^2)+12 ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]+(4 ((μH)^2)+9 ((σH)^2)) ((Log[1+(((σH)^2)/((μH)^2))])^2)-4 ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])))^2)-(1-nU) (((nH ((μH)^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (-1+nH) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]
spcng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
uspcng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√((1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))],0],1]
dfuspcng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((((1-nH))^3) (nH^2) (1-nU) ((μH)^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((((((b0+b1 t))^2)+(((σH)^2)/nH)) (((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2)))/((E^((t μH)/((σH)^2))) (μH Gamma[(((μH)^2)/((σH)^2))])))-(1/((σH)^2))2 μH (((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1-nU) ((σH)^4) (((-2 nH (((((μH (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^3) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1-nH) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1-nH) (((-1+nH))^2) (((-((σH)^4) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 nH (((b0+b1 t))^2) ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(nH (((b0+b1 t))^2)+((σH)^2)) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))),1,-(((((1-nH))^3) (nH^2) (1-nU) ((μH)^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2)))/((E^((t μH)/((σH)^2))) (μH Gamma[(((μH)^2)/((σH)^2))])))-(1/((σH)^2))2 μH (((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1-nU) ((σH)^4) (((-2 nH (((((μH (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^3) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1-nH) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1-nH) (((-1+nH))^2) (((-((σH)^4) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 (b0^2) nH ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 (b1^2) nH (t^2) ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]
spcln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[((-t+μH)/((Sqrt[2]) σH))],0],1]
uspcln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(Sqrt[(((E^(-((((-t+μH))^2)/((σH)^2)))) (((-t+μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/(2 π ((σH)^4)))+(((E^(-((((-t+μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/(2 π ((σH)^2)))]),1,((Sqrt[(((E^(-((((t-μH))^2)/((σH)^2)))) ((((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH))))/((σH)^4))])/(Sqrt[2 π]))],0],1]
dfuspcln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((1-nH))^3) (nH^2) (1-nU) ((((((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((((b0+b1 t))^2)+(((σH)^2)/nH))))^2))/(4 (((-1+nH))^3) (nH^2) (((b0+b1 t))^4) ((((t^2)-2 t μH+((μH)^2)+((σH)^2)))^2)+(-1+nU) ((σH)^4) (((-2 ((σH)^2)+nH ((t^2)-2 t μH+((μH)^2)+2 ((σH)^2))))^2)),1,(((((((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH))))^2)/(((((((b0^2)+(b1^2) (t^2)))^2) ((((t^2)-2 t μH+((μH)^2)+((σH)^2)))^2))/(-1+nU))+(((((((((t-μH))^2) ((σH)^2))/(2 (-1+nH)))+(((σH)^4)/nH)))^2)/(-1+nH))))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2nH+nU-3,2nH-2]]
spcll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],0],1]
uspcll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH ((μH)^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nH) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nH) nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))),1,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH ((μH)^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (-1+nH) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nH) nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))))],0],1]
dfuspcll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1-nH))^3) (1-nU) (((nH ((μH)^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nH) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nH))^2) (4 (((-1+nH))^3) (nH^2) (((b0+b1 t))^4) (((((μH)^2)+((σH)^2)))^2) (((4 ((σH)^2) ((Log[t])^2)+4 ((σH)^2) ((Log[μH])^2)+12 ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]+(4 ((μH)^2)+9 ((σH)^2)) ((Log[1+(((σH)^2)/((μH)^2))])^2)-4 ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])))^2)-(1-nU) (((nH ((μH)^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (1-nH) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))),1,((((1-nH))^3) (1-nU) (((nH ((μH)^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (-1+nH) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nH))^2) (4 (((-1+nH))^3) (nH^2) ((((b0^2)+(b1^2) (t^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((4 ((σH)^2) ((Log[t])^2)+4 ((σH)^2) ((Log[μH])^2)+12 ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]+(4 ((μH)^2)+9 ((σH)^2)) ((Log[1+(((σH)^2)/((μH)^2))])^2)-4 ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])))^2)-(1-nU) (((nH ((μH)^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (-1+nH) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]
spclg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
uspclg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√((1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))],0],1]
dfuspclg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((((1-nH))^3) (nH^2) (1-nU) ((μH)^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((((((b0+b1 t))^2)+(((σH)^2)/nH)) (((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2)))/((E^((t μH)/((σH)^2))) (μH Gamma[(((μH)^2)/((σH)^2))])))-(1/((σH)^2))2 μH (((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1-nU) ((σH)^4) (((-2 nH (((((μH (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^3) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1-nH) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1-nH) (((-1+nH))^2) (((-((σH)^4) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 nH (((b0+b1 t))^2) ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(nH (((b0+b1 t))^2)+((σH)^2)) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))),1,-(((((1-nH))^3) (nH^2) (1-nU) ((μH)^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2)))/((E^((t μH)/((σH)^2))) (μH Gamma[(((μH)^2)/((σH)^2))])))-(1/((σH)^2))2 μH (((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1-nU) ((σH)^4) (((-2 nH (((((μH (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^3) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1-nH) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1-nH) (((-1+nH))^2) (((-((σH)^4) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 (b0^2) nH ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 (b1^2) nH (t^2) ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]
spcgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[((-t+μH)/((Sqrt[2]) σH))],0],1]
uspcgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(Sqrt[(((((-t+μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((E^((((-t+μH))^2)/((σH)^2))) (2 π ((σH)^4))))+(((((b0+b1 t))^2)+(((σH)^2)/nH))/((E^((((-t+μH))^2)/((σH)^2))) (2 π ((σH)^2))))]),1,((Sqrt[(((((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)))/((E^((((t-μH))^2)/((σH)^2))) ((σH)^4)))])/(Sqrt[2 π]))],0],1]
dfuspcgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((1-nH))^3) (nH^2) (1-nU) ((((((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((((b0+b1 t))^2)+(((σH)^2)/nH))))^2))/(4 (((-1+nH))^3) (nH^2) (((b0+b1 t))^4) ((((t^2)-2 t μH+((μH)^2)+((σH)^2)))^2)+(-1+nU) ((σH)^4) (((-2 ((σH)^2)+nH ((t^2)-2 t μH+((μH)^2)+2 ((σH)^2))))^2)),1,(((((((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH))))+((σH)^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH))))^2)/(((((((b0^2)+(b1^2) (t^2)))^2) ((((t^2)-2 t μH+((μH)^2)+((σH)^2)))^2))/(-1+nU))+(((((((((t-μH))^2) ((σH)^2))/(2 (-1+nH)))+(((σH)^4)/nH)))^2)/(-1+nH))))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]
spcgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],0],1]
uspcgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH ((μH)^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nH) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nH) nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))),1,(1/(4 (Sqrt[π])))(√(-(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH ((μH)^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (-1+nH) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nH) nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))))],0],1]
dfuspcgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1-nH))^3) (1-nU) (((nH ((μH)^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nH) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nH))^2) (4 (((-1+nH))^3) (nH^2) (((b0+b1 t))^4) (((((μH)^2)+((σH)^2)))^2) (((4 ((σH)^2) ((Log[t])^2)+4 ((σH)^2) ((Log[μH])^2)+12 ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]+(4 ((μH)^2)+9 ((σH)^2)) ((Log[1+(((σH)^2)/((μH)^2))])^2)-4 ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])))^2)-(1-nU) (((nH ((μH)^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (1-nH) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))),1,((((1-nH))^3) (1-nU) (((nH ((μH)^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (-1+nH) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nH))^2) (4 (((-1+nH))^3) (nH^2) ((((b0^2)+(b1^2) (t^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((4 ((σH)^2) ((Log[t])^2)+4 ((σH)^2) ((Log[μH])^2)+12 ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]+(4 ((μH)^2)+9 ((σH)^2)) ((Log[1+(((σH)^2)/((μH)^2))])^2)-4 ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])))^2)-(1-nU) (((nH ((μH)^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (-1+nH) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]
spcgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
uspcgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√((1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))],0],1]
dfuspcgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((((1-nH))^3) (nH^2) (1-nU) ((μH)^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((((((b0+b1 t))^2)+(((σH)^2)/nH)) (((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2)))/((E^((t μH)/((σH)^2))) (μH Gamma[(((μH)^2)/((σH)^2))])))-(1/((σH)^2))2 μH (((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1-nU) ((σH)^4) (((-2 nH (((((μH (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^3) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1-nH) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1-nH) (((-1+nH))^2) (((-((σH)^4) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 nH (((b0+b1 t))^2) ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(nH (((b0+b1 t))^2)+((σH)^2)) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))),1,-(((((1-nH))^3) (nH^2) (1-nU) ((μH)^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2)))/((E^((t μH)/((σH)^2))) (μH Gamma[(((μH)^2)/((σH)^2))])))-(1/((σH)^2))2 μH (((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1-nU) ((σH)^4) (((-2 nH (((((μH (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^3) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+(1-nH) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1-nH) (((-1+nH))^2) (((-((σH)^4) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 (b0^2) nH ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+4 (b1^2) nH (t^2) ((μH)^2) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2))/(E^((t μH)/((σH)^2))))-((μH)^2) (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^3))/(E^((t μH)/((σH)^2))))-2 ((μH)^2) σH (MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)))],If[b0>0∨b1>0,Min[nH-1,nU-1],nH-1]],If[b0>0∨b1>0,2 nH+nU-3,2 nH-2]]

odann[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(1/2) (-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))],0],1]
odann[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])/(2 (nD+nH))),0],1]
uodann[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[2]))(√((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (((4+nD+nH))^3))))),1,(1/(Sqrt[2]))(√((((E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(((E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (((4+nD+nH))^3)))))],0],1]
dfuodann[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 ((((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (((4+nD+nH))^3)))))^2))/((4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) (((b0+b1 t))^4) ((((E^((((t-μH))^2)/((σH)^2))) (nD^2) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4)+(E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2))))^2))/((((nD+nH))^4) (-1+nU) (π^2) ((σD)^8) ((σH)^8))+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))))^2)),1,(4 ((((((E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(((E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (((4+nD+nH))^3)))))^2))/((4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) ((((b0^2)+(b1^2) (t^2)))^2) ((((E^((((t-μH))^2)/((σH)^2))) (nD^2) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4)+(E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2))))^2))/((((nD+nH))^4) (-1+nU) (π^2) ((σD)^8) ((σH)^8))+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
odanl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(1/2) (-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],0],1]
odanl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(2 (nD+nH))),0],1]
uodanl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/4) √(((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))),1,(1/4) √(((8 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))],0],1]
dfuodanl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/((((nD+nH))^4) (-1+nU) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) ((Log[1+(((σH)^2)/((μH)^2))])^6)))4 (((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((b0+b1 t))^2) (((t-μD))^2) ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((b0+b1 t))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((μH)^2) ((σD)^4) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 b0 b1 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) t ((μH)^2) ((σD)^4) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((μH)^2) ((σD)^4) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((σD)^4) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)),1,(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/((((nD+nH))^4) (-1+nU) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^6)))4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(2 Log[1+(((σH)^2)/((μH)^2))])))) ((((b0^2)+(b1^2) (t^2)))^2) (((4 (E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((σH)^2) ((Log[t])^2)+4 (E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((σH)^2) ((Log[μH])^2)+12 (E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((σH)^2) Log[μH] Log[1+(((σH)^2)/((μH)^2))]-4 (E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((σH)^2) Log[t] (2 Log[μH]+3 Log[1+(((σH)^2)/((μH)^2))])+((Log[1+(((σH)^2)/((μH)^2))])^2) ((E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) (4 ((μH)^2)+9 ((σH)^2))+4 (E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))) (nD^2) ((μH)^2) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) (((μH)^2)+((σH)^2)) Log[1+(((σH)^2)/((μH)^2))])))^2)+(1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
odang[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
odang[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nD+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(2 (nD+nH))),0],1]
uodang[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))4 (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,(1/2) √(((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))],0],1]
dfuodang[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((nD+nH))^2))4 (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))4 (((b0+b1 t))^4) ((((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (nH^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))4 nH ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)/((1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)+(1/((((nD+nH))^4) (-1+nU)))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/π)+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) π ((σD)^2)))-((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/(π ((σD)^2)))-((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))-(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

odaln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) (-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(1/2) r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],0],1]
odaln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(2 (nD+nH))),0],1]
uodaln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/4) √(((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))),1,(1/4) √(((8 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))],0],1]
dfuodaln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uodaln[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uodaln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
odall[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(1/2) (-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],0],1]
odall[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD+nH-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(2 (nD+nH))),0],1]
uodall[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/4) √((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) (π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) (π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))),1,(1/4) √((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))],0],1]
dfuodall[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) (π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) (π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(256 ((1/(64 (((nD+nH))^4) (-1+nU) (π^2)))(((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (((b0+b1 t))^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (((b0+b1 t))^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(256 (-2+nD+nH)))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(256 ((1/(64 (((nD+nH))^4) (-1+nU) (π^2)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(256 (-2+nD+nH)))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
odalg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
odalg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(2 (nD+nH)))(-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nD+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]
uodalg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(16 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(8 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))(nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(16 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(8 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))],0],1]
dfuodalg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(16 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(8 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((nD+nH))^2))(nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(64 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 b0 b1 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) t ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((b0+b1 t))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (nH^2) (((b0+b1 t))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(16 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(8 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))nH ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(16 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(8 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)/((1/(-2+nD+nH))((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(16 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(8 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)+(1/(64 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
odagn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) (-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],0],1]
odagn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 nD (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(2 (nD+nH))),0],1]
uodagn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(16 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,(1/2) √(((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],0],1]
dfuodagn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(16 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))4 (((b0+b1 t))^4) ((((((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/(π ((σH)^4)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (nD^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)),1,(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) π ((σH)^2)))-((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/(π ((σH)^2)))-((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/(π ((σH)^4)))+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))-(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
odagl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-(1/2) (-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],0],1]
odagl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(2 (nD+nH)))(nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 nD (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),0],1]
uodagl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(16 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,√((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(16 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],0],1]
dfuodagl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(16 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/(64 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 b0 b1 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) t ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (nD^2) (((b0+b1 t))^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (nD^2) (((b0+b1 t))^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(16 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)),1,((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(16 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/(64 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(16 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)-8 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(4 (((4+nD+nH))^3)))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(16 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
odagg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[r-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
odagg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(nD+nH)),0],1]
uodagg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))(nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))],0],1]
dfuodagg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))(nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))(((b0+b1 t))^4) ((((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(nD^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(nH^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))nH ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)/((1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)+(1/((((nD+nH))^4) (-1+nU)))((((2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))-(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))-(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ppvnn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((r (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(-2+r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))])),0],1]
ppvnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD (1+Erf[((-t+μD)/((Sqrt[2]) σD))]))/(nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erf[((-t+μH)/((Sqrt[2]) σH))])),0],1]

uppvnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))(√(((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4)))),1,(1/(Sqrt[π]))(√(((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4))))],0],1]

dfuppvnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((-2+nD+nH) (-1+nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))/((nD^2) (2-nD-nH) (nH^2) (((4+nD+nH))^6) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(1-nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))),1,-(((-2+nD+nH) (-1+nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))/((nD^2) (2-nD-nH) (nH^2) (((4+nD+nH))^6) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(1-nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
ppvnl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((r (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(-2+r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
ppvnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(nD (1+Erf[((-t+μD)/((Sqrt[2]) σD))]))))),0],1]

uppvnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[π])))(√((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(2 (Sqrt[π])))(√((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0],1]

dfuppvnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))(((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))(nD^2) (nH^2) (((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))),1,(((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))(((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))(nD^2) (nH^2) (((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
ppvng[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((r (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(-2+r Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]
ppvng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0],1]

uppvng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4))),1,(1/(Sqrt[π]))2 √(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4)))],0],1]

dfuppvng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-1+nU))(nD^2) (nH^2) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (1-nH) π ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD nH π ((μH)^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))),1,((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-1+nU))(nD^2) (nH^2) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
ppvln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-((r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-2+(1-r)Erfc[((-t+μH)/((Sqrt[2]) σH))]+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])),0],1]
ppvln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1+((nH (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))/(nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])),0],1]
uppvln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[π])))(√((4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3)))),1,(1/(2 (Sqrt[π])))(√((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3))))],0],1]

dfuppvln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^4) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^2) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (nH^2) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) ((μD)^2) ((σD)^4) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((σD)^2) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/(16 (((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6)))),1,(((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^4) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^2) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((σD)^4) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((σD)^2) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/(16 (((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
ppvll[t_,r_,μD_,μH_,σD_,σH_]:=min[max[
-((r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-2+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
ppvll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])))),0],1]

uppvll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[π])))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(1/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))]))))(nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(1/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))]))))2 (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(1/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))))(-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))))2 (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nD) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((b0+b1 t))^2) ((((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))+(1/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))]))))((μH)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))+(1/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))))((μD)^2) (((((μD)^2)+((σD)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(2 (Sqrt[π])))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(1/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))]))))(nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(1/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))]))))2 (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(1/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))))(-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))))2 (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (1-nD) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((b0^2)+(b1^2) (t^2)) ((((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))+(1/(E^((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))]))))((μH)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))+(1/(E^((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))]))))((μD)^2) (((((μD)^2)+((σD)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]]))))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 ((Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]]))))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0],1]
dfuppvll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uppvll[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uppvll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
ppvlg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-((r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-2+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]
ppvlg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0],1]

uppvlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[π])))(√((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-2 (nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3)))),1,(1/(2 (Sqrt[π])))(√((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3))))],0],1]

dfuppvlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-2 (nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-2 (nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-2 (nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (1-nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6)))),1,(((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
ppvgn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+(((-1+r) (1+Erf[((-t+μH)/((Sqrt[2]) σH))]))/(2 r (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))))),0],1]
ppvgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nH (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))/(2 nD (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))))),0],1]

uppvgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((1/(E^((((t-μH))^2)/((σH)^2))))(-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(E^((((t-μH))^2)/((σH)^2))))2 (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1-nD) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((b0+b1 t))^2) (((2 ((μD)^2) (((t-μH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(E^((((t-μH))^2)/((σH)^2))))+((2 ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(E^((((t-μH))^2)/((σH)^2))))+(1/(E^((2 t μD)/((σD)^2))))π ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(E^((2 t μD)/((σD)^2))))4 π ((μD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2))+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))+(1/(E^((2 t μD)/((σD)^2))))(-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(E^((2 t μD)/((σD)^2))))2 (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2))+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4))),1,(1/(Sqrt[π]))2 √(((1/(E^((((t-μH))^2)/((σH)^2))))(-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(E^((((t-μH))^2)/((σH)^2))))2 (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1-nD) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((b0^2)+(b1^2) (t^2)) (((2 ((μD)^2) (((t-μH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(E^((((t-μH))^2)/((σH)^2))))+((2 ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(E^((((t-μH))^2)/((σH)^2))))+(1/(E^((2 t μD)/((σD)^2))))π ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(E^((2 t μD)/((σD)^2))))4 π ((μD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2))+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))+(1/(E^((2 t μD)/((σD)^2))))(-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(E^((2 t μD)/((σD)^2))))2 (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2))+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4)))],0],1]
dfuppvgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uppvgn[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uppvgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
ppvgl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+(((-1+r) Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(2 r (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))))),0],1]
ppvgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(2 nD (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))))),0],1]

uppvgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/4) √(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4)),1,(1/4) √(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4))],0],1]

dfuppvgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(256 (((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) (((nD^2) (nH^2) (((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (((b0+b1 t))^2) ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nD nH (((b0+b1 t))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(64 (-1+nU) (((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))+((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(256 (-2+nD+nH) (((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8)))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(256 (((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) (((nD^2) (nH^2) (((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD nH ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (t^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(64 (-1+nU) (((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))+((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(256 (-2+nD+nH) (((nD+(1/2) nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
ppvgg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(r (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(-1+r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
ppvgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
uppvgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))),1,√(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)))],0],1]

dfuppvgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) (((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))+((nD^2) (nH^2) ((((E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8)))),1,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) (((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))+((nD^2) (nH^2) ((((E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

npvnn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((r Erfc[((-t+μD)/((Sqrt[2]) σD))])/((-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))])))),0],1]
npvnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nD Erfc[((-t+μD)/((Sqrt[2]) σD))])/(nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))),0],1]

unpvnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4))((((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((π-nH π) ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/(π ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((π-nD π) ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(π ((σD)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(((4+nD+nH))^3)))),1,√((1/(((nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4))((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/(π ((σH)^2)))+(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(π ((σD)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(((4+nD+nH))^3))))],0],1]

dfunpvnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((π-nH π) ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/(π ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((π-nD π) ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(π ((σD)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(((4+nD+nH))^3))))^2)/((1/((-1+nU) (π^2) ((σD)^8) ((σH)^8)))4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) (nD^4) (nH^4) (((b0+b1 t))^4) ((((E^((((t-μD))^2)/((σD)^2))) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^((((t-μH))^2)/((σH)^2))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((-1+nH) π ((σH)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/π)+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((-1+nD) π ((σD)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(((4+nD+nH))^3))))^2)),1,((((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/(π ((σH)^2)))+(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(π ((σD)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(((4+nD+nH))^3))))^2)/((1/((-1+nU) (π^2) ((σD)^8) ((σH)^8)))4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) (nD^4) (nH^4) ((((b0^2)+(b1^2) (t^2)))^2) ((((E^((((t-μD))^2)/((σD)^2))) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^((((t-μH))^2)/((σH)^2))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((-1+nH) π ((σH)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/π)+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((-1+nD) π ((σD)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(((4+nD+nH))^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvnl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((r Erfc[((-t+μD)/((Sqrt[2]) σD))])/((-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))),0],1]
npvnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[1-(1/(1+((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(nD Erfc[((-t+μD)/((Sqrt[2]) σD))])))),0],1]

unpvnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((1/((π-nD π) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(((nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4)),1,(1/2) √(((1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(((nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4))],0],1]

dfunpvnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nD π) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/π)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) π ((σD)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (nD^2) (nH^2) (((-4 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/((σD)^4))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((b0+b1 t))^2) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/((σD)^2))4 (E^(-((((t-μD))^2)/((σD)^2)))) nH (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (((b0+b1 t))^2) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)),1,((((1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/π)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) π ((σD)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (nD^2) (nH^2) (((-4 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((4 (b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^4))+((4 (b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (t^2) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^4))+(1/((σD)^2))4 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvng[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((r Erfc[((-t+μD)/((Sqrt[2]) σD))])/(2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),0],1]
npvng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nD Erfc[((-t+μD)/((Sqrt[2]) σD))])/(2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),0],1]

unpvng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((1/((π-nD π) ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((1/2) nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)),1,(1/2) √(((1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((1/2) nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))],0],1]

dfunpvng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nD π) ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/(-1+nU))(nD^2) (nH^2) (((-((2 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/π)+(1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((b0+b1 t))^2) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nH (nD (((b0+b1 t))^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nD nH (((b0+b1 t))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/π)+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2)),1,((((1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/(-1+nU))(nD^2) (nH^2) (((-((2 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/π)+((2 (b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^4)))+((2 (b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (t^2) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^4)))+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD nH ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (t^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (nH^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/π)+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (nH^2) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/((-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))])))),0],1]
npvln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))),0],1]


unpvln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))/(((nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4)),1,(1/2) √(((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))/(((nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4))],0],1]

dfunpvln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (nD^2) (nH^2) (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/((σH)^4))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((b0+b1 t))^2) (((t-μH))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/((σH)^2))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (((b0+b1 t))^2) ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)),1,((((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (nD^2) (nH^2) (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((4 (b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((σH)^4))+((4 (b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (t^2) (((t-μH))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((σH)^4))+(1/((σH)^2))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (t^2) ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvll[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/((-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))),0],1]
npvll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))),0],1]

unpvll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4)),1,(1/2) √(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4))],0],1]

dfunpvll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(16 (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(16 (-2+nD+nH) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8))+((nD^2) (nH^2) (((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (((b0+b1 t))^2) ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (((b0+b1 t))^2) ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))/(4 (-1+nU) (π^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8)))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(-2+nD+nH))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (nD^2) (nH^2) (((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (t^2) ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvlg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),0],1]
npvlg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),0],1]

unpvlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/4) √(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((1/2) nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)),1,(1/4) √(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((1/2) nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))],0],1]

dfunpvlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(256 ((((1/2) nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) (((nD^2) (nH^2) (((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (((b0+b1 t))^2) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD nH (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(64 (-1+nU) ((((1/2) nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))+((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^4) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(256 (-2+nD+nH) ((((1/2) nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8)))),1,((((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(256 ((((1/2) nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((1/(-1+nU))4 (nD^2) (nH^2) (((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (t^2) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD nH ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (t^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (nH^2) ((σD)^4) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (nH^2) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvgn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/((-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))])))),0],1]
npvgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))),0],1]

unpvgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,2 √(((1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4)),1,2 √(((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4))],0],1]

dfunpvgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))(nD^2) (nH^2) (((-((2 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/π)+(1/(π ((σH)^4)))2 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((b0+b1 t))^2) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH (((b0+b1 t))^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD nH (((b0+b1 t))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))))^2)),1,((((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))(nD^2) (nH^2) (((-((2 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/π)+((2 (b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^4)))+((2 (b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (t^2) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^4)))+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (t^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvgl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(1/(1-((2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/((-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))),0],1]
npvgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(1+((2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))),0],1]

unpvgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4)),1,√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4))],0],1]

dfunpvgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))4 (nD^2) (nH^2) (((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (((b0+b1 t))^2) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nD nH (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))4 (nD^2) (nH^2) (((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (t^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
npvgg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
npvgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]
unpvgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(E^(-((2 t μD)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))),1,√(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)))],0],1]

dfunpvgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((-2+nD+nH) (-1+nU) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(E^(-((2 t μD)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((1-nU) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(nD^2) (2-nD-nH) (nH^2) (((4+nD+nH))^6) ((((E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (1-nH) nH ((μD)^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))),1,-(((-2+nD+nH) (-1+nU) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((1-nU) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(nD^2) (2-nD-nH) (nH^2) (((4+nD+nH))^6) ((((E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

dornn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[(((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]) Erfc[((-t+μH)/((Sqrt[2]) σH))])/(Erfc[((-t+μD)/((Sqrt[2]) σD))] (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))),0]
udornn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsnn[t,nD,nH,μD,μH,σD,σH],sp=spcnn[t,nD,nH,μD,μH,σD,σH],us=usnsnn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcnn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(((se sp) (Sqrt[((((us/(se (1-se)))))^2)+((((up/(sp (1-sp)))))^2)]))/((1-se) (1-sp)))],0]
dfudornn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((-2+nD+nH) (-1+nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2))/((1-nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2)+(2-nD-nH) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2))),1,-(((-2+nD+nH) (-1+nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2))/((1-nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2)+(2-nD-nH) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dornl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[(((1+Erf[((-t+μD)/((Sqrt[2]) σD))]) (1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
udornl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/(2 (Sqrt[π])))(√((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) nD (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(2 (Sqrt[π])))(√((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) nD (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0]
dfudornl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^8) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (-2+nD+nH) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^8) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+(((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (-1+nU) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^8) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^8) ((Log[1+(((σH)^2)/((μH)^2))])^6)))),1,(((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((1/(-2+nD+nH))(((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))(((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dorng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[(((1+Erf[((-t+μD)/((Sqrt[2]) σD))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(2 ((1-(1/2) (1+Erf[((-t+μD)/((Sqrt[2]) σD))])) (1-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),0]
udorng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsng[t,nD,nH,μD,μH,σD,σH],sp=spcng[t,nD,nH,μD,μH,σD,σH],us=usnsng[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcng[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(((se sp) (Sqrt[((((us/(se (1-se)))))^2)+((((up/(sp (1-sp)))))^2)]))/((1-se) (1-sp)))],0]
dfudorng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((udorng[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((udorng[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
dorln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((-t+μH)/((Sqrt[2]) σH))] (1-(2/(Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))))/(-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])),0]
udorln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/(Sqrt[π]))(√((4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^4) ((Log[1+(((σD)^2)/((μD)^2))])^3)))),1,(1/(Sqrt[π]))(√((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^4) ((Log[1+(((σD)^2)/((μD)^2))])^3))))],0]
dfudorln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((-2+nD+nH) (-1+nU) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((1-nU) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)+(2-nD-nH) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))),1,-(((-2+nD+nH) (-1+nU) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((1-nU) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)+(2-nD-nH) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((σD)^2) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dorll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]) Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
udorll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/(Sqrt[π]))(√(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) nD (-1+nH) nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(Sqrt[π]))(√(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) nD (-1+nH) nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0]
dfudorll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((1/(-2+nD+nH))((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)),1,((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((1/(-2+nD+nH))((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dorlg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[(((1-(2/(Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0]
udorlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,√((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^4) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))),1,√((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^4) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)))],0]
dfudorlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/(-1+nU))((((2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (((b0+b1 t))^2) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (((b0+b1 t))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^4) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)),1,(((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/(-1+nU))((((2 (b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (t^2) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b0^2) (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b1^2) (E^(-((2 t μH)/((σH)^2)))) (t^2) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^4) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dorgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),0]
udorgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,√(((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nH π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^4))),1,√(((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nH π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^4)))],0]
dfudorgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nH π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))(((-(1/(nH π))8 (E^(-((((t-μH))^2)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^4)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (((b0+b1 t))^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nH π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) (((b0+b1 t))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(nH π))8 (E^(-((((t-μH))^2)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/((-1+nH) π ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)),1,((((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nH π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))(((-(1/(nH π))8 (E^(-((((t-μH))^2)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^4)))8 (b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(π ((σH)^4)))8 (b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) (t^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nH π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b0^2) (E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b1^2) (E^(-((2 t μD)/((σD)^2)))) (t^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(nH π))8 (E^(-((((t-μH))^2)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/((-1+nH) π ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dorgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[-((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),0]
udorgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/2) √(((1/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^4))),1,(1/2) √(((1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^4)))],0]
dfudorgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))4 ((((1/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (((b0+b1 t))^2) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)),1,((((1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((1/(-1+nU))4 ((((1/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (t^2) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b0^2) (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b1^2) (E^(-((2 t μD)/((σD)^2)))) (t^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
dorgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[(((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0]
udorgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,√(((1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^4) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))),1,√(((1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^4) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)))],0]
dfudorgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^8) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((((-(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) (((b0+b1 t))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (((b0+b1 t))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((-1+nU) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^8) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))+((((1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((-2+nD+nH) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^8) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8)))),1,((((1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/(-1+nU))(((-(1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nD ((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b0^2) (E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b1^2) (E^(-((2 t μD)/((σD)^2)))) (t^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b0^2) (E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b1^2) (E^(-((2 t μH)/((σH)^2)))) (t^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(nD ((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(nH ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

plrnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((1+Erf[((-t+μD)/((Sqrt[2]) σD))])/(1+Erf[((-t+μH)/((Sqrt[2]) σH))])),0]
uplrnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(Sqrt[(2/π)]) √((1/(((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^4))((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^2)))),1,(Sqrt[(2/π)]) √((1/(((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^4))((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^2))))],0]
dfuplrnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^2))))^2)/((1/(-1+nU))(((b0+b1 t))^4) ((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^2))))^2)+(1/(-2+nD+nH))((((((E^(-((((t-μH))^2)/((σH)^2)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/nH)+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/nD)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (-1+nD) ((σD)^2)))))^2)),1,((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^2))))^2)/((1/(-2+nD+nH))((((((E^(-((((t-μH))^2)/((σH)^2)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/nH)+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/nD)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (-1+nD) ((σD)^2)))))^2)+(1/(-1+nU))(((-(((E^(-((((t-μH))^2)/((σH)^2)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/nH)-(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))-(((E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/nD)-(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/(2 (-1+nD) ((σD)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((1+Erf[((-t+μH)/((Sqrt[2]) σH))]))^2))/((σD)^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
plrnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((1+Erf[((-t+μD)/((Sqrt[2]) σD))])/(Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
uplrnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/(2 (Sqrt[π])))(√(((1/((1-nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/(nD ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((1-nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4))),1,(Sqrt[(2/π)]) √((1/((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4))((1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^2))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0]
dfuplrnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((1-nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/(nD ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((1-nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-1+nU))(((-((8 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (((b0+b1 t))^2) (((t-μD))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^4))+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/(nD ((σD)^2)))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (((b0+b1 t))^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)),1,(64 ((((1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^2))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-1+nU))4 (((-((4 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)-((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) ((σD)^2)))+(1/((σD)^4))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^2))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (t^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
plrng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))])/(2 (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0]
uplrng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/2) √(((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))/(((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)),1,(1/2) √((1/(((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))],0]
dfuplrng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) (((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/((-1+nD) π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/((-1+nD) π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-1+nU))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/((-1+nD) π ((σD)^2)))-(1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))-(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)-((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
plrln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[-((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])),0]
uplrln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsln[t,nD,nH,μD,μH,σD,σH],sp=spcln[t,nD,nH,μD,μH,σD,σH],us=usnsln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/(1-sp))))^2)+(((((se up)/(((1-sp))^2))))^2)])],0]
dfuplrln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uplrln[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uplrln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
plrll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
uplrll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsll[t,nD,nH,μD,μH,σD,σH],sp=spcll[t,nD,nH,μD,μH,σD,σH],us=usnsll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/(1-sp))))^2)+(((((se up)/(((1-sp))^2))))^2)])],0]
dfuplrll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uplrll[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uplrll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
plrlg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[-((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(2 (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0]
uplrlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snslg[t,nD,nH,μD,μH,σD,σH],sp=spclg[t,nD,nH,μD,μH,σD,σH],us=usnslg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspclg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/(1-sp))))^2)+(((((se up)/(((1-sp))^2))))^2)])],0]
dfuplrlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uplrlg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uplrlg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
plrgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((2 (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])),0]
uplrgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsgn[t,nD,nH,μD,μH,σD,σH],sp=spcgn[t,nD,nH,μD,μH,σD,σH],us=usnsgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/(1-sp))))^2)+(((((se up)/(((1-sp))^2))))^2)])],0]
dfuplrgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uplrgn[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uplrgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
plrgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[-((2 (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
uplrgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsgl[t,nD,nH,μD,μH,σD,σH],sp=spcgl[t,nD,nH,μD,μH,σD,σH],us=usnsgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/(1-sp))))^2)+(((((se up)/(((1-sp))^2))))^2)])],0]
dfuplrgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uplrgl[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uplrgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
plrgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0]
uplrgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsgg[t,nD,nH,μD,μH,σD,σH],sp=spcgg[t,nD,nH,μD,μH,σD,σH],us=usnsgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/(1-sp))))^2)+(((((se up)/(((1-sp))^2))))^2)])],0]
dfuplrgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uplrgg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uplrgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]

nlrnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((-t+μD)/((Sqrt[2]) σD))])/(Erfc[((-t+μH)/((Sqrt[2]) σH))])),0]
unlrnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(Sqrt[(2/π)]) √((1/((Erfc[((-t+μH)/((Sqrt[2]) σH))])^4))((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2)))),1,(Sqrt[(2/π)]) √((1/((Erfc[((-t+μH)/((Sqrt[2]) σH))])^4))((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))],0]
dfunlrnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))^2)/((1/(-2+nD+nH))((((((E^(-((((t-μH))^2)/((σH)^2)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/nH)+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/nD)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(2 (-1+nD) ((σD)^2)))))^2)+(1/(-1+nU))(((b0+b1 t))^4) ((((((E^(-((((t-μH))^2)/((σH)^2)))) ((t^2)-2 t μH+((μH)^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))))^2)),1,((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))^2)/((1/(-2+nD+nH))((((((E^(-((((t-μH))^2)/((σH)^2)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/nH)+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/nD)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(2 (-1+nD) ((σD)^2)))))^2)+(1/((-1+nU) ((σD)^8) ((σH)^8)))(E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) ((((b0^2)+(b1^2) (t^2)))^2) ((((E^((((t-μD))^2)/((σD)^2))) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(E^((((t-μH))^2)/((σH)^2))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
nlrnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((-t+μD)/((Sqrt[2]) σD))])/(Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
unlrnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/(2 (Sqrt[π])))(√((1/((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4))((1/((1-nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/(nD ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((1-nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))),1,(Sqrt[(2/π)]) √((1/((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4))((1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^2))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0]
dfunlrnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((1-nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/(nD ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((1-nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-1+nU))(((-((8 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (((b0+b1 t))^2) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^4))+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/(nD ((σD)^2)))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (((b0+b1 t))^2) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)),1,(64 ((((1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^2))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-1+nU))4 (((-((4 (E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/nD)-((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((-1+nD) ((σD)^2)))+(1/((σD)^4))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))/((σD)^2))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (t^2) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
nlrng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[((-t+μD)/((Sqrt[2]) σD))])/(2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0]
unlrng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/2) √((1/((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^4))((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))),1,(1/2) √((1/((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^4))((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))],0]
dfunlrng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) (((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-1+nU))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))-(1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)-((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))-(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)-((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
nlrln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(Erfc[((-t+μH)/((Sqrt[2]) σH))])),0]
unlrln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsln[t,nD,nH,μD,μH,σD,σH],sp=spcln[t,nD,nH,μD,μH,σD,σH],us=usnsln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/sp)))^2)+((((((1-se) up)/(sp^2))))^2)])],0]
dfunlrln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((unlrln[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((unlrln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
nlrll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
unlrll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[With[{se=snsll[t,nD,nH,μD,μH,σD,σH],sp=spcll[t,nD,nH,μD,μH,σD,σH],us=usnsll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[((((us/sp)))^2)+((((((1-se) up)/(sp^2))))^2)])],0]
dfunlrll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((unlrll[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((unlrll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
nlrlg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0]
unlrlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,(1/2) √((1/((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^4))(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))),1,(1/2) √((1/((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^4))(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))],0]
dfunlrlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1/(-1+nU))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 b0 b1 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) t ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (t^2) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))4 (((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^4) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,(4 (((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))/((1/(-2+nD+nH))4 (((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^4) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-1+nU))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (t^2) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(nD π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/nH)2 ((σH)^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
nlrgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(Erfc[((-t+μH)/((Sqrt[2]) σH))])),0]
unlrgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,2 √((1/((Erfc[((-t+μH)/((Sqrt[2]) σH))])^4))((1/(π ((σH)^4)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))),1,2 √((1/((Erfc[((-t+μH)/((Sqrt[2]) σH))])^4))((1/(π ((σH)^4)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))],0]
dfunlrgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(π ((σH)^4)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) (((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(nH π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/((-1+nH) π ((σH)^2)))+(2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/nD)((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)),1,((((1/(π ((σH)^4)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(nH π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/((-1+nH) π ((σH)^2)))+(2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/nD)((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-1+nU))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(nH π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/((-1+nH) π ((σH)^2)))-(1/(π ((σH)^4)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-((2 (E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2))/(π ((σH)^2)))+(2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))-(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/nD)((σD)^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)-((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
nlrgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0]
unlrgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,2 √((1/((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4))(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))),1,2 √((1/((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^4))(((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))],0]
dfunlrgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(4 (((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1/(-1+nU))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 b0 b1 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) t ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (t^2) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (((b0+b1 t))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))4 (((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/nD)((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)),1,(4 (((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))/((1/(-2+nD+nH))4 (((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/nD)((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-1+nU))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (t^2) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/nD)2 ((σD)^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
nlrgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=max[((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0]
unlrgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=max[Switch[nl,0,√((1/((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^4))((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))),1,√((1/((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^4))((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))],0]
dfunlrgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) ((((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/nD)((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-2+nD+nH))((((1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/nD)((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-1+nU))((((1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/nD)((σD)^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)-((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)-((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

jsnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]),-1],1]
ujsnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[2 π]))(√((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((σD)^2))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((σH)^2)))),1,(1/(Sqrt[2 π]))(√((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/((σD)^2))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)))/((σH)^2))))],-1],1]
dfujsnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((σD)^2))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((σH)^2))))^2)/(((((((E^(-((((t-μD))^2)/((σD)^2))))/nD)+((E^(-((((t-μH))^2)/((σH)^2))))/nH)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2))/(2 (-1+nH) ((σH)^2)))))^2)/(-2+nD+nH))+(((((b0+b1 t))^4) ((((((E^(-((((t-μD))^2)/((σD)^2)))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)))/((σD)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((t^2)-2 t μH+((μH)^2)+((σH)^2)))/((σH)^4))))^2))/(-1+nU))),1,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/((σD)^2))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)))/((σH)^2))))^2)/(((((((E^(-((((t-μD))^2)/((σD)^2))))/nD)+((E^(-((((t-μH))^2)/((σH)^2))))/nH)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2))/(2 (-1+nH) ((σH)^2)))))^2)/(-2+nD+nH))+(1/((-1+nU) ((σD)^8) ((σH)^8)))(E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) ((((b0^2)+(b1^2) (t^2)))^2) ((((E^((((t-μH))^2)/((σH)^2))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4)+(E^((((t-μD))^2)/((σD)^2))) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
jsnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]),-1],1]
ujsnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnsnl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcnl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujsnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujsnl[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujsnl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
jsng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],-1],1]
ujsng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[2]))(√((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))),1,(1/(Sqrt[2]))(√((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))],-1],1]
dfujsng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) ((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(π ((σD)^4)))+((E^(-((((t-μD))^2)/((σD)^2))))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((E^(-((((t-μD))^2)/((σD)^2))))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) π ((σD)^2)))+(4 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((-((E^(-((((t-μD))^2)/((σD)^2))))/(nD π))-(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) π ((σD)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/(π ((σD)^2)))-(4 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)-(1/nH)2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((E^(-((((t-μD))^2)/((σD)^2))))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) π ((σD)^2)))+(4 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
jsln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]),-1],1]
ujsln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnsln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujsln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujsln[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujsln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
jsll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (-Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]),-1],1]
ujsll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnsll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujsll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujsll[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujsll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
jslg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],-1],1]
ujslg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnslg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspclg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujslg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujslg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujslg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
jsgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),-1],1]
ujsgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnsgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujsgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujsgn[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujsgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
jsgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),-1],1]
ujsgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnsgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujsgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujsgl[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujsgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
jsgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],-1],1]
ujsgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[√(((usnsgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfujsgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ujsgg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ujsgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
bann[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]),0],1]
ubann[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsnn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcnn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubann[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((σD)^2))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((σH)^2))))^2)/(((((((E^(-((((t-μD))^2)/((σD)^2))))/nD)+((E^(-((((t-μH))^2)/((σH)^2))))/nH)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2))/(2 (-1+nH) ((σH)^2)))))^2)/(-2+nD+nH))+(1/(-1+nU))(((b0+b1 t))^4) ((((((E^(-((((t-μD))^2)/((σD)^2)))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)))/((σD)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((t^2)-2 t μH+((μH)^2)+((σH)^2)))/((σH)^4))))^2)),1,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/((σD)^2))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)))/((σH)^2))))^2)/(((((((E^(-((((t-μD))^2)/((σD)^2))))/nD)+((E^(-((((t-μH))^2)/((σH)^2))))/nH)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2))/(2 (-1+nH) ((σH)^2)))))^2)/(-2+nD+nH))+(1/((-1+nU) ((σD)^8) ((σH)^8)))(E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) ((((b0^2)+(b1^2) (t^2)))^2) ((((E^((((t-μH))^2)/((σH)^2))) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4)+(E^((((t-μD))^2)/((σD)^2))) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
banl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (2+Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]),0],1]
ubanl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsnl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcnl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubanl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ubanl[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ubanl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
bang[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
ubang[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsng[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcng[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubang[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) ((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(π ((σD)^4)))+((E^(-((((t-μD))^2)/((σD)^2))))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-(1/(Gamma[(((μH)^2)/((σH)^2))]))MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((E^(-((((t-μD))^2)/((σD)^2))))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) π ((σD)^2)))+(4 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-(1/(Gamma[(((μH)^2)/((σH)^2))]))MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((-((E^(-((((t-μD))^2)/((σD)^2))))/(nD π))-(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) π ((σD)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)))/(π ((σD)^2)))-(4 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-(1/(Gamma[(((μH)^2)/((σH)^2))]))MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)-(1/nH)2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-(1/(Gamma[(((μH)^2)/((σH)^2))]))MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((E^(-((((t-μD))^2)/((σD)^2))))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2))/(2 (-1+nD) π ((σD)^2)))+(4 (((-(E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)2 ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-(1/(Gamma[(((μH)^2)/((σH)^2))]))MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
baln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (Erfc[((-t+μH)/((Sqrt[2]) σH))]+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]),0],1]
ubaln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubaln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ubaln[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ubaln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
ball[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (2-Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]),0],1]
uball[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfuball[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uball[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uball[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
balg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (2-Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
ubalg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnslg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspclg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubalg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ubalg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ubalg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
bagn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (2+Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),0],1]
ubagn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubagn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ubagn[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ubagn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
bagl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),0],1]
ubagl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubagl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ubagl[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ubagl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
bagg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) (1-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
ubagg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[(1/2) √(((usnsgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)+((uspcgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)),0],1]
dfubagg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((ubagg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((ubagg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]

cznn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/4) (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]) Erfc[((-t+μH)/((Sqrt[2]) σH))],0],1]
ucznn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[2 π])))(√((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2)))),1,(1/(2 (Sqrt[2 π])))(√((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))],0],1]
dfucznn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))^2)/((1/(-1+nU))(((b0+b1 t))^4) ((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))^2)+(1/(-2+nD+nH))((((((E^(-((((t-μH))^2)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/nH)+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/nD)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(2 (-1+nD) ((σD)^2)))))^2)),1,((((((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))^2)/((1/(-2+nD+nH))((((((E^(-((((t-μH))^2)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/nH)+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/nD)+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(2 (-1+nD) ((σD)^2)))))^2)+(1/(-1+nU))(((-(((E^(-((((t-μH))^2)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/nH)-(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 (-1+nH) ((σH)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))-(((E^(-((((t-μD))^2)/((σD)^2)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/nD)-(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/(2 (-1+nD) ((σD)^2)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^4))+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2))/((σD)^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
cznl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]) (1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]),0],1]
ucznl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(8 (Sqrt[π])))(√((1/((1-nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/(nD ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((1-nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(2 (Sqrt[2 π])))(√((1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/((σD)^2))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0],1]
dfucznl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((1-nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/(nD ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((1-nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/nD)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/((-1+nD) ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-1+nU))(((-((8 (E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/nD)+(1/((σD)^4))8 (E^(-((((t-μD))^2)/((σD)^2)))) (((b0+b1 t))^2) (((t-μD))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/(nD ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) (nD (((b0+b1 t))^2)+((σD)^2)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (((b0+b1 t))^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)),1,(64 ((((1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(((E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/((σD)^2))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(8 (-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))/((1/(-2+nD+nH))(((((8 (E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/nD)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/((-1+nD) ((σD)^2)))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-1+nU))4 (((-((4 (E^(-((((t-μD))^2)/((σD)^2)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/nD)-((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/((-1+nD) ((σD)^2)))+(1/((σD)^4))4 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((4 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) (((1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/((σD)^2))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (t^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(nH ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
czng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/2) (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
uczng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,(1/2) √((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2))],0],1]
dfuczng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-1+nU))(((b0+b1 t))^4) (((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)+((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/nH)((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-1+nU))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(nD π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/((-1+nD) π ((σD)^2)))-(1/(π ((σD)^4)))2 (E^(-((((t-μD))^2)/((σD)^2)))) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)-((2 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2))/(π ((σD)^2)))+(2 (E^(-((2 t μH)/((σH)^2)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))-(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/nH)((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)-((b0^2)+(b1^2) (t^2)+(((σH)^2)/nH)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
czln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/4) Erfc[((-t+μH)/((Sqrt[2]) σH))] Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],0],1]
uczln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[With[{se=snsln[t,nD,nH,μD,μH,σD,σH],sp=spcln[t,nD,nH,μD,μH,σD,σH],us=usnsln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[(((sp us))^2)+(((se up))^2)])],0],1]
dfuczln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uczln[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uczln[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
czll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/4) Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-2+Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]),0],1]
uczll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[With[{se=snsll[t,nD,nH,μD,μH,σD,σH],sp=spcll[t,nD,nH,μD,μH,σD,σH],us=usnsll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[(((sp us))^2)+(((se up))^2)])],0],1]
dfuczll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uczll[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uczll[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
czlg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/2) Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],0],1]
uczlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[With[{se=snslg[t,nD,nH,μD,μH,σD,σH],sp=spclg[t,nD,nH,μD,μH,σD,σH],us=usnslg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspclg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[(((sp us))^2)+(((se up))^2)])],0],1]
dfuczlg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uczlg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uczlg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
czgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/2) Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),0],1]
uczgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[With[{se=snsgn[t,nD,nH,μD,μH,σD,σH],sp=spcgn[t,nD,nH,μD,μH,σD,σH],us=usnsgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[(((sp us))^2)+(((se up))^2)])],0],1]
dfuczgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uczgn[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uczgn[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
czgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-(1/2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),0],1]
uczgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[With[{se=snsgl[t,nD,nH,μD,μH,σD,σH],sp=spcgl[t,nD,nH,μD,μH,σD,σH],us=usnsgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[(((sp us))^2)+(((se up))^2)])],0],1]
dfuczgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uczgl[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uczgl[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]
czgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
uczgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[With[{se=snsgg[t,nD,nH,μD,μH,σD,σH],sp=spcgg[t,nD,nH,μD,μH,σD,σH],us=usnsgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl],up=uspcgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl]},(Sqrt[(((sp us))^2)+(((se up))^2)])],0],1]
dfuczgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=With[{s2=((uczgg[t,nD,nH,μD,μH,σD,σH,0,0,nl])^2),u2=((uczgg[t,nD,nH,μD,μH,σD,σH,b0,b1,nl])^2)},min[max[If[u2>s2,((u2^2)/(((s2^2)/(nD+nH-2))+((((u2-s2))^2)/(nU-1)))),nD+nH-2],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2 nD+2 nH+nU-5,2 nD+2 nH-4]]]

fminn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[-((r (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(-4+2 r Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]))]),0],1]
fminn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((Sqrt[((nD (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erf[((-t+μH)/((Sqrt[2]) σH))]))])/(Sqrt[2])),0],1]
ufminn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[2])))(√(-(((1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(π ((σH)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))+(1/((π-nD π) ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(nD (((-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^3))))),1,(1/(2 (Sqrt[2])))(√(-(((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(π ((σH)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))+(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(nD (((-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^3)))))],0],1]
dfufminn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(π ((σH)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))+(1/((π-nD π) ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)/((nD^2) ((1/((nD^2) (-2+nD+nH)))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((-1+nD) π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(1/((-1+nU) (π^2)))4 (((-(E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2)+(((E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((b0+b1 t))^2) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) nD nH (nH (((b0+b1 t))^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))-(E^(-((((t-μD))^2)/((σD)^2)))) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((σD)^4))(E^(-((((t-μD))^2)/((σD)^2)))) nD (((b0+b1 t))^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((σD)^2))(E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))),1,((((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2)+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(π ((σH)^2)))+(((2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))+(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)/((nD^2) ((1/((nD^2) (-2+nD+nH)))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((-1+nD) π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(1/((-1+nU) (π^2)))4 (((-(E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2)+(((b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (t^2) (((t-μH))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^4))+(((E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/((σH)^2))-(E^(-((((t-μD))^2)/((σD)^2)))) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((σD)^4))(b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((σD)^4))(b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (t^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/((σD)^2))(E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fminl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((Sqrt[((r (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(1+r Erf[((-t+μD)/((Sqrt[2]) σD))]+(-1+r) Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))])/(Sqrt[2])),0],1]
fminl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((Sqrt[((nD (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(nD+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))])/(Sqrt[2])),0],1]
ufminl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[2])))(√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(nD (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^3)))),1,(1/(4 (Sqrt[2])))(√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(nD (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^3))))],0],1]
dfufminl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (-2+nD+nH) (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6))+(((-4 (E^(-((((t-μD))^2)/((σD)^2)))) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^4))4 (b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^4))8 b0 b1 (E^(-((((t-μD))^2)/((σD)^2)))) nD t (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^4))4 (b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (t^2) (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^2))4 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) (((b0+b1 t))^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(256 (-1+nU) (π^2) (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6)))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) nD (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (-2+nD+nH) (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6))+(((-4 (E^(-((((t-μD))^2)/((σD)^2)))) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^4))4 (b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^4))4 (b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (t^2) (((t-μD))^2) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((σD)^2))4 (E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-2 nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) (t^2) ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(256 (-1+nU) (π^2) (((nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fming[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[-((r (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(-4+2 r Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))]),0],1]
fming[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[-((nD (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2))/(2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))]),0],1]
ufming[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(-(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((π-nD π) ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(nD (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3)))),1,√(-(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(nD (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3))))],0],1]
dfufming[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((π-nD π) ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((nD^2) (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/π)2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(8 (nD^2) (nH^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((1-nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (nD^2) nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((nD^2) (-2+nD+nH) (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+(4 (((-(1/π)(E^(-((((t-μD))^2)/((σD)^2)))) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) nD (((b0+b1 t))^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 nD (-1+nH) (nH^2) (((b0+b1 t))^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 nD nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 nD nH (nH (((b0+b1 t))^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((-1+nU) (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6)))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((nD^2) (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) ((4 (((-(1/π)(E^(-((((t-μD))^2)/((σD)^2)))) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^4)))(b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^4)))(b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD (t^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD (nH^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD (nH^2) (t^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((-1+nU) (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/π)2 (E^(-((((t-μD))^2)/((σD)^2)))) nD (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) (((-3 nD-4 nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (((1+Erf[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((nD^2) (-2+nD+nH) (((2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fmiln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[((r ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/(2 (-1+r) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])+2 r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))]),0],1]
fmiln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[((nD ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/(4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))]),0],1]
ufmiln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[2])))(√(((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))/(nD (((2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^3)))),1,(1/(4 (Sqrt[2])))(√(((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))/(nD (((2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^3))))],0],1]
dfufmiln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/(1024 (nD^2) (((2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^6) ((((((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/(1024 (nD^2) (-2+nD+nH) (((2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^6))+(((-((8 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((π-nH π) ((σH)^2)))+(1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^4) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/(1024 (-1+nU) (((2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^6)))),1,((((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((nD^2) ((1/((nD^2) (-2+nD+nH)))(((((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((4 (b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((σH)^4))+((4 (b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (t^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((σH)^4))+(1/((σH)^2))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (t^2) ((σD)^2) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((4 nH-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fmill[t_,r_,μD_,μH_,σD_,σH_]:=min[max[√((r ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/(2 r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (-1+r) Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
fmill[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((Sqrt[((nD ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/(nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))])/(Sqrt[2])),0],1]
ufmill[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(4 (Sqrt[2])))(√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(nD (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^3)))),1,(1/(4 (Sqrt[2])))(√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))/(nD (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^3))))],0],1]
dfufmill[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (-2+nD+nH) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6))+(((-(((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^4) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (-1+nU) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6)))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(1024 (nD^2) (-2+nD+nH) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6))+(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (t^2) ((σD)^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) (t^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(256 (-1+nU) (π^2) (((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fmilg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[√(-((r ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/(-4+2 r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0],1]
fmilg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[√(-((nD ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/(2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),0],1]
ufmilg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(-(((1/(((4+nD+nH))^3))16 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(nD (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3)))),1,(1/2) √(-(((1/(((4+nD+nH))^3))16 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(nD (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3))))],0],1]
dfufmilg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))16 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((1/(((4+nD+nH))^3))16 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/((1-nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (nD^2) (nH^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (nD^2) nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (-2+nD+nH) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((1/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((b0+b1 t))^2) ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 nD (-1+nH) (nH^2) (((b0+b1 t))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 nD nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 nD nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(4 (-1+nU) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6)))),1,((((1/(((4+nD+nH))^3))16 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((1/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (t^2) ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD (nH^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD (nH^2) (t^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(4 (-1+nU) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((1/(((4+nD+nH))^3))16 (2+nD) (2+nH) (((nD+nH))^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (-2+nD+nH) (((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-4 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fmign[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[2]) (Sqrt[((r (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(2+(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))]),0],1]
fmign[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[2]) (Sqrt[-((nD (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))]),0],1]
ufmign[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[2]))(√(((1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(nD (((-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3)))),1,(1/(Sqrt[2]))(√(((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(nD (((-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3))))],0],1]
dfufmign[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(4 (nD^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6) ((((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(4 (nD^2) (-2+nD+nH) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6))+(((-((2 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/((π-nH π) ((σH)^2)))+(1/((π-nH π) ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nD (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(4 (-1+nU) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6)))),1,((((1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(4 (nD^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6) ((((-(((E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/π)+(1/(π ((σH)^4)))(b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^4)))(b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (t^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(π ((σH)^2)))(E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD (t^2) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((-1+nU) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6))+(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (((nD+2 nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(4 (nD^2) (-2+nD+nH) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fmigl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[2]) √((r (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(2+(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),0],1]
fmigl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(Sqrt[2]) √(-((nD (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))),0],1]
ufmigl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(2 (Sqrt[2])))(√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(nD (((-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3)))),1,(1/(2 (Sqrt[2])))(√(((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/(nD (((-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3))))],0],1]
dfufmigl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(64 (nD^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6) (((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(64 (nD^2) (-2+nD+nH) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6))+(((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(64 (-1+nU) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6)))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(64 (nD^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6) ((((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD (nH^2) (t^2) ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD (t^2) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(16 (-1+nU) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6))+((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) (nH^2) ((σH)^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nD^2) nH ((σH)^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (((nD+2 nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/(64 (nD^2) (-2+nD+nH) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

fmigg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[√(-((r (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(-1+r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0],1]
fmigg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[√(-((nD (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0],1]
ufmigg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(-((-(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(nD (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^3)))),1,(1/2) √(-((-(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/(nD (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^3))))],0],1]
dfufmigg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (nD^2) (nH^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^6) (((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((1-nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (nD^2) (nH^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(nD^2) nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (-2+nD+nH) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^6))+(((-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 b0 b1 (E^(-((2 t μD)/((σD)^2)))) nD t (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD (t^2) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((1-nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 nD (-1+nH) (nH^2) (((b0+b1 t))^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))nD nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))nD nH (nH (((b0+b1 t))^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+2 ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (-1+nU) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^6)))),1,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^6) ((((-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD (t^2) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD (nH^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD (nH^2) (t^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (-1+nU) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^6))+((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((nD+nH))^4) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nD (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (((nD+2 nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) (nD^2) nH (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nD^2) (nH^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/(16 (nD^2) (-2+nD+nH) (((nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

cknn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((2 (-1+r) r (-Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((-t+μH)/((Sqrt[2]) σH))]))/(r (-1+2 r) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(-1+r) (-2+(1-2 r) Erfc[((-t+μH)/((Sqrt[2]) σH))]))),-1],1]
cknn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((2 nD nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))/(2 nH (nD+nH)+(nD-nH) (nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))),-1],1]
ucknn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4))),1,(1/(Sqrt[π]))2 √(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4)))],-1],1]
dfucknn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(1/(-1+nU))(nD^2) (nH^2) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((σD)^4) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))),1,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(1/(-1+nU))(nD^2) (nH^2) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((σD)^4) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

cknl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[With[{se=(1/2) (1+Erf[((-t+μD)/((Sqrt[2]) σD))]),sp=(1/2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]},With[{q=r se+(1-r) (1-sp),po=r se+(1-r) sp},With[{pe=q r+(1-q) (1-r)},((po-pe)/(1-pe))]]],-1],1]
cknl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(2 nD nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(2 nH (nD+nH)+(nD-nH) (nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),-1],1]
ucknl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],-1],1]
dfucknl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+((nD^2) (nH^2) (((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((σD)^4) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6)))),1,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+((nD^2) (nH^2) (((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (1-nH) nH (((t-μD))^2) ((μH)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μH)^2) ((σD)^4) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)-(nD-nH) nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ckng[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 (-1+r) r (Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(r (-1+2 r) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (-1+r) (-1+(1-2 r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),-1],1]
ckng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((2 nD nH (Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(2 nH (nD+nH)+(nD-nH) (nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),-1],1]
uckng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4))),1,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4)))],-1],1]
dfuckng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) ((σH)^2) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8))+(256 (nD^2) (nH^2) (((nD+nH))^4) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) ((σH)^2) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μH)^4) ((σD)^8) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8)))),1,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) ((σH)^2) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μH)^4) ((σD)^8) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8))+(256 (nD^2) (nH^2) (((nD+nH))^4) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) ((σH)^2) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μH)^4) ((σD)^8) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ckln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[With[{se=1-(1/2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],sp=(1/2) Erfc[((-t+μH)/((Sqrt[2]) σH))]},With[{q=r se+(1-r) (1-sp),po=r se+(1-r) sp},With[{pe=q r+(1-q) (1-r)},((po-pe)/(1-pe))]]],-1],1]
ckln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((2 nD nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))/((((nD+nH))^2)+(nD-nH) (-nH Erf[((-t+μH)/((Sqrt[2]) σH))]+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))),-1],1]
uckln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3)))),1,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3))))],-1],1]
dfuckln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) (nH^2) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((σD)^2) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH (nD (((b0+b1 t))^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6)))),1,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) (nH^2) (((4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)-8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^4) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((σD)^2) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ckll[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 (-1+r) r (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(r (-1+2 r) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(-1+r) (-2+(1-2 r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),-1],1]
ckll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(2 nD nH (-Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(2 nH (nD+nH)+(nD-nH) (nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),-1],1]
uckll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-((2 nD (-1+(nD/(nD+nH))) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (-2+((2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (-1+(nD/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/((nD+nH) (((((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)))+(2 nD (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/((nD+nH) (((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))+(2 (-1+(nD/(nD+nH))) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))))^2)+((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) ((((4 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(8 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+(nD/(nD+nH))) (((σD)/((Sqrt[2]) ((μD)^2) (1+(((σD)^2)/((μD)^2))) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))-((σD (2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))/(2 (Sqrt[2]) ((μD)^2) (1+(((σD)^2)/((μD)^2))) ((Log[1+(((σD)^2)/((μD)^2))])^(3/2))))))/((nD+nH) (Sqrt[π]) (((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))+(4 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(8 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+(nD/(nD+nH))) (-1+((2 nD)/(nD+nH))) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (-((σD)/((Sqrt[2]) ((μD)^2) (1+(((σD)^2)/((μD)^2))) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))+((σD (2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))/(2 (Sqrt[2]) ((μD)^2) (1+(((σD)^2)/((μD)^2))) ((Log[1+(((σD)^2)/((μD)^2))])^(3/2))))))/((((nD+nH))^2) (Sqrt[π]) (((((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2))))^2)+((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((4 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(8 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+(nD/(nD+nH))) (-1+((2 nD)/(nD+nH))) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (-((-(2/(μD))-((2 ((σD)^2))/(((μD)^3) (1+(((σD)^2)/((μD)^2))))))/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))-((((σD)^2) (2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))/(2 (Sqrt[2]) ((μD)^3) (1+(((σD)^2)/((μD)^2))) ((Log[1+(((σD)^2)/((μD)^2))])^(3/2))))))/((((nD+nH))^2) (Sqrt[π]) (((((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2))+(4 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(8 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+(nD/(nD+nH))) (((-(2/(μD))-((2 ((σD)^2))/(((μD)^3) (1+(((σD)^2)/((μD)^2))))))/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))+((((σD)^2) (2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))/(2 (Sqrt[2]) ((μD)^3) (1+(((σD)^2)/((μD)^2))) ((Log[1+(((σD)^2)/((μD)^2))])^(3/2))))))/((nD+nH) (Sqrt[π]) (((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))))^2)+((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-((4 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(8 Log[1+(((σH)^2)/((μH)^2))])))) nD (-1+(nD/(nD+nH))) (((σH)/((Sqrt[2]) ((μH)^2) (1+(((σH)^2)/((μH)^2))) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))-((σH (2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))/(2 (Sqrt[2]) ((μH)^2) (1+(((σH)^2)/((μH)^2))) ((Log[1+(((σH)^2)/((μH)^2))])^(3/2))))))/((nD+nH) (Sqrt[π]) (((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))))+(4 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(8 Log[1+(((σH)^2)/((μH)^2))])))) nD (1-((2 nD)/(nD+nH))) (((-1+(nD/(nD+nH))))^2) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (-((σH)/((Sqrt[2]) ((μH)^2) (1+(((σH)^2)/((μH)^2))) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))+((σH (2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))/(2 (Sqrt[2]) ((μH)^2) (1+(((σH)^2)/((μH)^2))) ((Log[1+(((σH)^2)/((μH)^2))])^(3/2))))))/((nD+nH) (Sqrt[π]) (((((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2))))^2)+((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((4 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(8 Log[1+(((σH)^2)/((μH)^2))])))) nD (1-((2 nD)/(nD+nH))) (((-1+(nD/(nD+nH))))^2) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (-((-(2/(μH))-((2 ((σH)^2))/(((μH)^3) (1+(((σH)^2)/((μH)^2))))))/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))-((((σH)^2) (2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))/(2 (Sqrt[2]) ((μH)^3) (1+(((σH)^2)/((μH)^2))) ((Log[1+(((σH)^2)/((μH)^2))])^(3/2))))))/((nD+nH) (Sqrt[π]) (((((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2))-(4 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(8 Log[1+(((σH)^2)/((μH)^2))])))) nD (-1+(nD/(nD+nH))) (((-(2/(μH))-((2 ((σH)^2))/(((μH)^3) (1+(((σH)^2)/((μH)^2))))))/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))+((((σH)^2) (2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))/(2 (Sqrt[2]) ((μH)^3) (1+(((σH)^2)/((μH)^2))) ((Log[1+(((σH)^2)/((μH)^2))])^(3/2))))))/((nD+nH) (Sqrt[π]) (((nD (-1+((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH))+(-1+(nD/(nD+nH))) (-2+(1-((2 nD)/(nD+nH))) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))))^2)),1,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],-1],1]
dfuckll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((-4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6))+((nD^2) (nH^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((μH)^2) (nD (((b0+b1 t))^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6)))),1,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((-4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) nD (1-nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6))+((nD^2) (nH^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (-2 (b0^2) (-1+nD)-2 (b1^2) (-1+nD) (t^2)-((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (1-nD) (1-nH) nH ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH (nD+nH)-nD (nD-nH) (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD nH ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (1-nH) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH (nD+nH)+(nD-nH) nH (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((2 nH (nD+nH)+nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

cklg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 (-1+r) r (Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(r (-1+2 r) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (-1+r) (-1+(1-2 r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),-1],1]
cklg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((2 nD nH (Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(2 nH (nD+nH)+(nD-nH) (nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),-1],1]
ucklg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3))),1,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3)))],-1],1]
dfucklg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+(16 (nD^2) (nH^2) (((nD+nH))^4) (((-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6)))),1,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+(16 (nD^2) (nH^2) (((nD+nH))^4) (((-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) nH ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+4 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ckgn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 (-1+r) r (Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/((-1+r) (2+(-1+2 r) Erfc[((-t+μH)/((Sqrt[2]) σH))])+2 (1-2 r) r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),-1],1]
ckgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(2 nD nH (Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(2 nH (nD+nH)+(nD-nH) (nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),-1],1]
uckgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4))),1,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4)))],-1],1]
dfuckgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((σD)^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))+(256 (nD^2) (nH^2) (((nD+nH))^4) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) ((σD)^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8)))),1,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+8 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((σD)^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))+(256 (nD^2) (nH^2) (((nD+nH))^4) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((σD)^4) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) ((σD)^2) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((2 nH+(nD-nH) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ckgl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 (-1+r) r (Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/((-1+r) (2+(-1+2 r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+2 (1-2 r) r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),-1],1]
ckgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(2 nD nH (Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(2 nH (nD+nH)+(nD-nH) (nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),-1],1]
uckgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3))),1,(1/(Sqrt[π]))2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3)))],-1],1]
dfuckgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+(16 (nD^2) (nH^2) (((nD+nH))^4) (((-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6)))),1,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 (nH^2)+(nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 (nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+(16 (nD^2) (nH^2) (((nD+nH))^4) (((-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH π ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((2 nH+(nD-nH) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((2 nH (nD+nH)+(nD-nH) nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

ckgg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 (-1+r) r (GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(r (-1+2 r) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(-1+r) (1+(-1+2 r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),-1],1]
ckgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(2 nD nH (-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(nH (nD+nH)+(nD-nH) (nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),-1],1]
uckgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4))),1,2 √(((((nD+nH))^2) ((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^4)))],-1],1]
dfuckgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8))+(16 (nD^2) (nH^2) (((nD+nH))^4) (((-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8)))),1,(16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8) ((16 (((nD+nH))^4) ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8))+(16 (nD^2) (nH^2) (((nD+nH))^4) (((-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) nH ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) nH ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD nH ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((nH+(nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((nD (nD-nH) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH (nD+nH+(nD-nH) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^8))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabaknn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))],-1],1]
pabaknn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD Erf[((-t+μD)/((Sqrt[2]) σD))]-nH Erf[((-t+μH)/((Sqrt[2]) σH))])/(nD+nH)),-1],1]
upabaknn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))),1,√(((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3)))],-1],1]
dfupabaknn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))))^2)/((4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) (((b0+b1 t))^4) ((((E^((((t-μH))^2)/((σH)^2))) (nD^2) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4)+(E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2))))^2))/((((nD+nH))^4) (-1+nU) (π^2) ((σD)^8) ((σH)^8))+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))))^2)),1,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))))^2)/((4 (E^(-((2 (((t-μD))^2))/((σD)^2))-((2 (((t-μH))^2))/((σH)^2)))) ((((b0^2)+(b1^2) (t^2)))^2) ((((E^((((t-μH))^2)/((σH)^2))) (nD^2) ((t^2)-2 t μD+((μD)^2)+((σD)^2)) ((σH)^4)+(E^((((t-μD))^2)/((σD)^2))) (nH^2) ((σD)^4) ((t^2)-2 t μH+((μH)^2)+((σH)^2))))^2))/((((nD+nH))^4) (-1+nU) (π^2) ((σD)^8) ((σH)^8))+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/(((4+nD+nH))^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabaknl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],-1],1]
pabaknl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(nD+nH)),-1],1]
upabaknl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))),1,√(((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))],-1],1]
dfupabaknl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(4 (((nD+nH))^4) (-1+nU) (π^2) ((μH)^4) ((σD)^8) (((((μH)^2)+((σH)^2)))^4) ((Log[1+(((σH)^2)/((μH)^2))])^6)))(((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((b0+b1 t))^2) (((t-μD))^2) ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((b0+b1 t))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((μH)^2) ((σD)^4) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 b0 b1 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) t ((μH)^2) ((σD)^4) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((μH)^2) ((σD)^4) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((σD)^4) (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)),1,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/((1/(4 (((nD+nH))^4) (-1+nU) (π^2)))(((-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD-((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) ((σD)^2)))+((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((σD)^2))+((4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((σD)^4))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabakng[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-r Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],-1],1]
pabakng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD-nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])/(nD+nH)),-1],1]
upabakng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(((4+nD+nH))^3))+(16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))4 (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√(((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2))/(((4+nD+nH))^3))+(4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/((-1+nH) (((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))],-1],1]
dfupabakng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)))/((((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((nD+nH))^2))4 (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))4 (((b0+b1 t))^4) ((((((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/(π ((σD)^4)))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2))/(π ((σD)^2)))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (nH^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))4 nH ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/((((nD+nH))^2) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/((((nD+nH))^2) π ((σD)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) (((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))(((-((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/π)-(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)))/(π ((σD)^2)))+((2 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))))/(π ((σD)^4)))-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (b0^2) (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (b1^2) (E^(-((2 t μH)/((σH)^2)))) (nH^2) (t^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μD))^2)/((σD)^2)))) nD)/((((nD+nH))^2) π))+(((E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (((t-μD))^2))/((-1+nD) (((nD+nH))^2) π ((σD)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabakln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1-(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]+r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))],-1],1]
pabakln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((nH Erf[((-t+μH)/((Sqrt[2]) σH))]+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD+nH)),-1],1]
upabakln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))),1,√(((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))],-1],1]
dfupabakln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((1/(4 (((nD+nH))^4) (-1+nU) (π^2) ((μD)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^8) ((Log[1+(((σD)^2)/((μD)^2))])^6)))(((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((b0+b1 t))^2) ((μD)^2) (((t-μH))^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+4 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((b0+b1 t))^2) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((μD)^2) ((σD)^2) ((σH)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 b0 b1 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) t ((μD)^2) ((σD)^2) ((σH)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((μD)^2) ((σD)^2) ((σH)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σH)^4) (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)),1,(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((1/(4 (((nD+nH))^4) (-1+nU) (π^2)))(((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nH-((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) ((σH)^2)))+((4 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((σH)^2))+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((σH)^4))+((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2))/(((4+nD+nH))^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabakll[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))],-1],1]
pabakll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((-nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])/(nD+nH)),-1],1]
upabakll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) (π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) (π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))),1,(1/2) √((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))],-1],1]
dfupabakll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) (π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) (π-nH π) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(16 ((1/(4 (((nD+nH))^4) (-1+nU) (π^2)))(((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (((b0+b1 t))^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (((b0+b1 t))^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(16 (-2+nD+nH)))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2))),1,((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)/(16 ((1/(4 (((nD+nH))^4) (-1+nU) (π^2)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)+(1/(16 (-2+nD+nH)))((((1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/((((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabaklg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],-1],1]
pabaklg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(nD+nH))(nD-nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),-1],1]
upabaklg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))4 (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/((-1+nH) (((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))],-1],1]
dfupabaklg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((nD+nH))^2))4 (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/(4 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 b0 b1 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) t ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((b0+b1 t))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+8 (nH^2) (((b0+b1 t))^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))4 nH ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) (((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/(4 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (t^2) ((σD)^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (b0^2) (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (b1^2) (E^(-((2 t μH)/((σH)^2)))) (nH^2) (t^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/(4 (-1+nD) (((nD+nH))^2) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((-2 ((σD)^3) Log[t]+2 ((σD)^3) Log[μD]+σD (2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(2 (((nD+nH))^2) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(4 (E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(8 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabakgn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],-1],1]
pabakgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((nD-nH+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])/(nD+nH)),-1],1]
upabakgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(((4+nD+nH))^3))+(16 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,√(((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(((2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2))/(((4+nD+nH))^3))+(16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],-1],1]
dfupabakgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)))/((((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(16 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))4 (((b0+b1 t))^4) ((((((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/(π ((σH)^4)))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2))/(π ((σH)^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (nD^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)),1,(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/((((nD+nH))^2) π ((σH)^2)))+((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/((((nD+nH))^2) π ((σH)^4)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/π)+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) π ((σH)^2)))-((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)))/(π ((σH)^2)))-((2 (E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2) ((b0^2)+(b1^2) (t^2)+(((σH)^2)/(2 (-1+nH)))))/(π ((σH)^4)))+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))-(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))(((((2 (E^(-((((t-μH))^2)/((σH)^2)))) nH)/((((nD+nH))^2) π))+(((E^(-((((t-μH))^2)/((σH)^2)))) (nH^2) (((t-μH))^2))/((-1+nH) (((nD+nH))^2) π ((σH)^2)))+(1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabakgl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))],-1],1]
pabakgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(nD+nH))(nD-nH+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]),-1],1]
upabakgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(16 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)),1,√((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2))],-1],1]
dfupabakgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(16 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/(4 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(2 b0 b1 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) t ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (nD^2) (((b0+b1 t))^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (nD^2) (((b0+b1 t))^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)),1,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(16 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)/((1/(4 (((nD+nH))^4) (-1+nU)))(((((b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) (t^2) ((σH)^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))-(16 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)-8 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (nH^2) ((σH)^4) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2))/(4 (-1+nH) (((nD+nH))^2) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nH (((-2 ((σH)^3) Log[t]+2 ((σH)^3) Log[μH]+σH (2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/(2 (((nD+nH))^2) π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3))+(8 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))4 nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

pabakgg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-1+2 r-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))],-1],1]
pabakgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(1/(nD+nH))(nD-nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),-1],1]
upabakgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,2 √((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))(nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)),1,2 √((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/((-1+nH) (((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))],-1],1]
dfupabakgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((((b0+b1 t))^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((((b0+b1 t))^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) ((((b0+b1 t))^2)+(((σH)^2)/(2 (-1+nH)))) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))(nH^2) ((((b0+b1 t))^2)+(((σH)^2)/nH)) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))(((b0+b1 t))^4) ((((1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(nD^2) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(nH^2) ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))))/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/((σH)^2))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/(((nD+nH))^2))nH ((((((E^(-((t μH)/((σH)^2)))) (((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) σH)/(μH Gamma[(((μH)^2)/((σH)^2))]))+(1/(σH))2 μH (-((MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))])/(Gamma[(((μH)^2)/((σH)^2))]))+GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (-Log[((t μH)/((σH)^2))]+PolyGamma[0,(((μH)^2)/((σH)^2))]))))^2)))^2)),1,((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((((nD+nH))^2) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(1/((-1+nH) (((nD+nH))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((1/((((nD+nH))^4) (-1+nU)))(((-((2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/(2 (-1+nD)))) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(nD^2) ((b0^2)+(b1^2) (t^2)+(((σD)^2)/nD)) ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))))/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/((σD)^2))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)-nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b0^2) (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b1^2) (E^(-((2 t μH)/((σH)^2)))) (nH^2) (t^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-2+nD+nH))((((1/(((4+nD+nH))^3))(2+nD) (2+nH) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(2 (nD^2) (((-(E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (((nD+nH))^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2))+(1/(((nD+nH))^2))nD ((((((E^(-((t μD)/((σD)^2)))) (((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) σD)/(μD Gamma[(((μD)^2)/((σD)^2))]))+(1/(σD))2 μD (-((MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))])/(Gamma[(((μD)^2)/((σD)^2))]))+GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (-Log[((t μD)/((σD)^2))]+PolyGamma[0,(((μD)^2)/((σD)^2))]))))^2)+((E^(-((2 t μH)/((σH)^2)))) nH ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((((nD+nH))^2) ((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2))+(2 (E^(-((2 t μH)/((σH)^2)))) (nH^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nH) (((nD+nH))^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]
f1snn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((2 r (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(-2 (1+r)+r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))])),0],1]
f1snn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((2 nD (1+Erf[((-t+μD)/((Sqrt[2]) σD))]))/(3 nD+nH+nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erf[((-t+μH)/((Sqrt[2]) σH))])),0],1]
uf1snn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √(((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (2 nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4))),1,(1/(Sqrt[π]))2 √(((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (2 nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^4)))],0],1]
dfuf1snn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,-(((-2+nD+nH) (-1+nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))/((1-nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(nD^2) (2-nD-nH) (((4+nD+nH))^6) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (nH^2) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) nH ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))),1,-(((-2+nD+nH) (-1+nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2))/((1-nU) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)+(nD^2) (2-nD-nH) (((4+nD+nH))^6) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) (((t-μH))^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) (((t-μH))^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1snl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((2 r (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(-2 (1+r)+r Erfc[((-t+μD)/((Sqrt[2]) σD))]-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
f1snl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((2 nD (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(nD (-4+Erfc[((-t+μD)/((Sqrt[2]) σD))])-nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
uf1snl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (2 nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (2 nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0],1]
dfuf1snl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))(nD^2) (((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (nH^2) ((μH)^2) ((σD)^4) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))),1,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)+(1/(-1+nU))(nD^2) (((4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-4 (E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μH)^2) ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μH)^2) ((σD)^4) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((σD)^4) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1sng[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((2 r (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(r Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (1+r+(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),0],1]
f1sng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((2 nD (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))/(-4 nD-2 nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]

uf1sng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))4 √(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))),1,(1/(Sqrt[π]))4 √(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)))],0],1]
dfuf1sng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-1+nU))(nD^2) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (1-nH) nH π ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (nH^2) π ((μH)^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))),1,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μH)^2) ((σD)^4) ((σH)^6) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)+(1/(-1+nU))(nD^2) ((((E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) (((t-μD))^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((σD)^4) ((σH)^4) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μH)^2) ((σD)^4) ((σH)^2) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μH)^2) ((σD)^4) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2+Erfc[((-t+μD)/((Sqrt[2]) σD))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1sln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2/(1+((2+(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))])/(r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])))),0],1]
f1sln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[2-(2/(1+((nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(2 nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))])))),0],1]
uf1sln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,√(((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))/(((2 (nD+nH)-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4)),1,√(((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))/(((2 (nD+nH)-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^4))],0],1]
dfuf1sln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/((π-nH π) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((π-nD π) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((((2 (nD+nH)-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8) ((((((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)/((-2+nD+nH) (((2 (nD+nH)-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8))+(4 (nD^2) (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/((σH)^4))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((b0+b1 t))^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/((σH)^2))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (((b0+b1 t))^2) ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))/((-1+nU) (π^2) (((2 (nD+nH)-nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^8)))),1,((((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2)/((1/(-2+nD+nH))(((((8 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/π)+((4 (E^(-((((t-μH))^2)/((σH)^2)))) (nD^2) (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((-1+nH) π ((σH)^2)))+(1/(((4+nD+nH))^3))4 (2+nD) (2+nH) (((nD+nH))^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) ((σD)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2)+(1/((-1+nU) (π^2)))4 (nD^2) (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((4 (b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((σH)^4))+((4 (b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD (nH^2) (t^2) (((t-μH))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2))/((σH)^4))+(1/((σH)^2))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (t^2) ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((σD)^2) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1sll[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-((2 r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-2 (1+r)+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
f1sll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[((2 nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(nD (2+Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])),0],1]
uf1sll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)))),1,(1/(Sqrt[π]))(√((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3))))],0],1]
dfuf1sll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6))+((nD^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (nH^2) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6)))),1,(((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (((((μH)^2)+((σH)^2)))^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6))+((nD^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) (((((μH)^2)+((σH)^2)))^4) (((-2 (2 nD+nH)+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((Log[1+(((σH)^2)/((μH)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1slg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-((2 r Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-2 (1+r)+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]
f1slg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((2 nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])/(-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])),0],1]
uf1slg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))(√((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3)))),1,(1/(Sqrt[π]))(√((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4) ((Log[1+(((σD)^2)/((μD)^2))])^3))))],0],1]
dfuf1slg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (1-nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (1-nH) ((μD)^2) ((μH)^2) ((σD)^2) (-2 (-1+nD) (((b0+b1 t))^2)-((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-16 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (1-nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-32 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6)))),1,(((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6) ((((16 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^6) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))+((nD^2) ((((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) (-1+nD) (-1+nH) ((μH)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^4) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-16 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) ((σH)^2) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-32 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) π ((μD)^2) ((μH)^2) (((((μD)^2)+((σD)^2)))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2) ((Log[1+(((σD)^2)/((μD)^2))])^3) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) (((((μD)^2)+((σD)^2)))^4) ((σH)^12) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((-4 nD-2 nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((Log[1+(((σD)^2)/((μD)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1sgn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-((4 r (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(2+2 r+(-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),0],1]
f1sgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(4/(2+(((2 nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]) Gamma[(((μD)^2)/((σD)^2))])/(nD Gamma[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))])))),0],1]
uf1sgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))4 √(((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-2 (2 nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4))),1,(1/(Sqrt[π]))4 √(((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-2 (2 nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4)))],0],1]
dfuf1sgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(256 ((((E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((256 ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8))+(256 (nD^2) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (nH^2) ((μD)^2) (((t-μH))^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) nH ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((σD)^12) ((σH)^8) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8)))),1,((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)/((((4+nD+nH))^6) ((1/((-2+nD+nH) (((4+nD+nH))^6)))((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((σD)^6) ((σH)^4) (((-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)+(1/(-1+nU))(nD^2) ((((E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) (((t-μH))^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) (((t-μH))^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((σD)^4) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) ((σD)^2) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2)))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1sgl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-((4 r (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(2+2 r+(-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])),0],1]
f1sgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(4/(2+(((2 nD+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Gamma[(((μD)^2)/((σD)^2))])/(nD Gamma[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))])))),0],1]
uf1sgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/(Sqrt[π]))2 √((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3))),1,(1/(Sqrt[π]))2 √((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^4) ((Log[1+(((σH)^2)/((μH)^2))])^3)))],0],1]
dfuf1sgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 (((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((16 (((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+(16 (nD^2) (((-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (1-nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6)))),1,(16 (((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6) ((16 (((4 (-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) π ((μD)^2) ((μH)^2) ((σD)^6) (((((μH)^2)+((σH)^2)))^2) (((-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)+(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))+(16 (nD^2) ((((E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((μH)^2) ((σD)^4) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-4 (E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) π ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) ((μH)^2) ((σD)^2) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-8 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) π ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((((μH)^2)+((σH)^2)))^2) (((-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((μD)^4) ((μH)^4) ((σD)^12) (((((μH)^2)+((σH)^2)))^4) ((Gamma[(((μD)^2)/((σD)^2))])^4) (((-2 (2 nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^8) ((Log[1+(((σH)^2)/((μH)^2))])^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

f1sgg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[(2 r (1-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(1+r-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
f1sgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(2 nD (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(-2 nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]),0],1]
uf1sgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,2 √(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4))),1,2 √(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2))/((-1+nD) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^4)))],0],1]
dfuf1sgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(16 ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((16 ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))+(16 (nD^2) ((((E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (1-nH) nH ((μD)^2) ((σD)^6) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (1-nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8)))),1,(16 ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8) ((16 ((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(E^(-((2 t μD)/((σD)^2)))) (-1+nD) nD (-1+nH) (((4+nD+nH))^3) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) (nD^2) (-1+nH) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (-1+nH) nH (((4+nD+nH))^3) ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) (nD^2) (nH^2) (((4+nD+nH))^3) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-2+nD+nH) (((4+nD+nH))^6) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))+(16 (nD^2) ((((E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^4) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(E^(-((2 t μD)/((σD)^2)))) (-1+nD) (-1+nH) ((μH)^2) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) ((μD)^2) ((μH)^2) ((σD)^2) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-2 (E^(-((2 t μD)/((σD)^2)))) nD (-1+nH) ((μD)^2) ((μH)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2) (((nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (-1+nH) nH ((μD)^2) ((σD)^6) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) ((σH)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-2 (E^(-((2 t μH)/((σH)^2)))) (-1+nD) nD (nH^2) ((μD)^2) ((μH)^2) ((σD)^6) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) ((Gamma[(((μD)^2)/((σD)^2))])^2) (((-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) ((μD)^4) ((μH)^4) ((σD)^12) ((σH)^12) ((Gamma[(((μD)^2)/((σD)^2))])^4) ((Gamma[(((μH)^2)/((σH)^2))])^4) (((2 nD+nH-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^8))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccnn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) r (-Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((-t+μH)/((Sqrt[2]) σH))]))/(√((-1+r) r (r Erfc[((-t+μD)/((Sqrt[2]) σD))] (-2+r Erfc[((-t+μD)/((Sqrt[2]) σD))])-2 (-1+r) (-1+r Erfc[((-t+μD)/((Sqrt[2]) σD))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]+(((-1+r))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)))),-1],1]
mccnn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]) (-2 (nD+nH)+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]))),-1],1]
umccnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(-(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2))/((-1+nD) nD (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^3)))),1,(1/2) √(-(((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2))/((-1+nD) nD (-1+nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^3))))],-1],1]
dfumccnn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (((4+nD+nH))^6) ((σD)^8) ((σH)^8) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^6) (((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-(1/π)4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (-2+nD+nH) (((4+nD+nH))^6) ((σD)^8) ((σH)^8) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^6))+(((-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^2) ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^4) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (-1+nH) (((b0+b1 t))^2)-((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) (nH (((b0+b1 t))^2)+((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((σD)^8) ((σH)^8) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^6)))),1,((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (((4+nD+nH))^6) ((σD)^8) ((σH)^8) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^6) (((((-1+nD) (2+nD) (-1+nH) (2+nH) (((nD+nH))^4) ((σD)^4) ((σH)^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[((-t+μH)/((Sqrt[2]) σH))]) Erfc[((-t+μH)/((Sqrt[2]) σH))]))^2)+(1/π)4 (E^(-((((t-μD))^2)/((σD)^2)))) (nD^2) (-1+nH) (nH^2) (((4+nD+nH))^3) (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) nD (-1+nH) (nH^2) (((4+nD+nH))^3) ((σD)^4) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-(1/π)4 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (nH^2) (((4+nD+nH))^3) (((t-μH))^2) ((σD)^4) ((σH)^2) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) (nD^2) (1-nH) nH (((4+nD+nH))^3) ((σD)^4) ((σH)^4) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)))^2)/(16 (((-1+nD))^2) (nD^2) (((-1+nH))^2) (nH^2) (-2+nD+nH) (((4+nD+nH))^6) ((σD)^8) ((σH)^8) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^6))+(((-(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) ((σD)^2) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^4) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μD))^2)/((σD)^2)))) nD (-1+nH) nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+2 (E^(-((((t-μD))^2)/((σD)^2)))) (-1+nD) (-1+nH) nH ((σD)^2) ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[((-t+μH)/((Sqrt[2]) σH))]+(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) ((σH)^2) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)-2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^4) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+(E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD nH (((t-μH))^2) ((σD)^4) (-2 (b0^2) (-1+nH)-2 (b1^2) (-1+nH) (t^2)-((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)+2 (E^(-((((t-μH))^2)/((σH)^2)))) (1-nD) nD (1-nH) ((σD)^4) ((σH)^2) ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])-nH (Erf[((-t+μD)/((Sqrt[2]) σD))]-Erf[((-t+μH)/((Sqrt[2]) σH))]) (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^2)))^2)/((((-1+nD))^2) (((-1+nH))^2) (-1+nU) (π^2) ((σD)^8) ((σH)^8) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[((-t+μH)/((Sqrt[2]) σH))])+nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccnl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-(((-1+r) r (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(√((-1+r) r (r Erfc[((-t+μD)/((Sqrt[2]) σD))] (-2+r Erfc[((-t+μD)/((Sqrt[2]) σD))])-2 (-1+r) (-1+r Erfc[((-t+μD)/((Sqrt[2]) σD))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(((-1+r))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2))))),-1],1]
mccnl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD nH (Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nD+nH-nD Erf[((-t+μD)/((Sqrt[2]) σD))]+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (nD (-2+Erfc[((-t+μD)/((Sqrt[2]) σD))])-nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))),-1],1]
umccnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(-(((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^3))),1,(1/2) √(-(((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^3)))],-1],1]
dfumccnl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6) (((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nD) π ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (-2+nD+nH) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6))+(((8 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nD) ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)-(1/((-1+nD) ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)-(1/((σD)^2))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (-1+nU) (π^2) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6)))),1,((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6) (((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((-t+μD)/((Sqrt[2]) σD))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nD) π ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (-2+nD+nH) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6))+(((-4 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((σD)^4))4 (b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((σD)^4))4 (b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (t^2) (((t-μD))^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((σD)^2))4 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((-t+μD)/((Sqrt[2]) σD))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2)+(1/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))]+(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[((-t+μD)/((Sqrt[2]) σD))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(4 (-1+nU) (π^2) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccng[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) r (Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(√((-1+r) r (r Erfc[((-t+μD)/((Sqrt[2]) σD))] (-2+r Erfc[((-t+μD)/((Sqrt[2]) σD))])-4 (-1+r) (-1+r Erfc[((-t+μD)/((Sqrt[2]) σD))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+4 (((-1+r))^2) ((GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])^2)))),-1],1]
mccng[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((nD nH (Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nD Erfc[((-t+μD)/((Sqrt[2]) σD))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) (nD Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))))),-1],1]
umccng[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3)),1,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3))],-1],1]
dfumccng[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/((-1+nD) π ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((nD+nH))^4) ((((1/π)2 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/((-1+nD) π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/((-1+nD) π ((σD)^4)))(E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/(π ((σD)^2)))2 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((-1+nU) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6)))),1,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π ((σD)^4)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(π ((σD)^2)))8 (E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) ((4 (((nD+nH))^4) (((-(1/π)(E^(-((((t-μD))^2)/((σD)^2)))) nH (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(π ((σD)^4)))(b0^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(π ((σD)^4)))(b1^2) (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (t^2) (((t-μD))^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(π ((σD)^2)))(E^(-((((t-μD))^2)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (t^2) (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/((-1+nU) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μD)/((Sqrt[2]) σD))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[((-t+μD)/((Sqrt[2]) σD))]-(nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/π)8 (E^(-((((t-μD))^2)/((σD)^2)))) nH (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/((-1+nD) π ((σD)^2)))4 (E^(-((((t-μD))^2)/((σD)^2)))) nD nH (((t-μD))^2) (((nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[((-t+μD)/((Sqrt[2]) σD))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nD^2) ((Erfc[((-t+μD)/((Sqrt[2]) σD))])^2)-2 nD Erfc[((-t+μD)/((Sqrt[2]) σD))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccln[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) r (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))/(√((-1+r) r (-1+(-1+r) Erf[((-t+μH)/((Sqrt[2]) σH))]+r Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]) (1+(-1+r) Erf[((-t+μH)/((Sqrt[2]) σH))]+r Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))),-1],1]
mccln[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((nD nH (Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))/((((nD+nH))^2) √((1/(((nD+nH))^4))nD nH (nD+nH-nH Erf[((-t+μH)/((Sqrt[2]) σH))]+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]) (nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))]+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])))),-1],1]
umccln[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((((nD+nH))^2) (-(1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((((nD^2)-(nH^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))/(((-(((nD+nH))^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^3)),1,(1/2) √(((((nD+nH))^2) (-(1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((((nD^2)-(nH^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))/(((-(((nD+nH))^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^3))],-1],1]
dfumccln[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((nD+nH))^4) ((((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((((nD^2)-(nH^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/(16 ((((((nD+nH))^2)-(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^6) (((((nD+nH))^4) ((((1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((-1+nH) π ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((((nD^2)-(nH^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))/(16 (-2+nD+nH) ((((((nD+nH))^2)-(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^6))+((((nD+nH))^4) (((8 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((-1+nH) ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/((-1+nH) ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)-(1/((σH)^2))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/((-1+nD) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-(1/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)))^2))/(16 (-1+nU) (π^2) ((((((nD+nH))^2)-(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^6)))),1,((((nD+nH))^4) ((((1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((((nD^2)-(nH^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))/(16 ((((((nD+nH))^2)-(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^6) (((((nD+nH))^4) ((((1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((-1+nH) π ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erf[((-t+μH)/((Sqrt[2]) σH))]+Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) ((((nD^2)-(nH^2)+(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+(2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))/(16 (-2+nD+nH) ((((((nD+nH))^2)-(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^6))+((((nD+nH))^4) (((-4 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((σH)^4))4 (b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((σH)^4))4 (b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (t^2) (((t-μH))^2) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+(1/((σH)^2))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nD+nH+nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nD ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^2)+((b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (t^2) ((σD)^2) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2))/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))-((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))+((E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD+nH-nH ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+nD Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2))/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3))))^2))/(4 (-1+nU) (π^2) ((((((nD+nH))^2)-(nH^2) ((Erf[((-t+μH)/((Sqrt[2]) σH))])^2)+2 nD nH Erf[((-t+μH)/((Sqrt[2]) σH))] Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccll[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) r (Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/(√((-1+r) r (r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-2+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])-2 (-1+r) (-1+r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(((-1+r))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)))),-1],1]
mccll[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD nH (-Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) (-2 (nD+nH)+nD Erfc[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))),-1],1]
umccll[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(-(((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^3))),1,(1/2) √(-(((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2))/((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^3)))],-1],1]
dfumccll[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6) (((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (-2+nD+nH) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6))+((((1/((-1+nD) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/((-1+nD) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/((-1+nH) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (-1+nU) (π^2) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6)))),1,((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6) (((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^4) (((Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+(nH^2) (-2+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(16 (-2+nD+nH) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6))+((((1/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (t^2) ((σD)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nD Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nD Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/((((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD nH Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+nH Erf[((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erf[((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-nD-nH+nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)))^2)/(4 (-1+nU) (π^2) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mcclg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) r (Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(√((-1+r) r ((r^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (1+(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])-2 r Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (1+2 (-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))),-1],1]
mcclg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[-((nD nH (Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) (nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 (nD+nH-nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))))),-1],1]
umcclg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3)),1,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3))],-1],1]
dfumcclg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((nD+nH))^4) ((((1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-1+nU) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6)))),1,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((nD+nH))^4) ((((1/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH (t^2) ((σD)^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))8 (E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (t^2) (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(4 (-1+nU) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) (((2 (nD^2) Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))]-(nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+4 (nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/((-1+nD) π (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nD nH ((σD)^4) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 Log[t]+2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(π ((μD)^2) (((((μD)^2)+((σD)^2)))^2) ((Log[1+(((σD)^2)/((μD)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))]))^2)/(4 Log[1+(((σD)^2)/((μD)^2))])))) nH ((σD)^2) (((nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-2 ((σD)^2) Log[t]+2 ((σD)^2) Log[μD]+(2 ((μD)^2)+3 ((σD)^2)) Log[1+(((σD)^2)/((μD)^2))]))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))16 (E^(-((2 t μH)/((σH)^2)))) nD (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))32 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-nD ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nD^2) ((Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))])^2)-2 nD Erfc[-((2 Log[t]-2 Log[μD]+Log[1+(((σD)^2)/((μD)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σD)^2)/((μD)^2))]])))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+4 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccgn[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-(((-1+r) r (Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(√((-1+r) r ((((-1+r))^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])-2 (-1+r) Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))))),-1],1]
mccgn[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD nH (Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) (-2 (nD+nH)+nH Erfc[((-t+μH)/((Sqrt[2]) σH))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))),-1],1]
umccgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3)),1,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3))],-1],1]
dfumccgn[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 ((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6) (((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/((-1+nH) π ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6))+((((nD+nH))^4) ((((1/π)2 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/((-1+nH) π ((σH)^2)))(E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/((-1+nH) π ((σH)^4)))(E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/(π ((σH)^2)))2 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((-1+nU) ((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6)))),1,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π ((σH)^4)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(π ((σH)^2)))8 (E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 ((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6) ((4 (((nD+nH))^4) (((-(1/π)(E^(-((((t-μH))^2)/((σH)^2)))) nD (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(π ((σH)^4)))(b0^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(π ((σH)^4)))(b1^2) (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (t^2) (((t-μH))^2) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(π ((σH)^2)))(E^(-((((t-μH))^2)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (t^2) (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/((-1+nU) ((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6))+((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[((-t+μH)/((Sqrt[2]) σH))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[((-t+μH)/((Sqrt[2]) σH))]-(nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/π)8 (E^(-((((t-μH))^2)/((σH)^2)))) nD (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/((-1+nH) π ((σH)^2)))4 (E^(-((((t-μH))^2)/((σH)^2)))) nD nH (((t-μH))^2) (((nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[((-t+μH)/((Sqrt[2]) σH))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nH^2) ((Erfc[((-t+μH)/((Sqrt[2]) σH))])^2)-2 nH Erfc[((-t+μH)/((Sqrt[2]) σH))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccgl[t_,r_,μD_,μH_,σD_,σH_]:=min[max[-(((-1+r) r (Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/(√((-1+r) r ((((-1+r))^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])-2 (-1+r) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))))),-1],1]
mccgl[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD nH (Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) (-2 (nD+nH)+nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))),-1],1]
umccgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3)),1,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)-(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))/((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^3))],-1],1]
dfumccgl[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 ((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6) (((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6))+((((nD+nH))^4) ((((1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 (-1+nU) ((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6)))),1,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 ((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6) (((((nD+nH))^4) ((((1/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b0^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^2) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(b1^2) (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH (t^2) ((σH)^2) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))8 (E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (t^2) (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(4 (-1+nU) ((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6))+((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2) (((2 (nH^2) Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))]-(nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)+4 (nD^2) (-1+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]))^2)+(1/((-1+nH) π (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))(E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD nH ((σH)^4) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 Log[t]+2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(π ((μH)^2) (((((μH)^2)+((σH)^2)))^2) ((Log[1+(((σH)^2)/((μH)^2))])^3)))2 (E^(-((((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))]))^2)/(4 Log[1+(((σH)^2)/((μH)^2))])))) nD ((σH)^2) (((nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-1+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+2 GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-2 nD-nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-2 ((σH)^2) Log[t]+2 ((σH)^2) Log[μH]+(2 ((μH)^2)+3 ((σH)^2)) Log[1+(((σH)^2)/((μH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))16 (E^(-((2 t μD)/((σD)^2)))) nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))32 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nH ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (-nD-2 nH+2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nH^2) ((Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))])^2)-2 nH Erfc[-((2 Log[t]-2 Log[μH]+Log[1+(((σH)^2)/((μH)^2))])/(2 (Sqrt[2]) (Sqrt[Log[1+(((σH)^2)/((μH)^2))]])))] (nD+nH-2 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])+4 nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

mccgg[t_,r_,μD_,μH_,σD_,σH_]:=min[max[((-1+r) r (GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/(√((-1+r) r (-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) (1-r GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+(-1+r) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),-1],1]
mccgg[t_,nD_,nH_,μD_,μH_,σD_,σH_]:=min[max[(nD nH (-GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))/((((nD+nH))^2) √(-(1/(((nD+nH))^4))nD nH (nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) (-nD-nH+nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))),-1],1]
umccgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_]:=min[max[Switch[nl,0,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3)),1,(1/2) √(((((nD+nH))^2) (-(1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))/((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^3))],-1],1]
dfumccgg[t_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_]:=min[max[Switch[nl,0,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 ((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((nD+nH))^4) ((((1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+2 b0 b1 nD t+(b1^2) nD (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+4 b0 b1 (-1+nD) t+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+2 b0 b1 nH t+(b1^2) nH (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)-(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+4 b0 b1 (-1+nH) t+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-1+nU) ((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6)))),1,((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (2 (b0^2) (-1+nD)+2 (b1^2) (-1+nD) (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (2 (b0^2) (-1+nH)+2 (b1^2) (-1+nH) (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 ((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6) (((((nD+nH))^4) (((-(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μD)^2) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH ((b0^2) nD+(b1^2) nD (t^2)+((σD)^2)) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b0^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((σD)^6) ((Gamma[(((μD)^2)/((σD)^2))])^2)))4 (b1^2) (E^(-((2 t μD)/((σD)^2)))) nD nH (t^2) (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)-(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((μH)^2) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD ((b0^2) nH+(b1^2) nH (t^2)+((σH)^2)) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b0^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/(((σH)^6) ((Gamma[(((μH)^2)/((σH)^2))])^2)))4 (b1^2) (E^(-((2 t μH)/((σH)^2)))) nD nH (t^2) (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-1+nU) ((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))+((((nD+nH))^4) ((((1/(nD nH (((4+nD+nH))^3)))(2+nD) (2+nH) (((nD+nH))^2) (((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2) ((((nD^2) GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))]-(nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+(nH^2) (-1+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]) GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]))^2)+(1/(((μD)^2) ((σD)^2) ((Gamma[(((μD)^2)/((σD)^2))])^2)))(E^(-((2 t μD)/((σD)^2)))) nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)-2 (E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]-2 (E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/((-1+nD) ((σD)^4) ((Gamma[(((μD)^2)/((σD)^2))])^2)))2 (E^(-((2 t μD)/((σD)^2)))) nD nH (((nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (-1+2 GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-2 nH+2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μD)/((σD)^2))))^(((μD)^2)/((σD)^2))) ((σD)^2)+(E^((t μD)/((σD)^2))) ((μD)^2) MeijerG[{{},{1,1}},{{0,0,(((μD)^2)/((σD)^2))},{}},((t μD)/((σD)^2))]+(E^((t μD)/((σD)^2))) ((μD)^2) Gamma[(((μD)^2)/((σD)^2))] GammaRegularized[(((μD)^2)/((σD)^2)),((t μD)/((σD)^2))] (Log[((t μD)/((σD)^2))]-PolyGamma[0,(((μD)^2)/((σD)^2))])))^2)+(1/(((μH)^2) ((σH)^2) ((Gamma[(((μH)^2)/((σH)^2))])^2)))(E^(-((2 t μH)/((σH)^2)))) nD (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) ((((((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)-2 (E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]-2 (E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)+(1/((-1+nH) ((σH)^4) ((Gamma[(((μH)^2)/((σH)^2))])^2)))2 (E^(-((2 t μH)/((σH)^2)))) nD nH (((-2 nD ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))]+GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (2 nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^2) (((-(((((t μH)/((σH)^2))))^(((μH)^2)/((σH)^2))) ((σH)^2)+(E^((t μH)/((σH)^2))) ((μH)^2) MeijerG[{{},{1,1}},{{0,0,(((μH)^2)/((σH)^2))},{}},((t μH)/((σH)^2))]+(E^((t μH)/((σH)^2))) ((μH)^2) Gamma[(((μH)^2)/((σH)^2))] GammaRegularized[(((μH)^2)/((σH)^2)),((t μH)/((σH)^2))] (Log[((t μH)/((σH)^2))]-PolyGamma[0,(((μH)^2)/((σH)^2))])))^2)))^2))/(16 (-2+nD+nH) ((((nD^2) ((GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))])^2)-nD GammaRegularized[(((μD)^2)/((σD)^2)),0,((t μD)/((σD)^2))] (nD+nH-2 nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))] (-nD-nH+nH GammaRegularized[(((μH)^2)/((σH)^2)),0,((t μH)/((σH)^2))])))^6))))],If[b0>0∨b1>0,Min[nD-1,nH-1,nU-1],Min[nD-1,nH-1]]],If[b0>0∨b1>0,2nD+2nH+nU-5,2nD+2nH-4]]

d[dm_,dD_,dH_]:=Switch[dm,"sns",Switch[dD,
"normal",
Switch[dH,"normal",snsnn,"lognormal",snsnl,"gamma",snsng],
"lognormal",
Switch[dH,"normal",snsln,"lognormal",snsll,"gamma",snslg],
"gamma",
Switch[dH,"normal",snsgn,"lognormal",snsgl,"gamma",snsgg]],
"spc",Switch[dD,
"normal",
Switch[dH,"normal",spcnn,"lognormal",spcnl,"gamma",spcng],
"lognormal",
Switch[dH,"normal",spcln,"lognormal",spcll,"gamma",spclg],
"gamma",
Switch[dH,"normal",spcgn,"lognormal",spcgl,"gamma",spcgg]],"oda",Switch[dD,
"normal",
Switch[dH,"normal",odann,"lognormal",odanl,"gamma",odang],
"lognormal",
Switch[dH,"normal",odaln,"lognormal",odall,"gamma",odalg],
"gamma",
Switch[dH,"normal",odagn,"lognormal",odagl,"gamma",odagg]],"ppv",Switch[dD,
"normal",
Switch[dH,"normal",ppvnn,"lognormal",ppvnl,"gamma",ppvng],
"lognormal",
Switch[dH,"normal",ppvln,"lognormal",ppvll,"gamma",ppvlg],
"gamma",
Switch[dH,"normal",ppvgn,"lognormal",ppvgl,"gamma",ppvgg]],"npv",Switch[dD,
"normal",
Switch[dH,"normal",npvnn,"lognormal",npvnl,"gamma",npvng],
"lognormal",
Switch[dH,"normal",npvln,"lognormal",npvll,"gamma",npvlg],
"gamma",
Switch[dH,"normal",npvgn,"lognormal",npvgl,"gamma",npvgg]],"dor",Switch[dD,
"normal",
Switch[dH,"normal",dornn,"lognormal",dornl,"gamma",dorng],
"lognormal",
Switch[dH,"normal",dorln,"lognormal",dorll,"gamma",dorlg],
"gamma",
Switch[dH,"normal",dorgn,"lognormal",dorgl,"gamma",dorgg]],"plr",Switch[dD,
"normal",
Switch[dH,"normal",plrnn,"lognormal",plrnl,"gamma",plrng],
"lognormal",
Switch[dH,"normal",plrln,"lognormal",plrll,"gamma",plrlg],
"gamma",
Switch[dH,"normal",plrgn,"lognormal",plrgl,"gamma",plrgg]],"nlr",Switch[dD,
"normal",
Switch[dH,"normal",nlrnn,"lognormal",nlrnl,"gamma",nlrng],
"lognormal",
Switch[dH,"normal",nlrln,"lognormal",nlrll,"gamma",nlrlg],
"gamma",
Switch[dH,"normal",nlrgn,"lognormal",nlrgl,"gamma",nlrgg]],"js",Switch[dD,
"normal",
Switch[dH,"normal",jsnn,"lognormal",jsnl,"gamma",jsng],
"lognormal",
Switch[dH,"normal",jsln,"lognormal",jsll,"gamma",jslg],
"gamma",
Switch[dH,"normal",jsgn,"lognormal",jsgl,"gamma",jsgg]],"ba",Switch[dD,
"normal",
Switch[dH,"normal",bann,"lognormal",banl,"gamma",bang],
"lognormal",
Switch[dH,"normal",baln,"lognormal",ball,"gamma",balg],
"gamma",
Switch[dH,"normal",bagn,"lognormal",bagl,"gamma",bagg]],"cz",Switch[dD,
"normal",
Switch[dH,"normal",cznn,"lognormal",cznl,"gamma",czng],
"lognormal",
Switch[dH,"normal",czln,"lognormal",czll,"gamma",czlg],
"gamma",
Switch[dH,"normal",czgn,"lognormal",czgl,"gamma",czgg]],"fmi",Switch[dD,
"normal",
Switch[dH,"normal",fminn,"lognormal",fminl,"gamma",fming],
"lognormal",
Switch[dH,"normal",fmiln,"lognormal",fmill,"gamma",fmilg],
"gamma",
Switch[dH,"normal",fmign,"lognormal",fmigl,"gamma",fmigg]],
"ck",Switch[dD,
"normal",
Switch[dH,"normal",cknn,"lognormal",cknl,"gamma",ckng],
"lognormal",
Switch[dH,"normal",ckln,"lognormal",ckll,"gamma",cklg],
"gamma",
Switch[dH,"normal",ckgn,"lognormal",ckgl,"gamma",ckgg]],
"pabak",Switch[dD,
"normal",
Switch[dH,"normal",pabaknn,"lognormal",pabaknl,"gamma",pabakng],
"lognormal",
Switch[dH,"normal",pabakln,"lognormal",pabakll,"gamma",pabaklg],
"gamma",
Switch[dH,"normal",pabakgn,"lognormal",pabakgl,"gamma",pabakgg]],
"f1s",Switch[dD,
"normal",
Switch[dH,"normal",f1snn,"lognormal",f1snl,"gamma",f1sng],
"lognormal",
Switch[dH,"normal",f1sln,"lognormal",f1sll,"gamma",f1slg],
"gamma",
Switch[dH,"normal",f1sgn,"lognormal",f1sgl,"gamma",f1sgg]],
"mcc",Switch[dD,
"normal",
Switch[dH,"normal",mccnn,"lognormal",mccnl,"gamma",mccng],
"lognormal",
Switch[dH,"normal",mccln,"lognormal",mccll,"gamma",mcclg],
"gamma",
Switch[dH,"normal",mccgn,"lognormal",mccgl,"gamma",mccgg]]]
c[dm_,dD_,dH_]:=Switch[dm,"sns",Switch[dD,
"normal",
Switch[dH,"normal",usnsnn,"lognormal",usnsnl,"gamma",usnsng],
"lognormal",
Switch[dH,"normal",usnsln,"lognormal",usnsll,"gamma",usnslg],
"gamma",
Switch[dH,"normal",usnsgn,"lognormal",usnsgl,"gamma",usnsgg]],
"spc",Switch[dD,
"normal",
Switch[dH,"normal",uspcnn,"lognormal",uspcnl,"gamma",uspcng],
"lognormal",
Switch[dH,"normal",uspcln,"lognormal",uspcll,"gamma",uspclg],
"gamma",
Switch[dH,"normal",uspcgn,"lognormal",uspcgl,"gamma",uspcgg]],"oda",Switch[dD,
"normal",
Switch[dH,"normal",uodann,"lognormal",uodanl,"gamma",uodang],
"lognormal",
Switch[dH,"normal",uodaln,"lognormal",uodall,"gamma",uodalg],
"gamma",
Switch[dH,"normal",uodagn,"lognormal",uodagl,"gamma",uodagg]],"ppv",Switch[dD,
"normal",
Switch[dH,"normal",uppvnn,"lognormal",uppvnl,"gamma",uppvng],
"lognormal",
Switch[dH,"normal",uppvln,"lognormal",uppvll,"gamma",uppvlg],
"gamma",
Switch[dH,"normal",uppvgn,"lognormal",uppvgl,"gamma",uppvgg]],"npv",Switch[dD,
"normal",
Switch[dH,"normal",unpvnn,"lognormal",unpvnl,"gamma",unpvng],
"lognormal",
Switch[dH,"normal",unpvln,"lognormal",unpvll,"gamma",unpvlg],
"gamma",
Switch[dH,"normal",unpvgn,"lognormal",unpvgl,"gamma",unpvgg]],"dor",Switch[dD,
"normal",
Switch[dH,"normal",udornn,"lognormal",udornl,"gamma",udorng],
"lognormal",
Switch[dH,"normal",udorln,"lognormal",udorll,"gamma",udorlg],
"gamma",
Switch[dH,"normal",udorgn,"lognormal",udorgl,"gamma",udorgg]],"plr",Switch[dD,
"normal",
Switch[dH,"normal",uplrnn,"lognormal",uplrnl,"gamma",uplrng],
"lognormal",
Switch[dH,"normal",uplrln,"lognormal",uplrll,"gamma",uplrlg],
"gamma",
Switch[dH,"normal",uplrgn,"lognormal",uplrgl,"gamma",uplrgg]],"nlr",Switch[dD,
"normal",
Switch[dH,"normal",unlrnn,"lognormal",unlrnl,"gamma",unlrng],
"lognormal",
Switch[dH,"normal",unlrln,"lognormal",unlrll,"gamma",unlrlg],
"gamma",
Switch[dH,"normal",unlrgn,"lognormal",unlrgl,"gamma",unlrgg]],"js",Switch[dD,
"normal",
Switch[dH,"normal",ujsnn,"lognormal",ujsnl,"gamma",ujsng],
"lognormal",
Switch[dH,"normal",ujsln,"lognormal",ujsll,"gamma",ujslg],
"gamma",
Switch[dH,"normal",ujsgn,"lognormal",ujsgl,"gamma",ujsgg]],"ba",Switch[dD,
"normal",
Switch[dH,"normal",ubann,"lognormal",ubanl,"gamma",ubang],
"lognormal",
Switch[dH,"normal",ubaln,"lognormal",uball,"gamma",ubalg],
"gamma",
Switch[dH,"normal",ubagn,"lognormal",ubagl,"gamma",ubagg]],"cz",Switch[dD,
"normal",
Switch[dH,"normal",ucznn,"lognormal",ucznl,"gamma",uczng],
"lognormal",
Switch[dH,"normal",uczln,"lognormal",uczll,"gamma",uczlg],
"gamma",
Switch[dH,"normal",uczgn,"lognormal",uczgl,"gamma",uczgg]],"fmi",Switch[dD,
"normal",
Switch[dH,"normal",ufminn,"lognormal",ufminl,"gamma",ufming],
"lognormal",
Switch[dH,"normal",ufmiln,"lognormal",ufmill,"gamma",ufmilg],
"gamma",
Switch[dH,"normal",ufmign,"lognormal",ufmigl,"gamma",ufmigg]],
"ck",Switch[dD,
"normal",
Switch[dH,"normal",ucknn,"lognormal",ucknl,"gamma",uckng],
"lognormal",
Switch[dH,"normal",uckln,"lognormal",uckll,"gamma",ucklg],
"gamma",
Switch[dH,"normal",uckgn,"lognormal",uckgl,"gamma",uckgg]],
"pabak",Switch[dD,
"normal",
Switch[dH,"normal",upabaknn,"lognormal",upabaknl,"gamma",upabakng],
"lognormal",
Switch[dH,"normal",upabakln,"lognormal",upabakll,"gamma",upabaklg],
"gamma",
Switch[dH,"normal",upabakgn,"lognormal",upabakgl,"gamma",upabakgg]],
"f1s",Switch[dD,
"normal",
Switch[dH,"normal",uf1snn,"lognormal",uf1snl,"gamma",uf1sng],
"lognormal",
Switch[dH,"normal",uf1sln,"lognormal",uf1sll,"gamma",uf1slg],
"gamma",
Switch[dH,"normal",uf1sgn,"lognormal",uf1sgl,"gamma",uf1sgg]],
"mcc",Switch[dD,
"normal",
Switch[dH,"normal",umccnn,"lognormal",umccnl,"gamma",umccng],
"lognormal",
Switch[dH,"normal",umccln,"lognormal",umccll,"gamma",umcclg],
"gamma",
Switch[dH,"normal",umccgn,"lognormal",umccgl,"gamma",umccgg]]]
df[dm_,dD_,dH_]:=Switch[dm,"sns",Switch[dD,
"normal",
Switch[dH,"normal",dfusnsnn,"lognormal",dfusnsnl,"gamma",dfusnsng],
"lognormal",
Switch[dH,"normal",dfusnsln,"lognormal",dfusnsll,"gamma",dfusnslg],
"gamma",
Switch[dH,"normal",dfusnsgn,"lognormal",dfusnsgl,"gamma",dfusnsgg]],
"spc",Switch[dD,
"normal",
Switch[dH,"normal",dfuspcnn,"lognormal",dfuspcnl,"gamma",dfuspcng],
"lognormal",
Switch[dH,"normal",dfuspcln,"lognormal",dfuspcll,"gamma",dfuspclg],
"gamma",
Switch[dH,"normal",dfuspcgn,"lognormal",dfuspcgl,"gamma",dfuspcgg]],"oda",Switch[dD,
"normal",
Switch[dH,"normal",dfuodann,"lognormal",dfuodanl,"gamma",dfuodang],
"lognormal",
Switch[dH,"normal",dfuodaln,"lognormal",dfuodall,"gamma",dfuodalg],
"gamma",
Switch[dH,"normal",dfuodagn,"lognormal",dfuodagl,"gamma",dfuodagg]],"ppv",Switch[dD,
"normal",
Switch[dH,"normal",dfuppvnn,"lognormal",dfuppvnl,"gamma",dfuppvng],
"lognormal",
Switch[dH,"normal",dfuppvln,"lognormal",dfuppvll,"gamma",dfuppvlg],
"gamma",
Switch[dH,"normal",dfuppvgn,"lognormal",dfuppvgl,"gamma",dfuppvgg]],"npv",Switch[dD,
"normal",
Switch[dH,"normal",dfunpvnn,"lognormal",dfunpvnl,"gamma",dfunpvng],
"lognormal",
Switch[dH,"normal",dfunpvln,"lognormal",dfunpvll,"gamma",dfunpvlg],
"gamma",
Switch[dH,"normal",dfunpvgn,"lognormal",dfunpvgl,"gamma",dfunpvgg]],"dor",Switch[dD,
"normal",
Switch[dH,"normal",dfudornn,"lognormal",dfudornl,"gamma",dfudorng],
"lognormal",
Switch[dH,"normal",dfudorln,"lognormal",dfudorll,"gamma",dfudorlg],
"gamma",
Switch[dH,"normal",dfudorgn,"lognormal",dfudorgl,"gamma",dfudorgg]],"plr",Switch[dD,
"normal",
Switch[dH,"normal",dfuplrnn,"lognormal",dfuplrnl,"gamma",dfuplrng],
"lognormal",
Switch[dH,"normal",dfuplrln,"lognormal",dfuplrll,"gamma",dfuplrlg],
"gamma",
Switch[dH,"normal",dfuplrgn,"lognormal",dfuplrgl,"gamma",dfuplrgg]],"nlr",Switch[dD,
"normal",
Switch[dH,"normal",dfunlrnn,"lognormal",dfunlrnl,"gamma",dfunlrng],
"lognormal",
Switch[dH,"normal",dfunlrln,"lognormal",dfunlrll,"gamma",dfunlrlg],
"gamma",
Switch[dH,"normal",dfunlrgn,"lognormal",dfunlrgl,"gamma",dfunlrgg]],"js",Switch[dD,
"normal",
Switch[dH,"normal",dfujsnn,"lognormal",dfujsnl,"gamma",dfujsng],
"lognormal",
Switch[dH,"normal",dfujsln,"lognormal",dfujsll,"gamma",dfujslg],
"gamma",
Switch[dH,"normal",dfujsgn,"lognormal",dfujsgl,"gamma",dfujsgg]],"ba",Switch[dD,
"normal",
Switch[dH,"normal",dfubann,"lognormal",dfubanl,"gamma",dfubang],
"lognormal",
Switch[dH,"normal",dfubaln,"lognormal",dfuball,"gamma",dfubalg],
"gamma",
Switch[dH,"normal",dfubagn,"lognormal",dfubagl,"gamma",dfubagg]],"cz",Switch[dD,
"normal",
Switch[dH,"normal",dfucznn,"lognormal",dfucznl,"gamma",dfuczng],
"lognormal",
Switch[dH,"normal",dfuczln,"lognormal",dfuczll,"gamma",dfuczlg],
"gamma",
Switch[dH,"normal",dfuczgn,"lognormal",dfuczgl,"gamma",dfuczgg]],"fmi",Switch[dD,
"normal",
Switch[dH,"normal",dfufminn,"lognormal",dfufminl,"gamma",dfufming],
"lognormal",
Switch[dH,"normal",dfufmiln,"lognormal",dfufmill,"gamma",dfufmilg],
"gamma",
Switch[dH,"normal",dfufmign,"lognormal",dfufmigl,"gamma",dfufmigg]],
"ck",Switch[dD,
"normal",
Switch[dH,"normal",dfucknn,"lognormal",dfucknl,"gamma",dfuckng],
"lognormal",
Switch[dH,"normal",dfuckln,"lognormal",dfuckll,"gamma",dfucklg],
"gamma",
Switch[dH,"normal",dfuckgn,"lognormal",dfuckgl,"gamma",dfuckgg]],
"pabak",Switch[dD,
"normal",
Switch[dH,"normal",dfupabaknn,"lognormal",dfupabaknl,"gamma",dfupabakng],
"lognormal",
Switch[dH,"normal",dfupabakln,"lognormal",dfupabakll,"gamma",dfupabaklg],
"gamma",
Switch[dH,"normal",dfupabakgn,"lognormal",dfupabakgl,"gamma",dfupabakgg]],
"f1s",Switch[dD,
"normal",
Switch[dH,"normal",dfuf1snn,"lognormal",dfuf1snl,"gamma",dfuf1sng],
"lognormal",
Switch[dH,"normal",dfuf1sln,"lognormal",dfuf1sll,"gamma",dfuf1slg],
"gamma",
Switch[dH,"normal",dfuf1sgn,"lognormal",dfuf1sgl,"gamma",dfuf1sgg]],
"mcc",Switch[dD,
"normal",
Switch[dH,"normal",dfumccnn,"lognormal",dfumccnl,"gamma",dfumccng],
"lognormal",
Switch[dH,"normal",dfumccln,"lognormal",dfumccll,"gamma",dfumcclg],
"gamma",
Switch[dH,"normal",dfumccgn,"lognormal",dfumccgl,"gamma",dfumccgg]]]
txt[dm_]:=Switch[dm,"sns","\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\)",
"spc","\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\)","oda","\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\)","ppv","\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\)","npv","\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\)","dor","\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\)","plr","\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\)","nlr","\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\)","js","\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\)","ba","\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)","cz","\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)","fmi","\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)","ck","\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)","pabak","\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)","f1s","\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\)","mcc","\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)"]
dtxt[dm_]:=Switch[dm,"sns","sensitivity","spc","specificity","oda","overall diagnostic accuracy","ppv","positive predictive value","npv","negative predictive value","dor","diagnostic odds ratio","plr","likelihood ratio for a positive result","nlr","likelihood ratio for a negative result","js","Youden's index","ba","balanced accuracy","cz","concordance probability","fmi","Fowlkes–Mallows index","ck","Cohen’s kappa coefficient","pabak","prevalence-adjusted bias-adjusted kappa","f1s","\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score","mcc","Matthews correlation coefficient"]
ltxt[dm_]:=Switch[dm,"sns","sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc","specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda","overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv","positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv","negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor","diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr","likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr","likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js","Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba","balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz","concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi","Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck","Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak","prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s","\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc","Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"]
utxt[dm_]:=Switch[dm,"sns","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"]
rutxt[dm_]:=Switch[dm,"sns","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\)","spc","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\)","oda","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\)","ppv","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\)","npv","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\)","dor","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\)","plr","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))/\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\)","nlr","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))/\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\)","js","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\)","ba","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)","cz","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)","fmi","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)","ck","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)","pabak","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)","f1s","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\)","mcc","\!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))/\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)"]
umtxt[dm_]:=Switch[dm,"sns","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc","\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"]
ustxt[dm_]:=Switch[dm,"sns","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc","\!\(\*StyleBox[SubscriptBox[\"u\", \"s\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"]
uctxt[dm_]:=Switch[dm,"sns","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc","\!\(\*StyleBox[SubscriptBox[\"u\", \"c\"],FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"]
lutxt[dm_]:=Switch[dm,"sns","standard uncertainty of sensitivity \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","spc","standard uncertainty of specificity \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","oda","standard uncertainty of overall diagnostic accuracy \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","ppv","standard uncertainty of positive predictive value \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","npv","standard uncertainty of negative predictive value u(NPV)","dor","standard uncertainty of diagnostic odds ratio u(DOR)","plr","standard uncertainty of likelihood ratio for a positive result \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[SuperscriptBox[\"LR\", StyleBox[\"+\",FontSlant->\"Plain\"]],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","nlr","standard uncertainty of likelihood ratio for a negative result \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[SuperscriptBox[\"LR\", \"-\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","js","standard uncertainty of Youden's index \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","ba","standard uncertainty of balanced accuracy \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","cz","standard uncertainty of concordance probability \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","fmi","standard uncertainty of Fowlkes–Mallows index \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","ck","standard uncertainty of Cohen’s kappa coefficient \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","pabak","standard uncertainty of prevalence-adjusted bias-adjusted kappa \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","f1s","standard uncertainty of \!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","mcc","standard uncertainty of Matthews correlation coefficient \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)"]
dutxt[dm_]:=Switch[dm,"sns","standard uncertainty of sensitivity","spc","standard uncertainty of specificity","oda","standard uncertainty of overall diagnostic accuracy","ppv","standard uncertainty of positive predictive value","npv","standard uncertainty of negative predictive value","dor","standard uncertainty of diagnostic odds ratio","plr","standard uncertainty of likelihood ratio for a positive result","nlr","standard uncertainty of likelihood ratio for a negative result","js","standard uncertainty of Youden's index","ba","standard uncertainty of balanced accuracy","cz","standard uncertainty of concordance probability","fmi","standard uncertainty of Fowlkes–Mallows index","ck","standard uncertainty of Cohen’s kappa coefficient","pabak","standard uncertainty of prevalence-adjusted bias-adjusted kappa","f1s","standard uncertainty of \!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score","mcc","standard uncertainty of Matthews correlation coefficient"]
lrutxt[dm_]:=Switch[dm,"sns","relative standard uncertainty of sensitivity \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\)","spc","relative standard uncertainty of specificity \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\)","oda","relative standard uncertainty of overall diagnostic accuracy \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\)","ppv","relative standard uncertainty of positive predictive value \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\)","npv","relative standard uncertainty of negative predictive value u(NPV)/NPV","dor","relative standard uncertainty of diagnostic odds ratio u(DOR)/DOR","plr","relative standard uncertainty of likelihood ratio for a positive result \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))/\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\)","nlr","relative standard uncertainty of likelihood ratio for a negative result u(\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))/\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\)","js","relative standard uncertainty of Youden's index \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\)","ba","relative standard uncertainty of balanced accuracy \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)","cz","relative standard uncertainty of concordance probability \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)","fmi","relative standard uncertainty of Fowlkes–Mallows index \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)","ck","relative standard uncertainty of Cohen’s kappa coefficient \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)","pabak","relative standard uncertainty of prevalence-adjusted bias-adjusted kappa \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)","f1s","relative standard uncertainty of \!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\)","mcc","relative standard uncertainty of Matthews correlation coefficient \!\(\*StyleBox[\"u\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"/\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)"]
drutxt[dm_]:=Switch[dm,"sns","relative standard uncertainty of sensitivity","spc","relative standard uncertainty of specificity","oda","relative standard uncertainty of overall diagnostic accuracy","ppv","relative standard uncertainty of positive predictive value","npv","relative standard uncertainty of negative predictive value","dor","relative standard uncertainty of diagnostic odds ratio","plr","relative standard uncertainty of likelihood ratio for a positive result","nlr","relative standard uncertainty of likelihood ratio for a negative result","js","relative standard uncertainty of Youden's index","ba","relative standard uncertainty of balanced accuracy","cz","relative standard uncertainty of concordance probability","fmi","relative standard uncertainty of Fowlkes–Mallows index","ck","relative standard uncertainty of Cohen’s kappa coefficient","pabak","relative standard uncertainty of prevalence-adjusted bias-adjusted kappa","f1s","relative standard uncertainty of \!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score","mcc","relative standard uncertainty of Matthews correlation coefficient"]
lb[pr_,μD_,μH_,σD_,σH_]:=Switch[pr,True,Floor[Max[Min[μH-3σH,μD-3σD],0]],False,Floor[Max[Min[μH-σH,μD-σD],0]]]
ub[pr_,μD_,μH_,σD_,σH_]:=Switch[pr,True,Ceiling[Max[μH+3σH,μD+3σD]],False,Ceiling[Max[μH+σH,μD+σD]]]
pro[pr_]:=Switch[pr,True,SetOptions[Plot,PlotRange->Full],False,SetOptions[Plot,PlotRange->Automatic]]
maxdm[nD_,nH_,μD_,μH_,σD_,σH_,dm_,dD_,dH_]:=Quiet[NMaximize[{d[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH},t>μH},{t}]]
optdm[nD_,nH_,μD_,μH_,σD_,σH_,dm_,dD_,dH_]:=Quiet[maxdm[nD,nH,μD,μH,σD,σH,dm,dD,dH]]
dp[t_,r_,μD_,μH_,σD_,σH_,dm_,dD_,dH_]:=Quiet[Re[d[dm,dD,dH]@@{t,r,μD,μH,σD,σH}]]
dp[t_,nD_,nH_,μD_,μH_,σD_,σH_,dm_,dD_,dH_]:=Quiet[Re[d[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH}]]
dpu[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_]:=Quiet[Block[{fc=Re[c[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,b0,b1,nl}],fc0=Re[c[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,0,0,nl}]},{fc,Re[(Sqrt[(fc^2)-(fc0^2)])],fc0}]]
dpru[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_]:=Quiet[Block[{fd=d[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH},fc=c[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,b0,b1,nl},fc0=c[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,0,0,nl}},If[fd ∈Reals&&fc ∈Reals&&fc0 ∈Reals&&fd>0&&fc0<=fc,{Evaluate[fc/fd],Evaluate[((Sqrt[(fc^2)-(fc0^2)])/fd)],Evaluate[fc0/fd]},{Indeterminate,Indeterminate,Indeterminate}]]]
dpci[t_,p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dm_,dD_,dH_]:=Quiet[Block[{fd=Re[d[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH}],fc=Re[c[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,b0,b1,nl}],fc0=Re[c[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,0,0,nl}],fdf=Re[df[dm,dD,dH]@@{t,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl}],stci},stci=StudentTCI[fd,fc,fdf,ConfidenceLevel->p];{Which[dm=="sns"∨dm=="spc"∨dm=="oda"∨dm=="ppv"∨dm=="npv"∨dm=="cz"∨dm=="fmi"∨dm=="f1s",min[max[stci[[1]],0],1],dm=="dor"∨dm=="plr"∨dm=="nlr",max[stci[[1]],0],dm=="js"∨dm=="ck"∨dm=="pabak"∨dm=="mcc",min[max[stci[[1]],-1],1],dm=="ba",min[max[stci[[1]],0],1]],fd,Which[dm=="sns"∨dm=="spc"∨dm=="oda"∨dm=="ppv"∨dm=="npv"∨dm=="cz"∨dm=="fmi"∨dm=="f1s",min[max[stci[[2]],0],1],dm=="dor"∨dm=="plr"∨dm=="nlr",max[stci[[2]],0],dm=="js"∨dm=="ck"∨dm=="pabak"∨dm=="mcc",min[max[stci[[2]],-1],1],dm=="ba",min[max[stci[[2]],0],1]]}]]
pcdp[r_,μD_,μH_,σD_,σH_,dm_,dD_,dH_,pr_]:=Quiet[Text@Labeled[Plot[dp[t,r,μD,μH,σD,σH,dm,dD,dH],{t,lb[pr,μD,μH,σD,σH],ub[pr,μD,μH,σD,σH]},AxesOrigin->{lb[pr,μD,μH,σD,σH],0},FrameLabel->{"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",txt[dm]},PlotRange->Full,Exclusions->"Singularities",PlotTheme->"Scientific",Filling->Axis,PlotHighlighting->"Dropline",ImageSize->{600}],dtxt[dm]<>" vs diagnostic threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",Top]]
pcdp[nD_,nH_,μD_,μH_,σD_,σH_,dm_,dD_,dH_,pr_]:=Quiet[Text@Labeled[Plot[dp[t,nD,nH,μD,μH,σD,σH,dm,dD,dH],{t,lb[pr,μD,μH,σD,σH],ub[pr,μD,μH,σD,σH]},AxesOrigin->{lb[pr,μD,μH,σD,σH],0},FrameLabel->{"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",txt[dm]},PlotRange->Full,Exclusions->"Singularities",PlotTheme->"Scientific",Filling->Axis,PlotHighlighting->"Dropline",ImageSize->{600}],dtxt[dm]<>" vs diagnostic threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",Top]]
pcdpm[nD_,nH_,μD_,μH_,σD_,σH_,dm1_,dm2_,dD_,dH_,pr_]:=Quiet[Text@Labeled[ParametricPlot[{dp[t,nD,nH,μD,μH,σD,σH,dm1,dD,dH],dp[t,nD,nH,μD,μH,σD,σH,dm2,dD,dH]},{t,lb[pr,μD,μH,σD,σH],ub[pr,μD,μH,σD,σH]},FrameLabel->{txt[dm1],txt[dm2]},PlotRange->Full,Exclusions->"Singularities",PlotTheme->"Scientific",PlotHighlighting->"Dropline",ImageSize->{400},AspectRatio->1],dtxt[dm2]<>" vs "<>dtxt[dm1],Top]]
pcdpr[t_,μD_,μH_,σD_,σH_,dm_,dD_,dH_,pr_]:=Quiet[Text@Labeled[Plot[dp[t,r,μD,μH,σD,σH,dm,dD,dH],{r,Switch[pr,True,0.001,False,0.01],Switch[pr,True,0.999,False,0.20]},AxesOrigin->{Switch[pr,True,0.001,False,0.01],0},FrameLabel->{"\!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)",txt[dm]},PlotRange->Full,Exclusions->"Singularities",PlotTheme->"Scientific",Filling->Axis,PlotHighlighting->"Dropline",ImageSize->{600}],dtxt[dm]<>" vs prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)",Top]]
pcdpu[nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{t,lb[pr,μD,μH,σD,σH],ub[pr,μD,μH,σD,σH]},Exclusions->"Singularities",AxesOrigin->{lb[pr,μD,μH,σD,σH],0},PlotRange->Full,PlotTheme->"Scientific",PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",utxt[dm]},PlotLegends->Placed[{uctxt[dm],umtxt[dm],ustxt[dm]},Right],PlotHighlighting->"Dropline", ImageSize->{600}]],
Column[{dutxt[dm]<>" vs diagnostic threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdpru[nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{t,lb[pr,μD,μH,σD,σH],ub[pr,μD,μH,σD,σH]},Exclusions->"Singularities",AxesOrigin->{lb[pr,μD,μH,σD,σH],0},PlotRange->Full,PlotTheme->"Scientific",PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",rutxt[dm]},PlotLegends->Placed[{uctxt[dm]<>"/"<>txt[dm],umtxt[dm]<>"/"<>txt[dm],ustxt[dm]<>"/"<>txt[dm]},Right],PlotHighlighting->"Dropline", ImageSize->{600}]],
Column[{drutxt[dm]<>" vs diagnostic threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdpci[p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[3]],dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[2]],dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[1]]},{t,lb[pr,μD,μH,σD,σH],ub[pr,μD,μH,σD,σH]},Exclusions->"Singularities",AxesOrigin->{lb[pr,μD,μH,σD,σH],0},PlotRange->Full,PlotTheme->"Scientific", PlotStyle->{{Dashing[{Large,Small}],StandardBlue,Thickness[0.003]},{Dashing[{}],StandardBlue},{Dashing[{Medium,Small}],StandardBlue,Thickness[0.003]}},Filling->{1->{{2},Opacity[0.5,Lighter[StandardBlue,0.8]]},2->{{3},Opacity[0.5,Lighter[StandardBlue,0.8]]}},FrameLabel->{"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",txt[dm]},PlotLegends->Placed[{"UCL of "<>txt[dm],txt[dm],"LCL of "<>txt[dm]},Right],PlotHighlighting->"Dropline", ImageSize->{600}]],
Column[{ToString[NumberForm[N[100 p],{4,2}]]<>" % confidence intervals of "<>dtxt[dm]<>" vs diagnostic threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdpub0[t_,nD_,nH_,μD_,μH_,σD_,σH_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{b0,0,Switch[pr,True,0.5σH,False,0.15 σH]},Exclusions->"Singularities",PlotRange->Full, PlotTheme->"Scientific",PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)",utxt[dm]},PlotLegends->Placed[{uctxt[dm],umtxt[dm],ustxt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],
Column[{dutxt[dm]<>" vs constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\) to measurement uncertainty"},Center],Top]
pcdprub0[t_,nD_,nH_,μD_,μH_,σD_,σH_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{b0,0,Switch[pr,True,0.5` σH,False,0.15` σH]},Exclusions->"Singularities",PlotTheme->"Scientific",AxesOrigin->{0,0},PlotRange->Full,PlotStyle->{Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}],Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)",rutxt[dm]},PlotLegends->Placed[{uctxt[dm]<>"/"<>txt[dm],umtxt[dm]<>"/"<>txt[dm],ustxt[dm]<>"/"<>txt[dm]},Right],PlotHighlighting->"XSlice",ImageSize->600]],
Column[{drutxt[dm]<>" vs constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\) to measurement uncertainty"},Center],Top]
pcdpcib0[t_,p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[3]],dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[2]],dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[1]]},{b0,0,Switch[pr,True,0.5σH,False,0.15 σH]},Exclusions->"Singularities",PlotTheme->"Scientific",PlotRange->Full, PlotStyle->{{Dashing[{Large,Small}],StandardBlue,Thickness[0.003]},{Dashing[{}],StandardBlue},{Dashing[{Medium,Small}],StandardBlue,Thickness[0.003]}},Filling->{1->{{2},Opacity[0.5,Lighter[StandardBlue,0.8]]},2->{{3},Opacity[0.5,Lighter[StandardBlue,0.8]]}},FrameLabel->{"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)",txt[dm]},PlotLegends->Placed[{"UCL of "<>txt[dm],txt[dm],"LCL of  "<>txt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],Column[{ToString[NumberForm[N[100 p],{4,2}]]<>" % confidence intervals of "<>dtxt[dm]<>" vs constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\) to measurement uncertainty"},Center],Top]
pcdpub1[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{b1,0,Switch[pr,True,0.1,False,0.05 ]},Exclusions->"Singularities",PlotRange->Full, PlotTheme->"Scientific",PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)",utxt[dm]},PlotLegends->Placed[{uctxt[dm],umtxt[dm],ustxt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],
Column[{dutxt[dm]<>" vs measurement uncertainty proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},Center],Top]
pcdprub1[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{b1,0,Switch[pr,True,0.1,False,0.05 ]},Exclusions->"Singularities", PlotTheme->"Scientific",AxesOrigin->{0,0},PlotRange->Full, PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)",rutxt[dm]},PlotLegends->Placed[{uctxt[dm]<>"/"<>txt[dm],umtxt[dm]<>"/"<>txt[dm],ustxt[dm]<>"/"<>txt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],
Column[{drutxt[dm]<>" vs measurement uncertainty proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},Center],Top]
pcdpcib1[t_,p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[3]],dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[2]],dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[1]]},{b1,0,Switch[pr,True,0.1,False,0.05 ]},Exclusions->"Singularities",PlotTheme->"Scientific",PlotRange->Full, PlotStyle->{{Dashing[{Large,Small}],StandardBlue,Thickness[0.003]},{Dashing[{}],StandardBlue},{Dashing[{Medium,Small}],StandardBlue,Thickness[0.003]}},Filling->{1->{{2},Opacity[0.5,Lighter[StandardBlue,0.8]]},2->{{3},Opacity[0.5,Lighter[StandardBlue,0.8]]}},FrameLabel->{"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)",txt[dm]},PlotLegends->Placed[{"UCL of "<>txt[dm],txt[dm],"LCL of  "<>txt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],Column[{ToString[NumberForm[N[100 p],{4,2}]]<>" % confidence intervals of "<>dtxt[dm]<>" vs measurement uncertainty proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},Center],Top]
pcdpun[t_,r_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpu[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpu[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpu[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{n,Max[Ceiling[2/r],Ceiling[2/(1-r)],20],Switch[pr,True,Max[5 Ceiling[2/r],5 Ceiling[2/(1-r)],10000],False,Max[5Ceiling[2/r],5Ceiling[2/(1-r)],5000]]},Exclusions->"Singularities",PlotTheme->"Scientific",AxesOrigin->{0,0},PlotRange->Full, PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)",utxt[dm]},PlotLegends->Placed[{uctxt[dm],umtxt[dm],ustxt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],
Column[{dutxt[dm]<>" vs total population sample size \!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdprun[t_,r_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]],dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{n,Max[Ceiling[2/r],Ceiling[2/(1-r)],20],Switch[pr,True,Max[5 Ceiling[2/r],5 Ceiling[2/(1-r)],10000],False,Max[5Ceiling[2/r],5Ceiling[2/(1-r)],5000]]},Exclusions->"Singularities",PlotTheme->"Scientific",AxesOrigin->{0,0},PlotRange->Full, PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)",rutxt[dm]},PlotLegends->Placed[{uctxt[dm]<>"/"<>txt[dm],umtxt[dm]<>"/"<>txt[dm],ustxt[dm]<>"/"<>txt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],
Column[{drutxt[dm]<>" vs total population sample size \!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdpcin[t_,p_,r_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpci[t,p,n r, n(1-r),μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[3]],dpci[t,p,n r, n(1-r),μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[2]],dpci[t,p,n r, n(1-r),μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[1]]},{n,Max[Ceiling[2/r],Ceiling[2/(1-r)],20],Switch[pr,True,Max[10 Ceiling[2/r],10 Ceiling[2/(1-r)],10000],False,Max[5Ceiling[2/r],5Ceiling[2/(1-r)],5000]]},Exclusions->"Singularities",PlotRange->Full,PlotTheme->"Scientific", PlotStyle->{{Dashing[{Large,Small}],StandardBlue,Thickness[0.003]},{Dashing[{}],StandardBlue},{Dashing[{Medium,Small}],StandardBlue,Thickness[0.003]}},Filling->{1->{{2},Opacity[0.5,Lighter[StandardBlue,0.8]]},2->{{3},Opacity[0.5,Lighter[StandardBlue,0.8]]}},FrameLabel->{"\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)",txt[dm]},PlotLegends->Placed[{"UCL of "<>txt[dm],txt[dm],"LCL of "<>txt[dm]},Right],PlotHighlighting->"XSlice", ImageSize->600]],
Column[{ToString[NumberForm[N[100 p],{4,2}]]<>" % confidence intervals of "<>dtxt[dm]<>" vs total population sample size \!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdpur[t_,n_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpu[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpu[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpu[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{r,Switch[pr,True,0.001,False,0.01],Switch[pr,True,0.999,False,0.20]},Exclusions->"Singularities",AxesOrigin->{Switch[pr,True,0.001,False,0.01],0},PlotRange->Full,PlotTheme->"Scientific", PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"\!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)",utxt[dm]},PlotLegends->Placed[{uctxt[dm],umtxt[dm],ustxt[dm]},Right],PlotHighlighting->"Dropline", ImageSize->{600}]],
Column[{dutxt[dm]<>" vs prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdprur[t_,n_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[1]],dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[2]],dpru[t,n r, n(1-r), μD,μH,σD,σH,b0,b1,nl,dm,dD,dH][[3]]},{r,Switch[pr,True,0.001,False,0.01],Switch[pr,True,0.999,False,0.20]},Exclusions->"Singularities",AxesOrigin->{Switch[pr,True,0.001,False,0.01],0},PlotRange->Full,PlotTheme->"Scientific", PlotStyle->{ Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}], Dashing[{}],Dashing[{Large,Small}],Dashing[{Medium,Small}]},FrameLabel->{"v",utxt[dm]<>"/"<>txt[dm]},PlotLegends->Placed[{uctxt[dm]<>"/"<>txt[dm],umtxt[dm]<>"/"<>txt[dm],ustxt[dm]<>"/"<>txt[dm]},Right],PlotHighlighting->"Dropline", ImageSize->{600}]],
Column[{drutxt[dm]<>" vs prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)"},Center],Top]
pcdpcir[t_,p_,n_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dm_,dD_,dH_,pr_]:=Text@Labeled[Quiet[Plot[{dpci[t,p,n r, n(1-r),μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[3]],dpci[t,p,n r, n(1-r),μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[2]],dpci[t,p,n r, n(1-r),μD,μH,σD,σH,nU,b0,b1,nl,dm,dD,dH][[1]]},{r,Switch[pr,True,0.001,False,0.01],Switch[pr,True,0.999,False,0.20]},Exclusions->"Singularities",AxesOrigin->{Switch[pr,True,0.001,False,0.01],0},PlotRange->Full,PlotTheme->"Scientific",PlotStyle->{{Dashing[{Large,Small}],StandardBlue,Thickness[0.003]},{Dashing[{}],StandardBlue},{Dashing[{Medium,Small}],StandardBlue,Thickness[0.003]}},Filling->{1->{{2},Opacity[0.5,Lighter[StandardBlue,0.8]]},2->{{3},Opacity[0.5,Lighter[StandardBlue,0.8]]}},FrameLabel->{"\!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)",txt[dm]},PlotLegends->Placed[{"UCL of "<>txt[dm],txt[dm],"LCL of "<>txt[dm]},Right],PlotHighlighting->"Dropline", ImageSize->{600}]],
Column[{ToString[NumberForm[N[100 p],{4,2}]]<>" % confidence intervals of "<>dtxt[dm]<>" vs prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)"},Center],Top]
tdp[t_,nD_,nH_,μD_,μH_,σD_,σH_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style["point estimates of diagnostic accuracy measures",Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,txt["sns"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["spc"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["oda"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["ppv"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["npv"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["dor"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["plr"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["nlr"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["js"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["ba"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["cz"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["fmi"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["ck"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["pabak"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["f1s"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s","gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,txt["mcc"],
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc","gamma","gamma"],{dig+2,dig}]}
}
]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
tdpu[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style[lutxt[dm],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,"point estimate",
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"standard uncertainty",
"combined",
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[3]],{dig+2,dig}]}}]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
tdpru[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style[lrutxt[dm],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,"point estimate",
SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"normal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"normal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"normal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"lognormal","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"lognormal","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"lognormal","gamma"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"gamma","normal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"gamma","lognormal"],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,dm,"gamma","gamma"],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"relative standard uncertainty",
"combined",
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[3]],{dig+2,dig}]}}]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
tdpci[t_,p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dm_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style[Style[StringJoin[ToString[NumberForm[N[100 p],{4,2}]], "% confidence intervals of ",ltxt[dm]]],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,
"point estimate",SpanFromAbove,
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","gamma"][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"lower confidence limit",SpanFromAbove,
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","gamma"][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"upper confidence limit",SpanFromAbove,
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","gamma"][[3]],{dig+2,dig}]}}]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
tcdpu[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dD_,dH_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style["standard uncertainty",Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measure",SpanFromAbove,txt["sns"],txt["spc"],txt["oda"],txt["ppv"],txt["npv"],txt["dor"],txt["plr"],txt["nlr"],txt["js"],txt["ba"],txt["cz"],txt["fmi"],txt["ck"],txt["pabak"],txt["f1s"],txt["mcc"]},
{SpanFromLeft,SpanFromLeft,"point estimate",SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc",dD,dH],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"standard uncertainty",
"combined",
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"sns",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"spc",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ppv",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"npv",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"dor",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"plr",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"nlr",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"sns",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"spc",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ppv",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"npv",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"dor",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"plr",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"nlr",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"sns",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"spc",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ppv",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"npv",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"dor",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"plr",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"nlr",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[3]],{dig+2,dig}]}}]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
tcdpru[t_,nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dD_,dH_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style["relative standard uncertainty",Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measure",SpanFromAbove,txt["sns"],txt["spc"],txt["oda"],txt["ppv"],txt["npv"],txt["dor"],txt["plr"],txt["nlr"],txt["js"],txt["ba"],txt["cz"],txt["fmi"],txt["ck"],txt["pabak"],txt["f1s"],txt["mcc"]},
{SpanFromLeft,SpanFromLeft,"point estimate",SpanFromAbove,
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"sns",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"spc",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"oda",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ppv",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"npv",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"dor",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"plr",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"nlr",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"js",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ba",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"cz",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"fmi",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"ck",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"pabak",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"f1s",dD,dH],{dig+2,dig}],
NumberForm[N@dp[t,nD,nH,μD,μH,σD,σH,"mcc",dD,dH],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"relative standard uncertainty",
"combined",
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"sns",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"spc",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ppv",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"npv",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"dor",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"plr",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"nlr",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"sns",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"spc",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ppv",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"npv",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"dor",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"plr",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"nlr",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"sns",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"spc",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ppv",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"npv",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"dor",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"plr",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"nlr",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[t,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[3]],{dig+2,dig}]}}]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
tcdpci[t_,p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dD_,dH_,dig_]:=
Text@Grid[Quiet[Transpose[
{{Style[StringJoin[ToString[NumberForm[N[100 p],{4,2}]], "% confidence intervals"],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measure",txt["sns"],txt["spc"],txt["oda"],txt["ppv"],txt["npv"],txt["dor"],txt["plr"],txt["nlr"],txt["js"],txt["ba"],txt["cz"],txt["fmi"],txt["ck"],txt["pabak"],txt["f1s"],txt["mcc"]},
{SpanFromLeft,SpanFromLeft,"point estimate",
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"sns",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"spc",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"oda",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ppv",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"npv",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"dor",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"plr",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"nlr",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"js",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ba",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"cz",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"fmi",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ck",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"pabak",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"f1s",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"mcc",dD,dH][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"lower confidence limit",
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"sns",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"spc",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"oda",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ppv",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"npv",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"dor",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"plr",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"nlr",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"js",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ba",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"cz",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"fmi",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ck",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"pabak",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"f1s",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"mcc",dD,dH][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"upper confidence limit",
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"sns",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"spc",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"oda",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ppv",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"npv",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"dor",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"plr",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"nlr",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"js",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ba",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"cz",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"fmi",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ck",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"pabak",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"f1s",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[t,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"mcc",dD,dH][[3]],{dig+2,dig}]}}]],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]
topu[nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dD_,dH_,dig_]:=Quiet[Block[{opoda=optdm[nD,nH,μD,μH,σD,σH,"oda",dD,dH],opjs=optdm[nD,nH,μD,μH,σD,σH,"js",dD,dH],opba=optdm[nD,nH,μD,μH,σD,σH,"ba",dD,dH],opcz=optdm[nD,nH,μD,μH,σD,σH,"cz",dD,dH],opfmi=optdm[nD,nH,μD,μH,σD,σH,"fmi",dD,dH],opck=optdm[nD,nH,μD,μH,σD,σH,"ck",dD,dH],oppabak=optdm[nD,nH,μD,μH,σD,σH,"pabak",dD,dH],opf1s=optdm[nD,nH,μD,μH,σD,σH,"f1s",dD,dH],opmcc=optdm[nD,nH,μD,μH,σD,σH,"mcc",dD,dH],toda,tjs,ted,tcz,tfmi,tck,tpabak,tf1s,tmcc,t},
toda=t/.opoda[[2]];tjs=t/.opjs[[2]];ted=t/.opba[[2]];tcz=t/.opcz[[2]];tfmi=t/.opfmi[[2]];tck=t/.opck[[2]];tpabak=t/.oppabak[[2]];tf1s=t/.opf1s[[2]];
tmcc=t/.opmcc[[2]];
Text@Grid[Transpose[
{{Style["standard uncertainty",Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measure",SpanFromAbove,txt["oda"],txt["js"],txt["ba"],txt["cz"],txt["fmi"],txt["ck"],txt["pabak"],txt["f1s"],txt["mcc"]},{SpanFromLeft,SpanFromLeft,"optimal threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",
SpanFromAbove,
NumberForm[N[toda],{dig+3,dig}],
NumberForm[N[tjs],{dig+3,dig}],
NumberForm[N[ted],{dig+3,dig}],
NumberForm[N[tcz],{dig+3,dig}],
NumberForm[N[tfmi],{dig+3,dig}],
NumberForm[N[tck],{dig+3,dig}],
NumberForm[N[tpabak],{dig+3,dig}],
NumberForm[N[tf1s],{dig+3,dig}],
NumberForm[N[tmcc],{dig+3,dig}]},
{SpanFromLeft,SpanFromLeft,"point estimate",SpanFromAbove,
NumberForm[N@dp[toda,nD,nH,μD,μH,σD,σH,"oda",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tjs,nD,nH,μD,μH,σD,σH,"js",dD,dH],{dig+2,dig}],
NumberForm[N@dp[ted,nD,nH,μD,μH,σD,σH,"ba",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tcz,nD,nH,μD,μH,σD,σH,"cz",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tfmi,nD,nH,μD,μH,σD,σH,"fmi",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tck,nD,nH,μD,μH,σD,σH,"ck",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tpabak,nD,nH,μD,μH,σD,σH,"pabak",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tf1s,nD,nH,μD,μH,σD,σH,"f1s",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tmcc,nD,nH,μD,μH,σD,σH,"mcc",dD,dH],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"standard uncertainty",
"combined",
NumberForm[N@dpu[toda,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tjs,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[ted,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tcz,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tfmi,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tck,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tpabak,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tf1s,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpu[tmcc,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpu[toda,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tjs,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[ted,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tcz,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tfmi,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tck,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tpabak,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tf1s,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpu[tmcc,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpu[toda,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tjs,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[ted,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tcz,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tfmi,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tck,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tpabak,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tf1s,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpu[tmcc,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[3]],{dig+2,dig}]}}],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]]]
topru[nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dD_,dH_,dig_]:=Quiet[Block[{opoda=optdm[nD,nH,μD,μH,σD,σH,"oda",dD,dH],opjs=optdm[nD,nH,μD,μH,σD,σH,"js",dD,dH],oped=optdm[nD,nH,μD,μH,σD,σH,"ba",dD,dH],opcz=optdm[nD,nH,μD,μH,σD,σH,"cz",dD,dH],opfmi=optdm[nD,nH,μD,μH,σD,σH,"fmi",dD,dH],opck=optdm[nD,nH,μD,μH,σD,σH,"ck",dD,dH],oppabak=optdm[nD,nH,μD,μH,σD,σH,"pabak",dD,dH],opf1s=optdm[nD,nH,μD,μH,σD,σH,"f1s",dD,dH],opmcc=optdm[nD,nH,μD,μH,σD,σH,"mcc",dD,dH],toda,tjs,ted,tcz,tfmi,tck,tpabak,tf1s,tmcc,t},
toda=t/.opoda[[2]];tjs=t/.opjs[[2]];ted=t/.oped[[2]];tcz=t/.opcz[[2]];tfmi=t/.opfmi[[2]];tck=t/.opck[[2]];tpabak=t/.oppabak[[2]];tf1s=t/.opf1s[[2]];
tmcc=t/.opmcc[[2]];
Text@Grid[Transpose[
{{Style["relative standard uncertainty",Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measure",SpanFromAbove,txt["oda"],txt["js"],txt["ba"],txt["cz"],txt["fmi"],txt["ck"],txt["pabak"],txt["f1s"],txt["mcc"]},
{SpanFromLeft,SpanFromLeft,"optimal threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",
SpanFromAbove,
NumberForm[N[toda],{dig+3,dig}],
NumberForm[N[tjs],{dig+3,dig}],
NumberForm[N[ted],{dig+3,dig}],
NumberForm[N[tcz],{dig+3,dig}],
NumberForm[N[tfmi],{dig+3,dig}],
NumberForm[N[tck],{dig+3,dig}],
NumberForm[N[tpabak],{dig+3,dig}],
NumberForm[N[tf1s],{dig+3,dig}],
NumberForm[N[tmcc],{dig+3,dig}]},
{SpanFromLeft,SpanFromLeft,"point estimate",SpanFromAbove,
NumberForm[N@dp[toda,nD,nH,μD,μH,σD,σH,"oda",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tjs,nD,nH,μD,μH,σD,σH,"js",dD,dH],{dig+2,dig}],
NumberForm[N@dp[ted,nD,nH,μD,μH,σD,σH,"ba",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tcz,nD,nH,μD,μH,σD,σH,"cz",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tfmi,nD,nH,μD,μH,σD,σH,"fmi",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tck,nD,nH,μD,μH,σD,σH,"ck",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tpabak,nD,nH,μD,μH,σD,σH,"pabak",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tf1s,nD,nH,μD,μH,σD,σH,"f1s",dD,dH],{dig+2,dig}],
NumberForm[N@dp[tmcc,nD,nH,μD,μH,σD,σH,"mcc",dD,dH],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"relative standard uncertainty",
"combined",
NumberForm[N@dpru[toda,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tjs,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[ted,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tcz,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tfmi,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tck,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tpabak,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tf1s,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpru[tmcc,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpru[toda,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tjs,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[ted,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tcz,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tfmi,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tck,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tpabak,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tf1s,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpru[tmcc,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpru[toda,nD,nH,μD,μH,σD,σH,b0,b1,nl,"oda",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tjs,nD,nH,μD,μH,σD,σH,b0,b1,nl,"js",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[ted,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ba",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tcz,nD,nH,μD,μH,σD,σH,b0,b1,nl,"cz",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tfmi,nD,nH,μD,μH,σD,σH,b0,b1,nl,"fmi",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tck,nD,nH,μD,μH,σD,σH,b0,b1,nl,"ck",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tpabak,nD,nH,μD,μH,σD,σH,b0,b1,nl,"pabak",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tf1s,nD,nH,μD,μH,σD,σH,b0,b1,nl,"f1s",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpru[tmcc,nD,nH,μD,μH,σD,σH,b0,b1,nl,"mcc",dD,dH][[3]],{dig+2,dig}]}}],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]]]
topci[p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dD_,dH_,dig_]:=Quiet[Block[{opoda=optdm[nD,nH,μD,μH,σD,σH,"oda",dD,dH],opjs=optdm[nD,nH,μD,μH,σD,σH,"js",dD,dH],oped=optdm[nD,nH,μD,μH,σD,σH,"ba",dD,dH],opcz=optdm[nD,nH,μD,μH,σD,σH,"cz",dD,dH],opfmi=optdm[nD,nH,μD,μH,σD,σH,"fmi",dD,dH],opck=optdm[nD,nH,μD,μH,σD,σH,"ck",dD,dH],oppabak=optdm[nD,nH,μD,μH,σD,σH,"pabak",dD,dH],opf1s=optdm[nD,nH,μD,μH,σD,σH,"f1s",dD,dH],opmcc=optdm[nD,nH,μD,μH,σD,σH,"mcc",dD,dH],toda,tjs,ted,tcz,tfmi,tck,tpabak,tf1s,tmcc,t},
toda=t/.opoda[[2]];tjs=t/.opjs[[2]];ted=t/.oped[[2]];tcz=t/.opcz[[2]];tfmi=t/.opfmi[[2]];tck=t/.opck[[2]];tpabak=t/.oppabak[[2]];tf1s=t/.opf1s[[2]];
tmcc=t/.opmcc[[2]];
Text@Grid[Transpose[
{{Style[StringJoin[ToString[NumberForm[N[100 p],{4,2}]], "% confidence intervals"],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measure",txt["oda"],txt["js"],txt["ba"],txt["cz"],txt["fmi"],txt["ck"],txt["pabak"],txt["f1s"],txt["mcc"]},
{SpanFromLeft,SpanFromLeft,"optimal threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",

NumberForm[N[toda],{dig+3,dig}],
NumberForm[N[tjs],{dig+3,dig}],
NumberForm[N[ted],{dig+3,dig}],
NumberForm[N[tcz],{dig+3,dig}],
NumberForm[N[tfmi],{dig+3,dig}],
NumberForm[N[tck],{dig+3,dig}],
NumberForm[N[tpabak],{dig+3,dig}],
NumberForm[N[tf1s],{dig+3,dig}],
NumberForm[N[tmcc],{dig+3,dig}]},
{SpanFromLeft,SpanFromLeft,
"point estimate",
NumberForm[N@dpci[toda,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"oda",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tjs,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"js",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[ted,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ba",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tcz,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"cz",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tfmi,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"fmi",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tck,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ck",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tpabak,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"pabak",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tf1s,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"f1s",dD,dH][[2]],{dig+2,dig}],
NumberForm[N@dpci[tmcc,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"mcc",dD,dH][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"lower confidence limit",
NumberForm[N@dpci[toda,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"oda",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tjs,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"js",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[ted,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ba",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tcz,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"cz",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tfmi,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"fmi",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tck,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ck",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tpabak,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"pabak",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tf1s,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"f1s",dD,dH][[1]],{dig+2,dig}],
NumberForm[N@dpci[tmcc,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"mcc",dD,dH][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"upper confidence limit",
NumberForm[N@dpci[toda,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"oda",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tjs,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"js",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[ted,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ba",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tcz,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"cz",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tfmi,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"fmi",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tck,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"ck",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tpabak,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"pabak",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tf1s,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"f1s",dD,dH][[3]],{dig+2,dig}],
NumberForm[N@dpci[tmcc,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,"mcc",dD,dH][[3]],{dig+2,dig}]}}],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]]]
toptu[nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dig_]:=Quiet[Block[{opnn=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","normal"],opnl=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","lognormal"],opng=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","gamma"],opln=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","normal"],opll=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","lognormal"],oplg=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","gamma"],opgn=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","normal"],opgl=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","lognormal"],opgg=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","gamma"],tnn,tnl,tng,tln,tll,tlg,tgn,tgl,tgg,t},
tnn=t/.opnn[[2]];tnl=t/.opnl[[2]];tng=t/.opng[[2]];tln=t/.opln[[2]];tll=t/.opll[[2]];tlg=t/.oplg[[2]];tgn=t/.opgn[[2]];tgl=t/.opgl[[2]];
tgg=t/.opgg[[2]];
Text@Grid[Transpose[
{{Style[lutxt[dm],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,"optimal threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",
SpanFromAbove,
NumberForm[N[tnn],{dig+3,dig}],
NumberForm[N[tnl],{dig+3,dig}],
NumberForm[N[tng],{dig+3,dig}],
NumberForm[N[tln],{dig+3,dig}],
NumberForm[N[tll],{dig+3,dig}],
NumberForm[N[tlg],{dig+3,dig}],
NumberForm[N[tgn],{dig+3,dig}],
NumberForm[N[tgl],{dig+3,dig}],
NumberForm[N[tgg],{dig+3,dig}]},
{SpanFromLeft,SpanFromLeft,"point estimate",
SpanFromAbove,
NumberForm[N@opnn[[1]],{dig+2,dig}],
NumberForm[N@opnl[[1]],{dig+2,dig}],
NumberForm[N@opng[[1]],{dig+2,dig}],
NumberForm[N@opln[[1]],{dig+2,dig}],
NumberForm[N@opll[[1]],{dig+2,dig}],
NumberForm[N@oplg[[1]],{dig+2,dig}],
NumberForm[N@opgn[[1]],{dig+2,dig}],
NumberForm[N@opgl[[1]],{dig+2,dig}],
NumberForm[N@opgg[[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"standard uncertainty",
"combined",
NumberForm[N@dpu[tnn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tnl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tng,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tln,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tll,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tlg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tgn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tgl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpu[tgg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpu[tnn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tnl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tng,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tln,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tll,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tlg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tgn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tgl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpu[tgg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpu[tnn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tnl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tng,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tln,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tll,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tlg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tgn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tgl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpu[tgg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[3]],{dig+2,dig}]}}],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]]]

toptru[nD_,nH_,μD_,μH_,σD_,σH_,b0_,b1_,nl_,dm_,dig_]:=Quiet[Block[{opnn=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","normal"],opnl=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","lognormal"],opng=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","gamma"],opln=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","normal"],opll=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","lognormal"],oplg=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","gamma"],opgn=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","normal"],opgl=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","lognormal"],opgg=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","gamma"],tnn,tnl,tng,tln,tll,tlg,tgn,tgl,tgg,t},tnn=t/.opnn[[2]];tnl=t/.opnl[[2]];tng=t/.opng[[2]];tln=t/.opln[[2]];tll=t/.opll[[2]];tlg=t/.oplg[[2]];tgn=t/.opgn[[2]];tgl=t/.opgl[[2]];
tgg=t/.opgg[[2]];
Text@Grid[Transpose[
{{Style[lrutxt[dm],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,"optimal threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",
SpanFromAbove,
NumberForm[N[tnn],{dig+3,dig}],
NumberForm[N[tnl],{dig+3,dig}],
NumberForm[N[tng],{dig+3,dig}],
NumberForm[N[tln],{dig+3,dig}],
NumberForm[N[tll],{dig+3,dig}],
NumberForm[N[tlg],{dig+3,dig}],
NumberForm[N[tgn],{dig+3,dig}],
NumberForm[N[tgl],{dig+3,dig}],
NumberForm[N[tgg],{dig+3,dig}]},
{SpanFromLeft,SpanFromLeft,"point estimate",
SpanFromAbove,
NumberForm[N@opnn[[1]],{dig+2,dig}],
NumberForm[N@opnl[[1]],{dig+2,dig}],
NumberForm[N@opng[[1]],{dig+2,dig}],
NumberForm[N@opln[[1]],{dig+2,dig}],
NumberForm[N@opll[[1]],{dig+2,dig}],
NumberForm[N@oplg[[1]],{dig+2,dig}],
NumberForm[N@opgn[[1]],{dig+2,dig}],
NumberForm[N@opgl[[1]],{dig+2,dig}],
NumberForm[N@opgg[[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,"standard uncertainty",
"combined",
NumberForm[N@dpru[tnn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tnl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tng,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tln,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tll,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tlg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tgn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tgl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpru[tgg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"measurement",
NumberForm[N@dpru[tnn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tnl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tng,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tln,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tll,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tlg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tgn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tgl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[2]],{dig+2,dig}],
NumberForm[N@dpru[tgg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[2]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,
"sampling",
NumberForm[N@dpru[tnn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tnl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tng,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"normal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tln,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tll,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tlg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"lognormal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tgn,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tgl,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpru[tgg,nD,nH,μD,μH,σD,σH,b0,b1,nl,dm,"gamma","gamma"][[3]],{dig+2,dig}]}}],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]]]
toptci[p_,nD_,nH_,μD_,μH_,σD_,σH_,nU_,b0_,b1_,nl_,dm_,dig_]:=Quiet[Block[{opnn=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","normal"],opnl=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","lognormal"],opng=optdm[nD,nH,μD,μH,σD,σH,dm,"normal","gamma"],opln=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","normal"],opll=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","lognormal"],oplg=optdm[nD,nH,μD,μH,σD,σH,dm,"lognormal","gamma"],opgn=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","normal"],opgl=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","lognormal"],opgg=optdm[nD,nH,μD,μH,σD,σH,dm,"gamma","gamma"],tnn,tnl,tng,tln,tll,tlg,tgn,tgl,tgg,t},tnn=t/.opnn[[2]];tnl=t/.opnl[[2]];tng=t/.opng[[2]];tln=t/.opln[[2]];tll=t/.opll[[2]];tlg=t/.oplg[[2]];tgn=t/.opgn[[2]];tgl=t/.opgl[[2]];
tgg=t/.opgg[[2]];
Text@Grid[Transpose[
{{Style[Style[StringJoin[ToString[NumberForm[N[100 p],{4,2}]], "% confidence intervals of optimal ",ltxt[dm]]],Plain],StringJoin["prevalence of disease \!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\) = ",ToString[NumberForm[N[(nD/(nD+nH))],{4,3}]]],"measurement distribution","diseased","normal",SpanFromAbove,SpanFromAbove,"lognormal",SpanFromAbove,SpanFromAbove,"gamma",SpanFromAbove,SpanFromAbove},
{SpanFromLeft,SpanFromLeft,SpanFromLeft,"nondiseased","normal","lognormal","gamma","normal","lognormal","gamma","normal","lognormal","gamma"},
{SpanFromLeft,SpanFromLeft,"optimal threshold \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",
SpanFromAbove,
NumberForm[N[tnn],{dig+3,dig}],
NumberForm[N[tnl],{dig+3,dig}],
NumberForm[N[tng],{dig+3,dig}],
NumberForm[N[tln],{dig+3,dig}],
NumberForm[N[tll],{dig+3,dig}],
NumberForm[N[tlg],{dig+3,dig}],
NumberForm[N[tgn],{dig+3,dig}],
NumberForm[N[tgl],{dig+3,dig}],
NumberForm[N[tgg],{dig+3,dig}]},
{SpanFromLeft,SpanFromLeft,"point estimate",
SpanFromAbove,
NumberForm[N@opnn[[1]],{dig+2,dig}],
NumberForm[N@opnl[[1]],{dig+2,dig}],
NumberForm[N@opng[[1]],{dig+2,dig}],
NumberForm[N@opln[[1]],{dig+2,dig}],
NumberForm[N@opll[[1]],{dig+2,dig}],
NumberForm[N@oplg[[1]],{dig+2,dig}],
NumberForm[N@opgn[[1]],{dig+2,dig}],
NumberForm[N@opgl[[1]],{dig+2,dig}],
NumberForm[N@opgg[[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"lower confidence limit",SpanFromAbove,
NumberForm[N@dpci[tnn,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tnl,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tng,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tln,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tll,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tlg,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","gamma"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tgn,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","normal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tgl,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","lognormal"][[1]],{dig+2,dig}],
NumberForm[N@dpci[tgg,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","gamma"][[1]],{dig+2,dig}]},
{SpanFromLeft,SpanFromLeft,
"upper confidence limit",SpanFromAbove,
NumberForm[N@dpci[tnn,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tnl,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tng,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"normal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tln,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tll,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tlg,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"lognormal","gamma"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tgn,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","normal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tgl,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","lognormal"][[3]],{dig+2,dig}],
NumberForm[N@dpci[tgg,p,nD,nH,μD,μH,σD,σH,nU,b0,b1,nl,dm,"gamma","gamma"][[3]],{dig+2,dig}]}}],
Frame->All, FrameStyle->Blend[{Blue,Cyan},0.35],Spacings->{1,1},ItemSize->Automatic]]]

TabView[{"plots"->
TabView[{"diagnostic accuracy measures"->
TabView[{"vs diagnostic threshold"->
Manipulate[
pcdp[nD,nH,mD,mH,sD,sH,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"ppv","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["diagnostic accuracy measures plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diseased population",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"vs prevalence of disease"->
Manipulate[
pcdpr[t,mD,mH,sD,sH,dm,dD,dH,pr],
Style["diagnostic accuracy measure",Bold],
{{dm,"oda",""},{"oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient\!\(\*StyleBox[\" \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","pabak"->"prevalence-adjusted bias-adjusted kappa \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)"},ControlPlacement->Left},
Delimiter,
Style["diagnostic accuracy measures plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,0.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"vs diagnostic accuracy measure"->
Manipulate[
pcdpm[nD,nH,mD,mH,sD,sH,dm1,dm2,dD,dH,pr],
Style["relation of diagnostic accuracy measures",Bold],
{{dm1,"ppv",""},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Style["vs",Bold],
{{dm2,"npv",""},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["diagnostic accuracy measures plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diseased population",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]
},ImageSize->Automatic],
"uncertainty of diagnostic accuracy measures"->
TabView[{"vs diagnostic threshold"->
TabView[{
"standard uncertainty"->
Manipulate[pro[pr];
pcdpu[nD,nH,mD,mH,sD,sH,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[pro[pr];
pcdpru[nD,nH,mD,mH,sD,sH,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["relative standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[pro[pr];
pcdpci[p,nD,nH,mD,mH,sD,sH,nU,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["confidence intervals plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic],
"vs constant contribution to measurement uncertainty"->
TabView[{
"standard uncertainty"->
Manipulate[pro[pr];
pcdpub0[t,nD,nH,mD,mH,sD,sH,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[pro[pr];
pcdprub0[t,nD,nH,mD,mH,sD,sH,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["relative standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[pro[pr];
pcdpcib0[t,p,nD,nH,mD,mH,sD,sH,nU,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["confidence intervals plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic],
"vs measurement uncertainty proportionality constant"->
TabView[{
"standard uncertainty"->
Manipulate[pro[pr];
pcdpub1[t,nD,nH,mD,mH,sD,sH,b0,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[pro[pr];
pcdprub1[t,nD,nH,mD,mH,sD,sH,b0,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["relative standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[pro[pr];
pcdpcib1[t,p,nD,nH,mD,mH,sD,sH,nU,b0,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["confidence intervals plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic],
"vs population sample size"->
TabView[{
"standard uncertainty"->
Manipulate[pro[pr];
pcdpun[t,r,mD,mH,sD,sH,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["prevalence of disease",Bold],
{{r,0.126,"\!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)"},0.001,0.999,.001,ImageSize->Tiny,
Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[pro[pr];
pcdprun[t,r,mD,mH,sD,sH,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["relative standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["prevalence of disease",Bold],
{{r,0.126,"\!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)"},0.001,0.999,.001,ImageSize->Tiny,
Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[pro[pr];
pcdpcin[t,p,r,mD,mH,sD,sH,nU,b0,b1,nl,dm,dD,dH, pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["confidence interval plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["prevalence of disease",Bold],
{{r,0.126,"\!\(\*StyleBox[\"v\",FontSlant->\"Italic\"]\)"},0.001,0.999,.001,ImageSize->Tiny,
Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic],
"vs prevalence"->
TabView[{
"standard uncertainty"->
Manipulate[pro[pr];
pcdpur[t,n,mD,mH,sD,sH,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["total population sample size",Bold],
{{n,976,"\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)"},20,20000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[pro[pr];
pcdprur[t,n,mD,mH,sD,sH,b0,b1,nl,dm,dD,dH,pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["relative standard uncertainty plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["total population sample size",Bold],
{{n,976,"\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)"},20,20000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[pro[pr];
pcdpcir[t,p,n,mD,mH,sD,sH,nU,b0,b1,nl,dm,dD,dH, pr],
Style["diagnostic accuracy measures",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["confidence interval plot range",Bold],
{{pr,False,""},{True->"extended",False->"limited"},ControlPlacement->Left},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["total population sample size",Bold],
{{n,976,"\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\)"},20,20000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic]},ImageSize->Automatic]},
ImageSize->Automatic],
"tables"->
TabView[{"diagnostic accuracy measures"->
Manipulate[
tdp[t,nD,nH,mD,mH,sD,sH,dig],
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"uncertainty of diagnostic accuracy measures"->
TabView[{"all distributions"->
TabView[{"standard uncertainty"->
Manipulate[
tdpu[t,nD,nH,mD,mH,sD,sH,b0,b1,nl,dm,dig],
Style["diagnostic measure",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[mH-5sH,0],mD+5sH,.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[
tdpru[t,nD,nH,mD,mH,sD,sH,b0,b1,nl,dm,dig],
Style["diagnostic measure",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (\!\(\*StyleBox[\"Se\",FontSlant->\"Italic\"]\))","spc"->"specificity (\!\(\*StyleBox[\"Sp\",FontSlant->\"Italic\"]\))","oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","ppv"->"positive predictive value (\!\(\*StyleBox[\"PPV\",FontSlant->\"Italic\"]\))","npv"->"negative predictive value (\!\(\*StyleBox[\"NPV\",FontSlant->\"Italic\"]\))","dor"->"diagnostic odds ratio (\!\(\*StyleBox[\"DOR\",FontSlant->\"Italic\"]\))","plr"->"likelihood ratio for a positive result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"+\"]\))","nlr"->"likelihood ratio for a negative result (\!\(\*SuperscriptBox[StyleBox[\"LR\",FontSlant->\"Italic\"], \"-\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy (\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\))","cz"->"concordance probability (\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\))","fmi"->"Fowlkes–Mallows index (\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\))","ck"->"Cohen’s kappa coefficient (\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\))","pabak"->"prevalence-adjusted bias-adjusted kappa (\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\))","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\))"},ControlPlacement->Left},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[
tdpci[t,p,nD,nH,mD,mH,sD,sH,nU,b0,b1,nl,dm,dig],
Style["diagnostic measure",Bold],
{{dm,"oda","measure:"},{"sns"->"sensitivity (Se)","spc"->"specificity (Sp)","oda"->"overall diagnostic accuracy (ACC)","ppv"->"positive predictive value (PPV)","npv"->"negative predictive value (NPV)","dor"->"diagnostic odds ratio (DOR)","plr"->"likelihood ratio for a positive result (LR+)","nlr"-> "likelihood ratio for a negative result (LR-)","js"->"Youden's index (J)","ba"->"balanced accuracy (BA)","cz"->"concordance probability (CZ)","fmi"->"Fowlkes–Mallows index (FMI)","ck"->"Cohen’s kappa coefficient (κ)","pabak"->"prevalence-adjusted bias-adjusted kappa (PABAK)","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient (MCC)"},ControlPlacement->Left},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic],
"all measures"->
TabView[{"standard uncertainty"->
Manipulate[
tcdpu[t,nD,nH,mD,mH,sD,sH,b0,b1,nl,dD,dH,dig],
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[
tcdpru[t,nD,nH,mD,mH,sD,sH,b0,b1,nl,dD,dH,dig],
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[
tcdpci[t,p,nD,nH,mD,mH,sD,sH,nU,b0,b1,nl,dD,dH,dig],
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
{{t,126,"\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)"},Max[Min[mH-6sH,mD-6sD],0.01],Max[mH+6sH,mD+6sD],.01,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]
},ImageSize->Automatic]},ImageSize->Automatic],
"optimal threshold"->
TabView[{"all distributions"->
TabView[{"standard uncertainty"->
Manipulate[
toptu[nD,nH,mD,mH,sD,sH,b0,b1,nl,dm,dig],
Style["diagnostic measure",Bold],
{{dm,"oda","measure:"},{"oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","cz"->"concordance probability \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","fmi"->"Fowlkes–Mallows index \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","ck"->"Cohen’s kappa coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","pabak"->"prevalence-adjusted bias-adjusted kappa \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)"},ControlPlacement->Left},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[
toptru[nD,nH,mD,mH,sD,sH,b0,b1,nl,dm,dig],
Style["diagnostic measure",Bold],
{{dm,"oda","measure:"},{"oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","cz"->"concordance probability \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","fmi"->"Fowlkes–Mallows index \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","ck"->"Cohen’s kappa coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","pabak"->"prevalence-adjusted bias-adjusted kappa \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","f1s"->"F1 score \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","mcc"->"Matthews correlation coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)"},ControlPlacement->Left},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[
toptci[p,nD,nH,mD,mH,sD,sH,nU,b0,b1,nl,dm,dig],
Style["diagnostic measure",Bold],
{{dm,"oda","measure:"},{"oda"->"overall diagnostic accuracy (\!\(\*StyleBox[\"ACC\",FontSlant->\"Italic\"]\))","js"->"Youden's index (\!\(\*StyleBox[\"J\",FontSlant->\"Italic\"]\))","ba"->"balanced accuracy \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"BA\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","cz"->"concordance probability \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"CZ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","fmi"->"Fowlkes–Mallows index \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"FMI\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","ck"->"Cohen’s kappa coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"κ\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","pabak"->"prevalence-adjusted bias-adjusted kappa \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"PABAK\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)","f1s"->"\!\(\*StyleBox[\"F\",FontSlant->\"Italic\"]\)1 score (\!\(\*StyleBox[\"F1\",FontSlant->\"Italic\"]\))","mcc"->"Matthews correlation coefficient \!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"MCC\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)"},ControlPlacement->Left},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic],
"all measures"->
TabView[{"standard uncertainty"->
Manipulate[
topu[nD,nH,mD,mH,sD,sH,b0,b1,nl,dD,dH,dig],
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"relative standard uncertainty"->
Manipulate[
topru[nD,nH,mD,mH,sD,sH,b0,b1,nl,dD,dH,dig],
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center],
"confidence intervals"->
Manipulate[
topci[p,nD,nH,mD,mH,sD,sH,nU,b0,b1,nl,dD,dH,dig],
Style["confidence level",Bold],
{{p,0.95,"1-\!\(\*StyleBox[\"α\",FontSlant->\"Italic\"]\)"},0.900,0.999,0.001,Appearance->"Labeled",ImageSize->Tiny},
Delimiter,
Style["number of decimal digits of results",Bold],
{{dig,3,"digits"},1,10,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["diagnostic threshold",Bold],
Style["diseased population sample",Bold],
{{mD,136.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sD,36.6,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nD,52,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dD,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["nondiseased population sample",Bold],
{{mH,101.0,"mean"},0.1,10000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{sH,11.0,"standard deviation"},0.01,1000,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{nH,362,"sample size"},2,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
{{dH,"lognormal","measurement distribution"},{"normal"->"normal","lognormal"->"lognormal","gamma"->"gamma"}} ,
Delimiter,
Style["measurement uncertainty",Bold],
{{nl,1,"\!\(\*StyleBox[SubscriptBox[\"u\", \"m\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"(\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\) = "},{0->"\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)+\!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)",1->"\!\(\*SqrtBox[RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\", \"2\"], \"+\", RowBox[{SubsuperscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\", \"2\"], SuperscriptBox[StyleBox[\"t\",FontSlant->\"Italic\"], \"2\"]}]}]]\)"},ImageSize->Tiny},
{{b0,0.812,"constant contribution \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"0\"]\)"},0,sH,.001,ImageSize->Tiny,Appearance->"Labeled"},
{{b1,0.0119,"proportionality constant \!\(\*SubscriptBox[StyleBox[\"b\",FontSlant->\"Italic\"], \"1\"]\)"},0,0.1,.0001,ImageSize->Tiny,Appearance->"Labeled"},
Style["QC measurements sample",Bold],
{{nU,1350,"sample size"},20,10000,1,ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
SaveDefinitions->False,ContinuousAction->False,TrackedSymbols->True,AutorunSequencing->All,ControlPlacement->Left,Alignment->Center]},ImageSize->Automatic]},ImageSize->Automatic]},ImageSize->Automatic]},ImageSize->Automatic]

Notation
Se: Sensitivity
Sp: Specificity
ACC: overall diagnostic accuracy
PPV: positive predictive value
NPV: negative predictive value
DOR: diagnostic odds ratio
(SuperPlus[LR]): likelihood ratio for a positive result
(SuperMinus[LR]): likelihood ratio for a negative result
J: Youden’s index
BA: balanced accuracy
CZ: concordance probability
FMI: Fowlkes-Mallows index
κ: Cohen’s kappa coefficient 
PABAK: prevalence-adjusted bias-adjusted kappa
F1: F1 score
MCC: Matthews correlation coefficient
(Subscript[u, c])(z): standard combined uncertainty of z
(Subscript[u, m])(z): standard measurement uncertainty of z
(Subscript[u, s])(z): standard sampling uncertainty of z
n: sample size
v: prevalence of disease
(Subscript[b, 0]):  constant contribution to measurement uncertainty
(Subscript[b, 1]):  measurement uncertainty proportionality constant
1-α : confidence level
LCL: lower confidence limit
UCL: upper confidence limit
QC: quality control

Disclaimer of Warranties
The notebook is provided “as is”, without warranty of any kind, express or implied, including but not limited to the warranties of merchantability, fitness for a particular purpose and noninfringement. In no event shall the authors or Hellenic Complex Systems Laboratory or any of its members be liable for any claim, damages or other liability, whether in an action of contract, tort or otherwise, arising from, out of or in connection with the notebook or the use or other dealings in the notebook.

About
DiagAccU
Version 1.3.4
Hellenic Complex Systems Laboratory 2026
DOI: 10.5281/zenodo.21901487
This notebook is distributed under  an Attribution - NonCommercial - ShareAlike 4.0 International Creative Commons License.