From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2048/CH11/EX11.3/pm_10.sce | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 2048/CH11/EX11.3/pm_10.sce (limited to '2048/CH11/EX11.3') diff --git a/2048/CH11/EX11.3/pm_10.sce b/2048/CH11/EX11.3/pm_10.sce new file mode 100755 index 000000000..b37096c57 --- /dev/null +++ b/2048/CH11/EX11.3/pm_10.sce @@ -0,0 +1,20 @@ +// Solution of Aryabhatta's identity Eq. 11.8, as discussed in Example 11.3 on page 409. +// 11.3 + +exec('xdync.sci',-1); +exec('rowjoin.sci',-1); +exec('polsize.sci',-1); +exec('left_prm.sci',-1); +exec('t1calc.sci',-1); +exec('indep.sci',-1); +exec('seshft.sci',-1); +exec('makezero.sci',-1); +exec('move_sci.sci',-1); +exec('colsplit.sci',-1); +exec('clcoef.sci',-1); +exec('cindep.sci',-1); + +C = [1 0.5]; dC = 1; j=2; +A = [1 -0.6 -0.16]; dA = 2; +zj = zeros(1,j+1); zj(j+1) = 1; +[Fj,dFj,Ej,dEj] = xdync(zj,j,A,dA,C,dC) -- cgit