File: hypgeo.dmo

package info (click to toggle)
maxima 5.6-17
  • links: PTS
  • area: main
  • in suites: woody
  • size: 30,572 kB
  • ctags: 47,715
  • sloc: ansic: 154,079; lisp: 147,553; asm: 45,843; tcl: 16,744; sh: 11,057; makefile: 7,198; perl: 1,842; sed: 334; fortran: 24; awk: 5
file content (116 lines) | stat: -rw-r--r-- 1,763 bytes parent folder | download | duplicates (2)
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
/* This is a sample of answers from the under construction program, 
which deals with "Bateman's Manuscript Project". */
DYNAMALLOC:TRUE;
ASSUME(P > 0);
SHOWTIME:TRUE$

/* Laplace transforms */

/* Some elementary functions. */

t^(1/2)*%e^(-a*t/4)*%e^(-p*t);
specint(%,t);
t^(3/4)*%e^(-t^2/2/b)*%e^(-p*t);
specint(%,t);
t^(-1/2)*%e^(-2*a^(1/2)*t^(1/2))*%e^(-p*t);
specint(%,t);
t^(1/2)*%e^(-p*t-a/t);
specint(%,t);
sin(a*t)*cosh(b*t^2)*%e^(-p*t);
radcan(specint(%,t));

/* Some "confluents". Notice that "%M[k,m](z)" is a Whittaker function. */

%e^(a*t)*t^2*erf(t^(1/2))*%e^(-p*t);
specint(%,t);






t^(3/2)*%m[1/2,1](t)*%e^(-p*t);
specint(%,t);



/* Some Bessel functs (bf's). */

/* %J[v](z), 1st kind of bf's. */
	/* %Y[v](z), 2nd kind of bf's.*/
/* %H[v,1](z), 1st kind of the 3rd kind of bf's (1st Hankel). */
	/* %H[v,2](z), 2nd kind of the 3rd kind of bf's (2nd Hankel).*/



t^(1/2)*%j[1](2*a^(1/2)*t^(1/2))*%e^(-p*t);
specint(%,t);
t^2*%j[1](a*t)*%e^(-p*t);
specint(%,t);

t^(3/2)*%y[1](a*t)*%e^(-t);
specint(%,t);






t^(3/2)*%h[1/2,1](t)*%e^(-p*t);
specint(%,t);
t^(1/2)*%h[3/4,2](t)*%e^(-p*t);
specint(%,t);
t*%h[2/3,1](t^(1/2))*%e^(-p*t);
specint(%,t);

/* %Ibes[v](z), %K[v](z), Modified bf's. */



t^(1/2)*%ibes[1](t)*%e^(-p*t);
specint(%,t);






%j[1](t)^2*%e^(-p*t+r);
specint(%,t);
t^(1/2)*%j[1/2](t^(1/2))^2*%e^(-p*t);
specint(%,t);
t^(5/2)*%y[1/2](t^(1/2))^2*%e^(-p*t);
specint(%,t);

/*Some combinations of products of Bessel functions*/
t^(3/4)*%j[1/2](t)*%j[1/4](t)*%e^(-p*t);
specint(%,t);

t*%ibes[0](a*t/2)*%ibes[1](a*t/2)*%e^(-p*t);
specint(%,t);



/* Related to bf's functions. */

/* Struve functions. */



t^(3/2)*hstruve[1](t^(1/2))*%e^(-p*t);
radcan(specint(%,t));


t*hstruve[1](t)*%e^(-p*t);
specint(%,t);