From 32458a035b234ad4d9ab59eb8fb5c2f881c661c7 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus,com>
Date: Wed, 18 Feb 2004 11:01:44 +0000
Subject: [PATCH] Added example 3.

---
 doc/flowchart.pic  |  3 +++
 doc/mad-manual.xml | 41 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 44 insertions(+)

diff --git a/doc/flowchart.pic b/doc/flowchart.pic
index 4fb2561..4c2b1f7 100644
--- a/doc/flowchart.pic
+++ b/doc/flowchart.pic
@@ -1,4 +1,5 @@
 define terminal {box $1 ht 0.3 rad 0.2}
+define bigterminal {box $1 ht 0.6 wid 1.8 rad 0.3}
 
 define diamond {[
    FRAME: box invis "$1" $2 $3 $4
@@ -96,5 +97,7 @@ define label {[
    circle rad 0.2 with .c at FRAME.c
 ]}
 
+
+
 # It would be nice to make this work inside [], but pic refuses
 define annotate {$2 at $1.end + (-0.1,0.1)}
diff --git a/doc/mad-manual.xml b/doc/mad-manual.xml
index 694c060..eef3f59 100644
--- a/doc/mad-manual.xml
+++ b/doc/mad-manual.xml
@@ -7,6 +7,8 @@
 <!ENTITY newton2 SYSTEM "../madhouse/newton2.mad">
 <!ENTITY quadratic SYSTEM "../madhouse/quadratic.mad">
 <!ENTITY truthtable SYSTEM "../madhouse/truthtable.mad">
+<!ENTITY simpsfunc SYSTEM "../madhouse/simpsfunc.mad">
+<!ENTITY simpsmain SYSTEM "../madhouse/simpsmain.mad">
 <!ENTITY scope1 SYSTEM "scope1.xml">
 <!ENTITY scope2 SYSTEM "scope2.xml">
 <!ENTITY scope3 SYSTEM "scope3.xml">
@@ -3089,7 +3091,46 @@ external function or an internal function.</para>
   </imageobject>
 </mediaobject>
 
+<para><emphasis>The Program:</emphasis></para>
+
+<programlisting>
+&simpsfunc;
+</programlisting>
+
+<para>If, for some reason, the integral of sin 3x - cos(rx + 1) were
+needed if 0 &le; x &le; 3, and the integral of sin 3x - cos(rx)
+otherwise, the program might then be as follows:</para>
+
+<para><emphasis>The Program:</emphasis></para>
+
+<programlisting>
+&simpsmain;
+</programlisting>
+
+<para><emphasis>External Functions:</emphasis></para>
 
+<programlisting>
+&simpsfunc;
+*DATA
+         0          2.         10          10.
+</programlisting>
+
+<para>An alternate way tio write the first eight lines of this
+program, illustrating one use of the FUNCTION NAME mode, would
+be:</para>
+
+<programlisting>
+READ	READ FORMAT INPUTS,A,B,N,R
+	INTEGER N
+	WHENEVER 0. .LE. R .AND. R .LE. 3
+	S = F1.
+	OTHERWISE
+	S = F2.
+	END OF CONDITIONAL
+	PRINT FORMAT RESULT,A,B,N,R,SIMPS.(A,B,N,S)
+	TRANSFER TO READ
+	FUNCTION NAME S
+</programlisting>
 
 </sect2>
 </sect1>
-- 
2.43.0