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

(* http://en.wikipedia.org/wiki/List_of_aspect_ratios_of_national_flags#cite_note-Nepal-66 *)
(* http://en.wikipedia.org/wiki/Talk:List_of_aspect_ratios_of_national_flags#Nepal *)
(* http://www.jdawiseman.com/2017/20171101_Nepal_flag_aspect_ratio.nb *)
(* http://www.jdawiseman.com/2017/20171101_Nepal_flag_aspect_ratio.pdf *)

nepalAspectRatio=((24+(((297-180(Sqrt[2]))/(92-36(Sqrt[2]))))(1+((8-3(Sqrt[2]))/((Sqrt[118-48(Sqrt[2])])-6))))/(32+(((297-180(Sqrt[2]))/(92-36(Sqrt[2]))))(1+(6/((8-3(Sqrt[2]))((Sqrt[1+(18/(41-24(Sqrt[2])))])-1))))))//FullSimplify//ToRadicals

N[nepalAspectRatio,21]

(* Previous done Wed 01 Nov 2017. “nepalAspectRatio//TeXForm” done Thu 01 Mar 2018. *)

PageWidth->PaperWidth; nepalAspectRatio//TeXForm