Quiet[Remove["Global`*"],{Remove::rmnsm}];Print["Mathematica $Version = “",$Version,"”"];Print["Execution time = ",DateString[DateList[],{"Hour",":","Minute"," on ","DayNameShort"," ","Day"," ","MonthNameShort"," ","Year"}]];

wormell=NSolve[d+1/200==(1/(1−d×91/365)−1)×365/91&&d>−0.1&&d<4,d]

jdaw1=NSolve[d+1/200==((1−d×91/365)^(−182.5/91)−1)×365/182.5&&d>−0.1&&d<4,d]

jdaw2=NSolve[d+1/200==((1−d×91/365)^(−182.625/91)−1)×365.25/182.625&&d>−0.1&&d<4,d]

10000((d/.wormell[[1]])-(d/.jdaw1[[1]]))

10000((d/.wormell[[1]])-(d/.jdaw2[[1]]))