*** empty log message ***

*** empty log message ***

#!/usr/bin/octave -q

# Compare the results of kiss_fft with those calculated by octave's fft routines

nfft=1024
showdiff=0;
use_inverse_fft = 1

infile = 'fftin.dat'
outfile = 'fftout.dat'
for test_case =1:3
    printf( '====================================\n');
    if test_case == 1,
        prec = 'short'
        prog = './kiss_fft_s'
    elseif test_case  == 2,
        prec = 'float'
        prog = './kiss_fft_f'
    else
        prec = 'double'
        prog = './kiss_fft_d'
    endif

    # create the input
    input = rand(1,nfft) .* exp(2*pi*j*rand(1,nfft));
    input = floor( real(input)*32767 ) + j*floor(imag(input)*32767 );

    # write the input
    f = fopen( infile, "w", "native");
    to_write = [real(input);imag(input) ];
    fwrite(f,to_write,prec);
    fclose(f);

    if use_inverse_fft,
        cmd = sprintf('%s -s -i %d < %s > %s',prog,nfft,infile,outfile)
        comp = ifft(input);
    else
        cmd = sprintf('%s -s %d < %s > %s',prog,nfft,infile,outfile)
        comp = fft(input);
    endif
    system(cmd);

    # read the output
    f = fopen(outfile,"r", "native");
    from_read = fread(f,Inf,prec)';
    output = (from_read(1:2:nfft*2) + j*from_read(2:2:nfft*2));

    diff = output - comp;
    noise_pow =  sum( conj(diff).*diff );
    sig_pow = sum( conj(comp).*comp );
    snr = 10*log10( sig_pow / noise_pow )
    avg_scale = mean(  abs(output) ./ abs(comp) )
    var_scale = var(  abs(output) ./ abs(comp) )
    if showdiff,
        x=linspace(0,2*pi,nfft);
        figure(1);
        plot( x, real(output), x, real(comp) );
        figure(2);
        plot( x, imag(output), x, imag(comp) );
        figure(3);
        plot( x, abs(output-comp) );
        pause
    endif
endfor


Remove messenger binary

Remove messenger binary


Remove .oct file

Remove .oct file

