Repository navigation
Expand file tree
/
Copy pathinit.m
More file actions
44 lines (33 loc) · 1.53 KB
/
Copy pathinit.m
File metadata and controls
44 lines (33 loc) · 1.53 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
(* ::Package:: *)
BeginPackage["Calculus`"]
D`usage="";
CWD::usage="Current Work Directory";
IntegrateU::usage="IntegrateU[f[x],x] returns the integral";
(* Special Functions *)
Unprotect[SinIntegral, CosIntegral, SinhIntegral, CoshIntegral, FresnelC, FresnelS];
SinIntegral::usage = "SinIntegral[x] gives the sine integral
Integrate[Sin[t]/t, {t, 0, x}].";
CosIntegral::usage = "CosIntegral[x] gives the cosine integral
EulerGamma + Log[x] + Integrate[(Cos[t] - 1)/t, {t, 0, x}].";
SinhIntegral::usage = "SinhIntegral[x] gives the hyperbolic sine integral
Integrate[Sinh[t]/t, {t, 0, x}].";
CoshIntegral::usage = "CoshIntegral[x] gives the hyperbolic cosine integral
EulerGamma + Log[x] + Integrate[(Cosh[t] - 1)/t, {t, 0, x}].";
FresnelS::usage = "FresnelS[x] gives the Fresnel integral
S[x] = Integrate[Sin[Pi t^2/2], {t, 0, x}].";
FresnelC::usage = "FresnelC[x] gives the Fresnel integral
C[x] = Integrate[Cos[Pi t^2/2], {t, 0, x}].";
Begin["`Private`"]
(*\:7531\:4e8eNotebookDirectory[]\:63d0\:53d6\:7684\:662f\:6700\:521d\:6267\:884c\:7684\:6587\:4ef6\:6240\:5728\:5b50\:76ee\:5f55\:ff0c\:6545\:624b\:5de5\:8bbe\:7f6eCWD\:6765\:786e\:5b9a\:5b50\:76ee\:5f55*)
CWD = NotebookDirectory[];
Get[CWD<>"Integrate.m"];
End[];
(*Remove[CWD];*)
EndPackage[];
If[System`mU===True,
System`Integrate=Calculus`IntegrateU
]
(*IntegrateU[x,x]
IntegrateU[Sqrt[1+(2 x)/(1+x^2)],x]*)
(*\:4e0d\:501f\:52a9Rubi\:53ef\:4ee5\:8ba1\:7b97\:51fa\:6765\:7684\:79ef\:5206*)
(*IntegrateU[(x^4- 3 x^2 + 6)/(x^6 - 5 x^4 + 5 x^2 + 4),x]*)