How Funny is a Fart?
How Funny is a Fart?
According to a study commissioned by Beano Studios this is the formula for how funny a fart is:Where:I = Intensity of the fart (db)L = Length of fart (sec)S = Social embarrassment (rated on a scale of 1 to 3)k = Number of kids presentA = Age of the listner (years)g = Gender factor: If female, multiply by 1.05To make this usable, here is a handy web calculator:
F=×k
s
(I×L)
(A×g)
In[]:=
CloudDeploy[FormPage[{"I"<|"Label"->"Intensity (db)","Interpreter"->{"20 dB - Whisper, rustling leaves"20,"30 dB - Quiet rural area"30,"40 dB - Library, bird calls"40,"50 dB - Quiet suburb, conversation at home"50,"60 dB - Conversation in restaurant, office, background music"60,"70 dB - Radio or TV-audio, vacuum cleaner"20,"77 dB - Passenger car at 65 mph"77,"80 dB - Freight train (at 15 meters)"80,"90 dB - power mower, motorcycle at 25 ft"90,"100 dB - Jet take-off (at 305 meters)"100,"110 db - Average human pain threshold"110}|>,"L"-><|"Label"->"Length of fart (seconds)","Interpreter"->Restricted["Number",{1,5}],"Input"1,"Default"1|>,"S"-><|"Label"->"Social embarrassment","Interpreter"->{"None"1,"Moderate"2,"Mortifying"3},"Input"1,"Default"1|>,"k"-><|"Label"->"Number of kids present","Interpreter"->Range[5],"Input"1|>,"A"-><|"Label"->"Age of listener","Interpreter"->Restricted["Number",{1,100}],"Input"10|>,"g"-><|"Label"->"Gender","Interpreter"->{"Male"1,"Female"1.05},"Input"1,"Default"1|>},Block[{score=((#I*#L)^#S*#k/(#A*#g))},Column[{Style["Fart score: "<>ToString[Round[score]],50],AngularGauge[score/10^6,{0,10^2},GaugeLabels"million",ScaleRanges10^2{{.6,.8},{.8,1}},ScaleDivisions4,ScalingFunctions{Sqrt,#^2&},ImageSize400]}]]&,AppearanceRules<|"Title""Fart Calculator","Description"Row[{"According to ",Hyperlink["a study commissioned by Beano Studios","https://www.beanostudios.com/post/scientists-unveil-the-world-s-funniest-fart"],", there is a formula for how funny a fart is.","This calculator lets you work out that value for any fart. Fill in the form to find your score.","\n\n",Hyperlink["See the formula and the Wolfram Language code for this calculator >>","https://www.wolframcloud.com/obj/jonm/Published/fartformula.nb"]}],"ItemLayout""Vertical","SubmitLabel""Score my fart"|>],"fartcalculator",Permissions"Public"]
Out[]=