clc

server = tcpip('0.0.0.0', 8080, 'NetworkRole', 'Server');
data = membrane(1);
s = whos('data');
set(server,'OutputBufferSize', s.bytes);
disp(1)

fopen(server);
disp(2)

x = 0;
dx = 1;
dt = 0.02;
counter = 0;

pause(12)
disp(2.5)

while 1
    x = x + dx * dt;
    counter = counter + dt;

    if counter >= 0.03
        counter = 0;
        fwrite(server, strcat(num2str(x), 'L') );
    end;

    pause(dt);
end;

%{
for i = 1:0.01:5
    fwrite(server, strcat(num2str(i), 'L') );
    pause(0.05);
end;
%}

fwrite(server, 'E');

%{
message = '';
data2 = fread(server, 22,'char');
for i =1:22
    message(i) = char(data2(i));
end

disp(message)
%}

fclose(server);
disp(3)