Question: How do i supress the output?

Hey there i have written the following code and it gets very slow cause of the output at each step, which is not needed. I only need the arrays at the end of the procedure. Has someone an idea how i can suppress the output for the steps betweend the start and the end of the procedure?

 

restart:
s_1 := 0.779e-1*t^2-.1345*t+.2031:
s_2 := 1.3502*t-6.8742:
s_3 := .1112*t^2-1.5108*t+11.527:
s_4 := 1.9322*t-15.099:
s_5 := -0.178e-1*t^2+2.648*t-22.312:

DS_1 := diff(s_1,t):
DS_2         := diff(s_2,t):
DS_3 := diff(s_3,t):
DS_4 := diff(s_4,t):
DS_5 := diff(s_5,t):

V_0 := .3*.15:
rho := 900:

p_0 := 100000:
p_1 := 500000:
p_2 := 600000:
p_3 := 500000:

alpha_zu := 0.5:
alpha_ab := 0.5:

b := 0.005:
h := 0.01:
A_Plunger := 0.03:

t:= 0:
t_alt:=0:
tmp:= p_1:
S := 0:
i:=0:

f:=26.75/0.125;
C:=array(0..214):
E:=array(0..214):


while t <= 26.75

do

if t >= 0 and t <= 9.5 then S := s_1/1000 end if:
if t > 9.5 and t <= 12.875 then S := s_2/1000 end if:
if t > 12.875 and t <= 15.5 then S := s_3/1000 end if:
if t > 15.5 and t <= 20.75 then S := s_4/1000 end if:
if t > 20.75 and t <= 26.75 then S := s_5/1000 end if:


if S >= 0.01 then A_zu := 0 end if:
if S < 0.01 then A_zu := b*h-b*S end if:

if S >= 0.01 then A_ab := 0 end if:
if S < 0.01 or S >= 0.018 then A_ab := b*h-b*S end if:


V_zu := A_zu * alpha_zu * sqrt(2/rho) * sqrt(abs(p_2 - p_1)) * (p_2 - p_1)/abs(p_2 - p_1):

V_ab := A_ab * alpha_ab * sqrt(2/rho) * sqrt(abs(p_2 - p_3)) * (p_2 - p_3)/abs(p_2 - p_3):

V_in_ab := V_zu - V_ab - A_Plunger * DS_1/1000:

V_in := V_0 + V_in_ab * (t - t_alt ):


K := tmp * 0.978418181818182e-3/(1*10^5)+1.7:


p_2 := p_1 + (V_0 - V_in) / V_0 * K * 1*10^5 * 1*10^4:

C[i]:=t:
E[i]:=p_2:
i:=i+1;


tmp := p_1:
t_alt := t :
t := t + 1:
od;

x:=pointplot([C,E]);
with(plots):display({x});
print(C);
print(E);

Please Wait...