这个5元方程循环求解后的结果怎么保存txt文本（可以粘贴入origin直接画图），急求

victoryldh

源程序：
8 B, P  w0 g5 S7 s9 @ClearAll["Global`*"]
" t/ n7 n. M& b; G" n' Rn = 21
3 N5 v! _/ _. Z$ Q* g, f, TIc1 = 64.9
" D% N5 B7 X( L% w& KIc2 = 67
Ic3 = 64.1
2 L0 C# H1 i2 ~1 ^8 P% m" MIc4 = 56.2
6 C! R2 {: [) U6 X- t2 S# CR1 = 0.328*10^-6
R2 = 2.101*10^-6
R3 = 0.533*10^-6
/ w7 G0 `0 z+ R' p( {R4 = 0.6*10^-6
Vc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
" ?( l$ C9 ?% A& T$ z+ r7 iEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
6 Y* l+ z  _' y- j* p. _+ tEqual3 = Vc*(I3/Ic3)^n + R3*I3 - V
Equal4 = Vc*(I4/Ic4)^n + R4*I4 - V
Equal5 = I1 + I2 + I3 + I4 - It
Data = Do[
! A. g0 w+ p8 t% G( w1 y  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
4 X& I" v- o9 k9 _     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
1 H& w! B& e- O      0}}]], {It, 0, 300}]

0 x* j4 M% s) t! T% q, [保存的格式如下：
" d& D$ E6 `* x/ `7 W 0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01   



& Q. k8 V) i& l  `