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

victoryldh

源程序：
+ v' k2 V( V# V- d6 DClearAll["Global`*"]
. y" I* b# [7 Z- w+ c" e5 in = 21
  Z/ v6 J1 H/ fIc1 = 64.9
" ?; k- I+ a7 b# _; JIc2 = 67
: b# t/ N5 d& RIc3 = 64.1
Ic4 = 56.2
R1 = 0.328*10^-6
0 s+ Y& B! e* gR2 = 2.101*10^-6
R3 = 0.533*10^-6
R4 = 0.6*10^-6
Vc = 10^-4
7 M9 K) x- `2 s4 M5 oEqual1 = Vc*(I1/Ic1)^n + R1*I1 - V
Equal2 = Vc*(I2/Ic2)^n + R2*I2 - V
Equal3 = Vc*(I3/Ic3)^n + R3*I3 - V
1 p# B) r3 ~+ z' w+ @- BEqual4 = Vc*(I4/Ic4)^n + R4*I4 - V
, O+ J) z5 Y  v3 t6 T' Y4 yEqual5 = I1 + I2 + I3 + I4 - It
Data = Do[
$ G& V% e, U* e. z  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
8 b/ R' a9 W; g5 H% m1 O     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
      0}}]], {It, 0, 300}]
* Y) S7 w5 ]# D- w" K
保存的格式如下：
2 f8 j1 h3 e* I, Y: Y6 B1 X 0.0000000e+00   0.0000000e+00   0.0000000e+00   
6 h& o1 k; q% `4 r" ?" }6 a  h( p 4.3137523e-01    6.7344634e-02     2.6546168e-01   
9 U" {, Q% A5 f! S$ B$ l+ h
# e  N2 G! a9 n. d% t& c- k9 p

- n( i, n" B! @5 h; U& w! w- ?% M