diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-27 22:31:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-27 22:31:23 +0000 |
| commit | 307e4ad0a2676ef94b42121e79e71888f4778883 (patch) | |
| tree | 15cc67e1c57f7b0efd639bd14472bf3e559c08e3 /src/input/heat.input.pamphlet | |
| parent | 8f5399e77de0741651b0d058b1aa7f57f43aedb0 (diff) | |
| download | open-axiom-307e4ad0a2676ef94b42121e79e71888f4778883.tar.gz | |
cleanup
Diffstat (limited to 'src/input/heat.input.pamphlet')
| -rw-r--r-- | src/input/heat.input.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/input/heat.input.pamphlet b/src/input/heat.input.pamphlet index d1bf86c9..11e75b00 100644 --- a/src/input/heat.input.pamphlet +++ b/src/input/heat.input.pamphlet @@ -20,10 +20,10 @@ )set messages autoload off )set quit unprotected -- This is the heat equation -u:= operator('u); +u:= operator('u) heat:= D(u(x, t), t) - D(u(x, t), x, 2) = 0 -- This is the similarity form of the proposed solution -f:= operator('f); +f:= operator('f) s:= rule(u(x, t) == f(x/sqrt(t))/sqrt(t)) -- Apply s to the heat equation s(lhs(heat)) = 0 |