ELF>@@@8@!    (( ( $$Ptd<<QtdRtd  GNUZ92@udUgd/8 IDtg寺|CEqX4(?pW	8 a R  8 \Fe"	R  u	O
	>
	@>__gmon_start___init_fini_ITM_deregisterTMCloneTable_ITM_registerTMCloneTable__cxa_finalize_Jv_RegisterClassesinitializezmq_ctx_newctxzmq_socketsocket_ptrzmq_bindlisten_zmqmexErrMsgTxtzmq_recvrespondzmq_sendcleanupzmq_closemexPrintfzmq_termmexFunctionmxArrayToStringmxCreateLogicalMatrixmxGetLogicalsmxGetNumberOfElementsmxCallocmxCreateStringlibzmq.so.3liboctinterp.so.2_edata__bss_start_end  p
      (  0  8  @  H  P  X
`  h  p  x          HH
 HtCH5" %$ @%" h% h% h%
 h% h% h% h% hp% h`% h	P% h
@% h0% h % h
% h% h% hH H= UH)HHw]H Ht]@Hq H=j UH)HHHH?HHu]H Ht]H@=1 u'H=_ UHtH= h] fffff.H=h t&H HtUH=R H]WKf.SHH HHH HHHuy [[ÐUSHH[ uH=toH` HHc1H8H[]rfUSHH uH=4/H  HHc1H8H[]fSH H5q1ɺH;H;H=X1LH H8[H=I1.fffff.ATIUSHHHH;HH=0HtH=_H{FHHHI$_Hŋ H6EHH[]A\H=cH=H	H=HtH=H{HH{HHjHI$HI!HcH9A$H[]A\H=qDH=H[]A\$@H=HHH=[]A\DEHH=[]A\AHH!=~\H=]gA$H=NH[]A\[H=HD$WHD$DH=1@H=,HI$HHError: ZMQ session not initializedUsage: messenger('init|listen|respond', extra1, extra2, ...)Missing argument: socket addressOne socket has already been initialized.Receiver buffer overflow. Message truncatedFailed to receive a message due to ZMQ errorPlease provide the message to sendFailed to send message due to ZMQ errorexitSocket closed
Context terminated
Cannot read the commandinitCannot read socket addressSocket created at: %s
Socket creation failed.listenrespondUnidentified command;8T|L,zRx$ FJw?;*3$"DxOAC
DF$d>ACG lAA$>ACG lAARAC|BDC G0
 DABO
 AABHc
 AABI[
 HABJH
 HABM\
 AABHpt
  oP
   0	o(

&
6
F
V
f
v

  GCC: (Ubuntu 4.8.2-19ubuntu1) 4.8.2,{
`8OQVintfi5iX+yb (	'0	8	@	H	sP	IX	T`
Zh	Jbp	bt	px	F	T	`	p	%{	.	/	0	1	2-	4b	6v
TT=Z&b#p

53O?Yb]
bO:
rcbu	'	%T4%B	Ts?b@>ba]	U	~n	TUQ	T $ &R0+(b>F(Vlen(b]	U		TUQ	T $ &R0h2R	T	@Q4R0		U	E

	U	TC>
>b!>vn?b?cmd@rI
y"L-gL-FMpNq
]	U	8z

U1T1
)

Us
	*U	]	U
v"j-gj-
"{-g{-mW|-}	p~K	]	U	(>
4	F
/U1T1R)
_UsTv"-g-	k
mb(
S
UT1:UsTm
Us@
	]	0U	]	]	\U	]	{U	eFy]	U	h

b	   Z Z!ctx		  "4		  #$[XB	%%b$R^b]	%%&	Sn	%$db	%%%-%b$bb	%%%-%b$?Yb	%'		Yb	%('pb	%$
%'	)
%%'	>
%'p	-S
%'	{m
%-%-)	%%:;I$>$>I:;
:;I8
:;I8
:;I!I/
&I&.?:;'I@B:;I4:;I11B1B1:;I.?:;'@B4:;I4:;IUB1B14:;I 4:;I?<!4:;I?"4:;I?#.?:;'I<$.?:;'I<%I&.?:;'<'.?:;'I<().?:;'I<
./src/usr/lib/gcc/x86_64-linux-gnu/4.8/include/usr/include/x86_64-linux-gnu/bits/usr/include/usr/include/octave-3.8.1/octavemessenger.cstddef.htypes.hlibio.hmex.hmxarray.hstdio.hzmq.hmexproto.h	 >=e=ZKVZB!ex"dy"kYNY?JBJ><BJflYI=Z>ZV>X!t8tmHvHF<JEJ;tHQ>[/<Y
.z-`t_chain_flags2buflen_old_offset__s1_len_IO_FILEsocket_ptrzmq_close_IO_save_endshort intsize_t__s2_lenzmq_term_flags./src/messenger.c_IO_buf_base_markers_IO_read_endmsglenmexErrMsgTxtmxCallocmxCreateLogicalMatrixlong long int_lockmxGetLogicalsbyte_recvd_cur_columnplhs_posrespondmxLogical_sbufmexFunctionunsigned charinitializecleanupmxGetNumberOfElementsmxArrayToStringmxCreateStringlong long unsigned intzmq_recv_IO_marker_shortbuf_IO_write_base__pad3_IO_read_ptr_IO_buf_endmexPrintfmwSizeGNU C 4.8.2 -mtune=generic -march=x86-64 -g -O2 -fPIC -fopenmp --param ssp-buffer-size=4 -fstack-protectorzmq_send_next__pad1__pad2zmq_ctx_new__pad4__pad5/home/silvester/workspace/python-matlab-bridge/messengerrecv_bufferprhsshort unsigned int_IO_write_ptr_IO_write_end__off64_tlisten_zmq_filenozmq_bindzmq_socket__off_tnrhs_IO_backup_basestdinmxArray_mode_IO_read_basesizetype_vtable_offset_unused2nlhs_IO_save_basemsg_outinitializedstdout_IO_lock_tsocket_addrUDSDEUENSNOU5MPPlUlSTUPpTpVQTUSTUTVQT0HUHUUU0HTH\Tj\jTT\T\T\TH\HaTap\puTu\0HQHVQ?V?QQVQVQHVHaQanVnuQuV0HRHSRQSQRRSRSR*S*aRamSmuRuSRPYPuPXY4u44PSTSSPSPVVV66u66677Hu7?CPCVHaVQUPUSHaSjnPn\Ha\4au4*.P.HSSS/HPPPpPhP.symtab.strtab.shstrtab.note.gnu.build-id.gnu.hash.dynsym.dynstr.rela.dyn.rela.plt.init.text.fini.rodata.eh_frame_hdr.eh_frame.init_array.fini_array.jcr.dynamic.got.got.plt.data.bss.comment.debug_aranges.debug_info.debug_abbrev.debug_line.debug_str.debug_loc.debug_ranges$.o\8PP0@H00R  \		W		 bh	n2#v<00T     ( ( 8         0 $ 0
{+<-0m/x3q
!=>/HH 1	OP0

0    (          	.	0A	pW  f
        ( "+  6D S g
mv 	R	@>  $  (  4	O?Ue  j
v	>~  	crtstuff.c__JCR_LIST__deregister_tm_clonesregister_tm_clones__do_global_dtors_auxcompleted.6972__do_global_dtors_aux_fini_array_entryframe_dummy__frame_dummy_init_array_entrymessenger.cinitialized__FRAME_END____JCR_END___GLOBAL_OFFSET_TABLE___TMC_END____dso_handle_DYNAMICzmq_termsocket_ptrmxGetLogicals__gmon_start___Jv_RegisterClasses_finizmq_bind__cxa_finalizecleanuplisten_zmqmexPrintf_ITM_deregisterTMCloneTable_ITM_registerTMCloneTablemxCalloczmq_sendmxGetNumberOfElementsmxCreateStringzmq_closezmq_socketctx__bss_startinitializemxCreateLogicalMatrixmxArrayToString_endmexFunctionrespondmexErrMsgTxt_edatazmq_ctx_newzmq_recv_init


*** empty log message ***

*** empty log message ***


Delete sprintfbx.oct

Delete sprintfbx.oct

File inadvertently added to repository.

(__TEXT__text__TEXT
M
__stubs__TEXT<__stub_helper__TEXTDtD__cstring__TEXT__const__TEXTpp__eh_frame__TEXT__DATA__nl_symbol_ptr__DATA
__la_symbol_ptr__DATAPH__LINKEDIT  x"0     0!
"P`"D(2[2SCc	K}$

*X/usr/local/octave/3.8.0/lib/octave/3.8.0/liboctinterp.2.dylibX/usr/local/octave/3.8.0/lib/octave/3.8.0/liboctave.2.dylibP/usr/local/octave/3.8.0/lib/libgcc/libstdc++.6.dylib8/usr/lib/libSystem.B.dylibP/usr/local/octave/3.8.0/lib/libgcc/libgcc_s.1.dylib& !)(!+(!hAUIATUSHAPu~H=+H;MtH=2H;?uH;-tH;t
H;uH;HHu1ɺ11IEH;H;HIuH=1ɺoHIEuH=TI}]HHuH=71IHHHH @<:@;HH@<:@{HH@<:@{HH@<:@{HH@<:@{HH@<:@{H@42H@<:@s@42@{@sHH@42@s	HH@42@s
HH@42@sHH@42@sHH@42@s
H΃H@42
@sSHH9HIuH=1ɺ4HIEuH=I}HHuH=1AHH@42@3HH@42@sHH@42@sHH@42@sHH@42@sHH@42@sH΃H@42
@sSHH9dX[]A\A]%%%%%
%%%%%LAS%hhh1hEhVhfhvhhhBad number of input/output arguments.Input array must be real, full double array.Error getting input array pointer.Error creating output array.Error getting output array pointer.0123456789abcdefzRxdM (06( T^hr|!Z@dyld_stub_binderQqq@_mexErrMsgTxtq@_mxCreateNumericMatrixq @_mxGetClassIDq(@_mxGetDataq0@_mxGetInfq8@_mxGetNaNq@@_mxGetNumberOfElementsqH@_mxIsComplexqP@_mxIsNumericqX@_mxIsSparse_mexFunction sbx_digits%d<(libSystem.B
p)@NYcm
@
 _mexFunction_sbx_digits_mexErrMsgTxt_mxCreateNumericMatrix_mxGetClassID_mxGetData_mxGetInf_mxGetNaN_mxGetNumberOfElements_mxIsComplex_mxIsNumeric_mxIsSparsedyld_stub_binder


Add hello-world source

Add hello-world source

; Octave CPU - Hello World

; R2R1 ← string
LAA R2, R1, string

loop:
; R0 ← [R2R1]
LOAD R2, R1

; IF R0 == 0, JMP exit
XOR R3, R3
ADD R3, R0
LRA exit
JMP R0 Z

; PRINT R3
OUT R3, 1

; INC R1
LOADI 0x01
ADD R1, R0

; JMP loop
LRA loop
JMP R0 NZP

exit:
HALT

string:
BYTES "Hello world!\n"
BYTE 0x00

error: pathspec 'hello-world.oct' did not match any file(s) known to git


Initial revision

Initial revision

#!/usr/bin/octave -q

# Compare the results of kiss_fft with those calculated by octave's fft routines

nfft=1024;
showdiff=0;

for test_case =1:3
    printf( '====================================\n');
    if test_case == 1,
        prec = 'short'
        prog = './kiss_fft_s'
        scale = nfft
    elseif test_case  == 2,
        prec = 'float'
        prog = './kiss_fft_f'
        scale = 1
    else
        prec = 'double'
        prog = './kiss_fft_d'
        scale = 1
    endif

    # create the input
    input = rand(1,nfft) .* exp(2*pi*j*rand(1,nfft));
    input = floor( real(input)*32767 ) + j*floor(imag(input)*32767 );

    # write the input
    f = fopen( "fftin.dat", "w", "native");
    to_write = [real(input);imag(input) ];
    fwrite(f,to_write,prec);
    fclose(f);

    cmd = sprintf('%s %d < fftin.dat > fftout.dat',prog,nfft)
    system(cmd);

    # read the output
    f = fopen("fftout.dat","r", "native");
    from_read = fread(f,Inf,prec)';
    output = (from_read(1:2:nfft*2) + j*from_read(2:2:nfft*2))        ;

    comp = fft(input)/scale;
    if test_case == 1,
        comp = floor( real(comp) +.5) + j*floor( imag(comp) +.5);
    endif

    if showdiff,
        x=linspace(0,2*pi,nfft);
        figure(1);
        plot( x, real(output), x, real(comp) );
        figure(2);
        plot( x, imag(output), x, imag(comp) );
        figure(3);
        plot( x, abs(output-comp) );
        pause
    else
        diff = output - comp;
        noise_pow =  sum( conj(diff).*diff );
        sig_pow = sum( conj(comp).*comp );
        snr = 10*log10( sig_pow / noise_pow )

        avg_scale = mean(  abs(output) ./ abs(comp) )
    endif
endfor


adding octave graph

adding octave graph

#! /usr/bin/octave -qf
data = dlmread("precep.csv", ",");
x = data(:,1);
y = data(:,2);

plot(x, y);
print("plot.png" "-dpng");
input("press enter to close");

error: pathspec 'createGraph.oct' did not match any file(s) known to git


Add win64 octave binary

Add win64 octave binary

error: pathspec 'messenger/mexw64/messenger.oct' did not match any file(s) known to git


Initial revision

Initial revision