protate.m

网格划分工具箱

function p=protate(p,phi)

%   Copyright (C) 2004-2006 Per-Olof Persson. See COPYRIGHT.TXT for details.

A=[cos(phi),-sin(phi);sin(phi),cos(phi)];
p=p*A;