Hello, I have a question.  I don't know why, but results of my calculations can't be saved in raschet document. This document excists, but there is no information in it! And I have an error with floating point format. How to solve that problems?

> restart;
> Digits := 5;
> NULL;
> NULL;
> NULL;
> NULL;
> NULL;
> ScS0 := P/(phi*f*kc*k0*deltad*Bm*etat);
> NULL;
> NULL;
> Sc := sqrt(ScS0);
> A := sqrt(Sc);
> B := A;
> NULL;
> mue := mu0*mur/(1+mur*dzet/lm);
> lm := 2*(LCA-A+(LC0+A))+dzet;
> NULL;
> LC0 := 3*A; LCA := .4*LC0; LD := .9*LC0;
> NULL;
> NULL;
> w1 := EE/(2*Pi*f*Bm*Sc);
> Lm := mue*w1^2*Sc/lm;
> ;
> I11 := sqrt((w2*Id/w1)^2+I0^2);
> ;
> NULL;
> ;
> h1 := sqrt(RAT*I11/deltad);
> ;
> h2 := sqrt(RAT*Id/deltad);
> NULL;
> A := .6;
> Ud := 35000;
> Id := 413;
> R := Ud^2/P;
> P := Ud*Id;
> P1 := P/eta;
> R1 := EE/I11;
> EE := 110000;
> I0 := EE/(2*Pi*f*Lm);
> w2 := w1*sqrt(P*R)/EE;
> mu0 := 4*Pi*10^(-7);
> mur := 1000;
> f := 50;
> k0 := .25;
> kc := .98;
> deltad := 0.3e7;
> Bm := 1.45;
> etat := .98;
> eta := .95;
> RAT := 1;
> dzet := 0.1e-3;
> phi := .5;
> W1 := evalf(w1);
324.55
> LLm := evalf(Lm);
13.407
> W2 := evalf(w2);
103.26
> evalf(lm);
7.2457
> evalf(LC0);
2.5877
> evalf(LCA);
1.0351
> Imax := evalf(I0);
26.117
> P1;
7
1.5215 10
> Rd := evalf(R);
84.746
> Bmm := evalf(mue*w1*I0/lm);
1.4500
> hâ := (.9*LC0*1000)/(w2+1)-4;

> evalf(hâ);

h￢
> Pred := Id/deltad;
> evalf(Pred);
0.00013767
> NULL;
> NULL;
> ll := hâ*(w2+1)+4*w2;
> NULL;
> a := am*nâ/nx;
> NULL;

> Pol := Vit*nâ;
> am := 5.1;
> am := 5.1;
> nâ := 4;
> evalf(a);
20.4
----
nx
> Vit := 35.19;
> evalf(Pol);
140.76
> plotnToka := Id/Pol;
> evalf(Id/Pol);
2.9341
> NULL;
> I1 := evalf(I11);
133.98
> NULL;
> evalf(mue);
0.0012395
> NULL;
> evalf(EE/I11);
821.02
> NULL;
> pr := "%";
"%"
> fd := fopen("C:\\Users\\Ñåìåí\\Desktop\\ÍÈÐ\\raschet4.ms", WRITE); fprintf(fd, "E=%g;Ud=%g;Imax=%g;P=%g;FR=%g;A=%g;B=%g;LC0=%g;LD=%g;LCA=%g;R=%g;BM=%g;", EE, Ud, Imax, P, f, A, B, LC0, LD, LCA, Rd, Bm); fprintf(fd, "\n %s P=%g;Id = %g;Bm=%g;I1=%g;Bmm=%g", pr, P, Id, Bm, I1, Bmm);
Error, (in fprintf) number expected for floating point format
Error, (in fprintf) number expected for floating point format
> fprintf(fd, "\n %s W1 = %g; W2 = %g; Lm=%g; Sc=%g; dzet=%g", pr, W1, W2, LLm, Sc, dzet);
Error, (in fprintf) file descriptor not in use
> fclose(fd);
Error, (in fclose) file descriptor not in use