protate.m

来自「网格划分工具箱」· M 代码 · 共 7 行

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;