UNPKG

algebrite

Version:

Computer Algebra System in Coffeescript

github.com/davidedc/Algebrite

davidedc/Algebrite

111 lines (75 loc) • 1.83 kB
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
test_legendre = -> run_test [ "legendre(x,n)", "legendre(x,n,0)", "legendre(x,n,m)", "legendre(x,n,m)", "legendre(x,0)-1", "0", "legendre(x,1)-x", "0", "legendre(x,2)-1/2*(3*x^2-1)", "0", "legendre(x,3)-1/2*(5*x^3-3*x)", "0", "legendre(x,4)-1/8*(35*x^4-30*x^2+3)", "0", "legendre(x,5)-1/8*(63*x^5-70*x^3+15*x)", "0", "legendre(x,6)-1/16*(231*x^6-315*x^4+105*x^2-5)", "0", "legendre(x,0,0)-1", "0", "legendre(x,1,0)-x", "0", "legendre(x,1,1)+(1-x^2)^(1/2)", "0", "legendre(x,2,0)-1/2*(3*x^2-1)", "0", "legendre(x,2,1)+3*x*(1-x^2)^(1/2)", "0", "legendre(x,2,2)-3*(1-x^2)", "0", "legendre(x,3,0)-1/2*x*(5*x^2-3)", "0", "legendre(x,3,1)-3/2*(1-5*x^2)*(1-x^2)^(1/2)", "0", "legendre(x,3,2)-15*x*(1-x^2)", "0", "legendre(x,3,3)+15*(1-x^2)^(3/2)", "0", "legendre(x,4,0)-1/8*(35*x^4-30*x^2+3)", "0", "legendre(x,4,1)-5/2*x*(3-7*x^2)*(1-x^2)^(1/2)", "0", "legendre(x,4,2)-15/2*(7*x^2-1)*(1-x^2)", "0", "legendre(x,4,3)+105*x*(1-x^2)^(3/2)", "0", "legendre(x,4,4)-105*(1-x^2)^2", "0", "legendre(x,5,0)-1/8*x*(63*x^4-70*x^2+15)", "0", "legendre(cos(theta),0,0)-1", "0", "legendre(cos(theta),1,0)-cos(theta)", "0", "legendre(cos(theta),1,1)+abs(sin(theta))", "0", "legendre(cos(theta),2,0)-1/2*(3*cos(theta)^2-1)", "0", "legendre(cos(theta),2,1)+3*cos(theta)*abs(sin(theta))", "0", "legendre(cos(theta),2,2)-3*sin(theta)^2", "0", "legendre(cos(theta),3,0)-1/2*cos(theta)*(5*cos(theta)^2-3)", "0", "legendre(cos(theta),3,1)- (3/2*abs(sin(theta))-15/2*cos(theta)^2*abs(sin(theta)))", "0", "legendre(cos(theta),3,2)-15*cos(theta)*sin(theta)^2", "0", "legendre(cos(theta),3,3)+15*(sin(theta)^2)^(3/2)", "0", "legendre(a-b,10)-eval(subst(a-b,x,legendre(x,10)))", "0", ]