function?[?K?]?=?curvature（?phi?）
%?compute?curvature
[uxuy]?=?gradient（phi）;??????????????????????????????????
normDu?=?sqrt（ux.^2+uy.^2+1e-10）;???????????????????????%?the?norm?of?the?gradient?plus?a?small?possitive?number?
????????????????????????????????????????????????????????%?to?avoid?division?by?zero?in?the?following?computation.
Nx?=?ux./normDu;???????????????????????????????????????
Ny?=?uy./normDu;
[nxxjunk]?=?gradient（Nx）;??????????????????????????????
[junknyy]?=?gradient（Ny）;??????????????????????????????
K?=?nxx+nyy;?
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????559??2011-03-01?20:25??曲線演化\curvature.m

?????文件???????1004??2011-03-03?20:11??曲線演化\Evolution_constant.m

?????文件???????1169??2011-03-03?20:11??曲線演化\Evolution_curvature.m

?????目錄??????????0??2011-03-03?20:10??曲線演化

-----------?---------??----------?-----??----

?????????????????2732????????????????????4