function [s1 s2 s3 s4 s5 s6 s7 s8 s9 s10 s11 s12 s13 s14 s15 s16 s17 s18] =  seed_value(seed);
seed1 = (dec2bin(seed,18))';
s1= str2num(seed1(18));
s2= str2num(seed1(17));
s3= str2num(seed1(16));
s4= str2num(seed1(15));
s5= str2num(seed1(14));
s6= str2num(seed1(13));
s7= str2num(seed1(12));
s8= str2num(seed1(11));
s9= str2num(seed1(10));
s10= str2num(seed1(9));
s11= str2num(seed1(8));
s12= str2num(seed1(7));
s13= str2num(seed1(6));
s14= str2num(seed1(5));
s15= str2num(seed1(4));
s16= str2num(seed1(3));
s17= str2num(seed1(2));
s18= str2num(seed1(1));
