(*Exercise 03*)
ClearAll[tmp,sol1,sol2]
mon=Table[i,{i,1,13}];
tmp={33,30,31,32,33,33,32,32,32,31,32,33,33};
(*Calculation Part*)
(*Part 1*)
montmp=Transpose[{mon,tmp}];
gmontmp=ListPlot[montmp,PlotStyle->Red,AxesLabel->{"Time(Month)","Temperature"},PlotLabel->"Temperature vs Time"];
(*Part 2*)
fmontmp=Fit[montmp,{t,1},t];
gfmontmp=Plot[fmontmp,{t,mon[[1]],Last[mon]}];
(*Part 3*)
sol1=fmontmp/.t->{14,15};
(*Part 4*)
sol2=fmontmp/.t->69;
(*Output Part*)
Print[Style["Exercise 3-part (1)",Bold]]
gmontmp
Print[Style["Exercise 3-part (2)",Bold]]
fmontmp
Show[{gmontmp,gfmontmp}]
Print[Style["Exercise 3-part (3)",Bold]]
Print["The avergae tempertaure in the months, June 2020 and July 2020 are ",sol1[[1]]," and ",sol1[[2]]," respectively."]
Print[Style["Exercise 3-part (4)",Bold]]
Print["The avergae tempertaure in the month January 2025 is ",sol2]