**TI92P*algebraRalfa3vet²¥ZX(x,y,z) Func Œ/2-cos´(dotP(crossP(x,y),z)/(norm(crossP(x,y))*norm(z))) EndFuncäåÜ—