Anonymous user
Averages/Mean time of day: Difference between revisions
→{{header|PARI/GP}}
(GP) |
|||
Line 199:
meanTime(v)=my(x=meanAngle(2*Pi*apply(u->u[1]/24+u[2]/1440+u[3]/86400, v))*12/Pi); [x\1, 60*(x-=x\1)\1, 60*(60*x-60*x\1)]
meanTime([[23,0,17], [23,40,20], [0,12,45], [0,17,19]])</lang>
Output:
<pre>[23, 47, 43.361528520325019522213261334501251061]</pre>
=={{header|Perl 6}}==
| |||