www.gusucode.com > matlab通信工程仿真源码（张德丰等编著）程序书籍 > matlab_code/matlab通信工程仿真源码（张德丰等编著）/第2章/li2_30.m

    clear;
a=pascal(3)
[R,p]=chol(a)
b=R.'*R