In[]:=
NotebookDirectory[]
Out[]=
E:\微云同步文件\OneDrive1\Mathem\
模仿210409.nb
In[]:=
ClearAll["Global`*","FGRWV`*","ZBBH`*","FRWS`*"]​​<<FRWS`
In[]:=
af=SOMA[2.1833060459388426`70*^-14,4.321062892799049239138774708420357143827030311036536196140751432455031574502730512208940213286`70.*^17,4.3210628927990492391387748084895857032726451837095505386163049702294875282946034218336379766967`70.*^17,10000]
Out[]=
{{4.321062892799049239138774708420357143827030311036536196140751432455032×
17
10
,5.71558110262270347320945827393810391663130869052064417277585836029554×
11
10
},
⋯9999⋯
,{4.32106289279904923913877480848958570327264518370955053861630497022949×
17
10
,5.71558110262270347320945827393810391663130869052064451337049970954485×
11
10
}}
large output
show less
show more
show all
set size limit...

加入Rohit的建议 (Following Rohit' s advice)：

In[]:=
SetDirectory[NotebookDirectory[]]
Out[]=
E:\微云同步文件\OneDrive1\Mathem
In[]:=
afi=Interpolation@Rationalize[af,0]
Out[]=
InterpolatingFunction
Domain: 
30719796951135593169180607330313985502303769
71093149332145616178635298
,
17144741678454194593436130670781955409098617
39677139869973907685964759

Output: scalar
Data not saved. Save now

In[]:=
Save["iFunc.wl",afi]

重启后 (After restarting)：

In[]:=
SetDirectory[NotebookDirectory[]]​​ClearAll@afi​​Get["iFunc.wl"]​​afi
Out[]=
E:\微云同步文件\OneDrive1\Mathem
Out[]=
InterpolatingFunction
Domain: 
30719796951135593169180607330313985502303769
71093149332145616178635298
,
17144741678454194593436130670781955409098617
39677139869973907685964759

Output: scalar
Data not saved. Save now

Out[]=
InterpolatingFunction
Domain: 
30719796951135593169180607330313985502303769
71093149332145616178635298
,
17144741678454194593436130670781955409098617
39677139869973907685964759

Output: scalar
Data not saved. Save now


验证：

In[]:=
ClearAll["Global`*","FGRWV`*","ZBBH`*","FRWS`*"]​​<<FRWS`
In[]:=
af=SOMA[2.1833060459388426`70*^-14,4.321062892799049239138774708420357143827030311036536196140751432455031574502730512208940213286`70.*^17,4.3210628927990492391387748084895857032726451837095505386163049702294875282946034218336379766967`70.*^17,10000]
Out[]=
{{4.321062892799049239138774708420357143827030311036536196140751432455032×
17
10
,5.71558110262270347320945827393810391663130869052064417277585836029554×
11
10
},
⋯9999⋯
,{4.32106289279904923913877480848958570327264518370955053861630497022949×
17
10
,5.71558110262270347320945827393810391663130869052064451337049970954485×
11
10
}}
large output
show less
show more
show all
set size limit...
In[]:=
ClearAll@afi​​Get["iFunc.wl"]​​afiNew=Interpolation@Rationalize[af,0]​​afiafiNew​​(*True*)
Out[]=
InterpolatingFunction
Domain: 
30719796951135593169180607330313985502303769
71093149332145616178635298
,
17144741678454194593436130670781955409098617
39677139869973907685964759

Output: scalar
Data not saved. Save now

Out[]=
InterpolatingFunction
Domain: 
30719796951135593169180607330313985502303769
71093149332145616178635298
,
17144741678454194593436130670781955409098617
39677139869973907685964759

Output: scalar
Data not saved. Save now

Out[]=
True
In[]:=
afiNew1=Interpolation@Rationalize[af,0]
Out[]=
InterpolatingFunction
Domain: 
30719796951135593169180607330313985502303769
71093149332145616178635298
,
17144741678454194593436130670781955409098617
39677139869973907685964759

Output: scalar
Data not saved. Save now
