//chapter-8,Example8_7,pg 499

V=10//v=10sin6280t

I=1//current peak

P=3.1//active power

phi=acos((P*2)/V)//phase in radian

w=6280//v=10sin6280t

lag=(phi/w)//lag

printf("lag=%.5f s\n",lag)