/
freedensity.wxm
70 lines (52 loc) · 1.62 KB
/
freedensity.wxm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 12.04.0 ] */
/* [wxMaxima: input start ] */
a:1+cos(y-x)+1/8*cos(2*(y-x))+1/256*cos(3*(y-x));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
wxplot3d(a,[x,0,tau],[y,0,tau]);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
az:subst(z,y-x,a);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
wxplot2d([az],[z,-%pi,%pi]);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
plot2d([az,exp(-z^2)+exp(-(z-tau)^2)],[z,-%pi,%pi]);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
tau:2*%pi;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigexpand(a);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigexpand(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigexpand(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigrat(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
ratsimp(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigsimp(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigreduce(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigexpand(%);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigsimp(1+cos(y-x)+1/8*cos(2*(y-x))+1/256*cos(3*(y-x)));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
trigrat(trigreduce(%););
/* [wxMaxima: input end ] */
/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$