diff options
Diffstat (limited to 'examples-xml/array_scalar_math.csd.xml')
-rw-r--r-- | examples-xml/array_scalar_math.csd.xml | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/examples-xml/array_scalar_math.csd.xml b/examples-xml/array_scalar_math.csd.xml new file mode 100644 index 0000000..085194e --- /dev/null +++ b/examples-xml/array_scalar_math.csd.xml @@ -0,0 +1,76 @@ +<programlisting> +<emphasis role="csdtag"><CsoundSynthesizer></emphasis> +<emphasis role="csdtag"><CsOptions></emphasis> +-n -m128 +<emphasis role="csdtag"></CsOptions></emphasis> +<emphasis role="csdtag"><CsInstruments></emphasis> + + + <emphasis role="oblock">instr</emphasis> 1 + +<emphasis role="comment">;create array and fill with numbers 1..10</emphasis> +kArr1[] <emphasis role="opc">fillarray</emphasis> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 + +<emphasis role="comment">;print content</emphasis> + <emphasis role="opc">printf</emphasis> "<emphasis role="op">%</emphasis>s", 1, "\nInitial content<emphasis role="op">:</emphasis>\n" +kndx <emphasis role="op">=</emphasis> 0 + until kndx <emphasis role="op">==</emphasis> <emphasis role="opc">lenarray</emphasis>(kArr1) do + <emphasis role="opc">printf</emphasis> "kArr[<emphasis role="op">%</emphasis>d] <emphasis role="op">=</emphasis> <emphasis role="op">%</emphasis>f\n", kndx<emphasis role="op">+</emphasis>1, kndx, kArr1[kndx] +kndx <emphasis role="op">+</emphasis><emphasis role="op">=</emphasis> 1 + od + +<emphasis role="comment">;add 10</emphasis> +kArr2[] <emphasis role="op">=</emphasis> kArr1 <emphasis role="op">+</emphasis> 10 + +<emphasis role="comment">;print content</emphasis> + <emphasis role="opc">printf</emphasis> "<emphasis role="op">%</emphasis>s", 1, "\nAfter adding 10<emphasis role="op">:</emphasis>\n" +kndx <emphasis role="op">=</emphasis> 0 + until kndx <emphasis role="op">==</emphasis> <emphasis role="opc">lenarray</emphasis>(kArr2) do + <emphasis role="opc">printf</emphasis> "kArr[<emphasis role="op">%</emphasis>d] <emphasis role="op">=</emphasis> <emphasis role="op">%</emphasis>f\n", kndx<emphasis role="op">+</emphasis>1, kndx, kArr2[kndx] +kndx <emphasis role="op">+</emphasis><emphasis role="op">=</emphasis> 1 + od + +<emphasis role="comment">;subtract 5</emphasis> +kArr3[] <emphasis role="op">=</emphasis> kArr2 <emphasis role="op">-</emphasis> 5 + +<emphasis role="comment">;print content</emphasis> + <emphasis role="opc">printf</emphasis> "<emphasis role="op">%</emphasis>s", 1, "\nAfter subtracting 5<emphasis role="op">:</emphasis>\n" +kndx <emphasis role="op">=</emphasis> 0 + until kndx <emphasis role="op">==</emphasis> <emphasis role="opc">lenarray</emphasis>(kArr3) do + <emphasis role="opc">printf</emphasis> "kArr[<emphasis role="op">%</emphasis>d] <emphasis role="op">=</emphasis> <emphasis role="op">%</emphasis>f\n", kndx<emphasis role="op">+</emphasis>1, kndx, kArr3[kndx] +kndx <emphasis role="op">+</emphasis><emphasis role="op">=</emphasis> 1 + od + +<emphasis role="comment">;multiply by -1.5</emphasis> +kArr4[] <emphasis role="op">=</emphasis> kArr3 <emphasis role="op">*</emphasis> <emphasis role="op">-</emphasis>1.5 + +<emphasis role="comment">;print content</emphasis> + <emphasis role="opc">printf</emphasis> "<emphasis role="op">%</emphasis>s", 1, "\nAfter multiplying by <emphasis role="op">-</emphasis>1.5<emphasis role="op">:</emphasis>\n" +kndx <emphasis role="op">=</emphasis> 0 + until kndx <emphasis role="op">==</emphasis> <emphasis role="opc">lenarray</emphasis>(kArr4) do + <emphasis role="opc">printf</emphasis> "kArr[<emphasis role="op">%</emphasis>d] <emphasis role="op">=</emphasis> <emphasis role="op">%</emphasis>f\n", kndx<emphasis role="op">+</emphasis>1, kndx, kArr4[kndx] +kndx <emphasis role="op">+</emphasis><emphasis role="op">=</emphasis> 1 + od + +<emphasis role="comment">;divide by -3/2</emphasis> +kArr5[] <emphasis role="op">=</emphasis> kArr4 <emphasis role="op">/</emphasis> <emphasis role="op">-</emphasis>(3<emphasis role="op">/</emphasis>2) + +<emphasis role="comment">;print content</emphasis> + <emphasis role="opc">printf</emphasis> "<emphasis role="op">%</emphasis>s", 1, "\nAfter dividing by <emphasis role="op">-</emphasis>3<emphasis role="op">/</emphasis>2<emphasis role="op">:</emphasis>\n" +kndx <emphasis role="op">=</emphasis> 0 + until kndx <emphasis role="op">==</emphasis> <emphasis role="opc">lenarray</emphasis>(kArr5) do + <emphasis role="opc">printf</emphasis> "kArr[<emphasis role="op">%</emphasis>d] <emphasis role="op">=</emphasis> <emphasis role="op">%</emphasis>f\n", kndx<emphasis role="op">+</emphasis>1, kndx, kArr5[kndx] +kndx <emphasis role="op">+</emphasis><emphasis role="op">=</emphasis> 1 + od + +<emphasis role="comment">;turnoff</emphasis> + <emphasis role="opc">turnoff</emphasis> + <emphasis role="oblock">endin</emphasis> + + +<emphasis role="csdtag"></CsInstruments></emphasis> +<emphasis role="csdtag"><CsScore></emphasis> +<emphasis role="stamnt">i</emphasis> 1 0 .1 +<emphasis role="csdtag"></CsScore></emphasis> +<emphasis role="csdtag"></CsoundSynthesizer></emphasis> +</programlisting>
\ No newline at end of file |