diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/circuit_macros/examples/Counting.m4 |
Initial commit
Diffstat (limited to 'graphics/circuit_macros/examples/Counting.m4')
-rw-r--r-- | graphics/circuit_macros/examples/Counting.m4 | 26 |
1 files changed, 26 insertions, 0 deletions
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 |