From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- graphics/circuit_macros/examples/Counting.m4 | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 graphics/circuit_macros/examples/Counting.m4 (limited to 'graphics/circuit_macros/examples/Counting.m4') diff --git a/graphics/circuit_macros/examples/Counting.m4 b/graphics/circuit_macros/examples/Counting.m4 new file mode 100644 index 0000000000..18002ba99f --- /dev/null +++ b/graphics/circuit_macros/examples/Counting.m4 @@ -0,0 +1,26 @@ +.PS +# Counting.m4 +gen_init + + g = 0.4 # grid size + define grid { (($2)*g,-($1)*g) } + circlerad = 0.1 + +for i=1 to 4 do { + sprintf(`"$S_%g$:"',i) ljust at grid(i,-0.5) + for j=1 to 4 do { if i+j < 8 then { + sprintf(`"$s_{%g%g}$"',i,j) at grid(i,j) } } } + +"$\vdots$" at grid(4.75,0) +for i=1 to 3 do { `"$\cdots$"' at grid(i,5) } +"$\cdots$" at grid(4,4) + +P: grid(1,1) +for k=3 to 5 do { + for i=1 to k-1 do { if (k%2==1) then { m=i; n=k-i } else { m=k-i; n=i } + Q: grid(m,n) + arrow from P to Q chop + P: Q } + } + +.PE -- cgit v1.2.3