generate.asv

来自「高速公路路面质量改进方案 采用matlab编程 达到了稳定点」· ASV 代码 · 共 7 行

function generate(
syms p1 p2 n
A=diag([sqrt((1-p2)^2-p1^2)*(1+p2)/(1-p2);sqrt(1-p2^2);ones(n-2,1)]);
B=diag([-p1*sqrt((1+p2)/(1-p2));-p1*ones(n-2,1)],-1);
C=diag([-p2*ones(n-2,1)],-2);
M=A+B+C