*************************** CUT HERE ****************************
' 6:03 PM 3/28/2010 MST UTC-7Hrs
' CREATE AN IDEAL CALIBRATION MARK INTO AN ARRAY THEN MERGE IT
' WITH REAL DATA FROM A RAW DATA FILE EXPORT FINAL RESULTS
' AS A SEPERATE FILE LEAVING THE ORIGINAL UNDISTURBED
' THIS IS ONLY AN EXAMPLE PROGRAM INTENDED FOR ASSISTANCE
' TO HOWEVER WANTS TO DO THIS.
' THE INPUT DATA HERE IS SINGLE PRECISION
' THE OUTPUT IS SINGLE PRECISION
' ALL MATH IN THE MIDDLE IS DOUBLE PRECISION
' THIS IS SOURCE CODE FOR POWER BASIC BUT SHOULD
' BE CONVERTABLE TO OTHER FORMS OF THE BASIC LANGUAGE
' CONTACT in personal email: gmvoeth@........... if you want a personal compiled original
' I need the following information to create a functional program
' FILE NAME TYPE SIZE IN BYTES OF RAW INPUT DATA SIGNED INTEGER (little endien only) OR IEEE FLOATING POINT
' SAMPLES PER SECOND OF DATA
' I can create compiled for MSDOS or WIN 32bit it will run by
' placing the executable into the desired folder
' with the data then double clicking the executable.
' one or the other Should either or  run on all versions of windows up to vista64.
' I think it does not matter which direction the data runs to make this work
' its kinda like latin in that it means the same either way

  #COMPILER PBWIN 8.04
  #COMPILE EXE "GVADIS45"
  #DIM ALL
  #INCLUDE "Win32API.inc"
  #STACK 2097152

  FUNCTION PBMAIN
  LOCAL hWin AS DWORD
  LOCAL hDlg AS DWORD

' NOTE:
' CREATE AN IDEAL CALIBRATION MARK TO BE SUMMED WITH COLLECTED DATA
' IN THIS CASE EXACTLY THREE HZ
' TO BE CONVERTED TO WHATEVER DATA TYPE AND SUMMED JUST BEFORE
' SAVING

' ARRAYS
  DIM VIRTUAL CAL_DATA(0 TO MAXSAMPLESMINUSONE)    AS DOUBLE  ' 4 bytes FLOAT
  DIM VIRTUAL INP_INTEGER(0 TO MAXSAMPLESMINUSONE) AS INTEGER ' 4 bytes FLOAT
  DIM VIRTUAL INP_LONG(0 TO MAXSAMPLESMINUSONE)    AS LONG    ' 4 bytes FLOAT
  DIM VIRTUAL INP_SINGLE(0 TO MAXSAMPLESMINUSONE)  AS SINGLE  ' 4 bytes FLOAT
  DIM VIRTUAL INP_DOUBLE(0 TO MAXSAMPLESMINUSONE)  AS DOUBLE  ' 4 bytes FLOAT


' GENERATE CALIBRATION DATA
' CALIBRATION VARIABLES OR CONSTANTS
  DIM COUNTER_A AS DOUBLE  
  DIM PI      AS DOUBLE
  DIM SR      AS DOUBLE
  DIM SCALE   AS DOUBLE
  DIM RAD2DEG AS DOUBLE
  DIM F0      AS DOUBLE
  DIM W0      AS DOUBLE
  DIM MAGIC   AS DOUBLE
  DIM MAXSAMP AS DOUBLE

' WHITE COLLAR ROUTINE
  MAXSAMP = ' WHATEVER MINUS ONE
  PI = (ATN(1) * 4)   ' NOT SURE ABOUT THIS PUT IN PI if it does not work 3.14159...usw
  F0 = 3              ' FREQUENCY in Hz
  W0 = (2 * PI * F0)  ' ubiquitous ohmega
  SR = (65541 / 3600) ' DATA SAMPLE RATE IN SAMPLES PER SECOND In MY CASE SAMPLES PER HOUR/3600
  SCALE = 2^1         ' MAX SIGNAL MAGNITUDE AS A POWER OF TWO
  MAGIC = W0 / SR     ' MAGIC number to make it faster

' BLUECOLLAR ROUTINE
  CAL_STAGE_0:
  FOR COUNTER_A = 0 TO MAXSAMPLES
  CAL_DATA(COUNTER_A)  = INT(SCALE * SIN(MAGIC * COUNTER_A))
  NEXT COUNTER_A
  END FUNCTION

' REDCOLLAR ROUTINE
' REMARKED EXAMPLE OF HOW TO MERGE THE RAW DATA
' ***************************************************************************
' *** GET THE MAXSAMPLESPLUSONE OF DATA FROM WHATEVERIN.DAT IN SINGLE FORM  ***
' ***************************************************************************
'  LEN_INTEGER = 2  ' SIGNED INTEGER NUMBER OF BYTES
'  LEN_LONG    = 4  ' SIGNED INTEGER NUMBER OF BYTES
'  LEN_SINGLE  = 4  ' SINGLE PRECISION FLOAT NUMBER OF BYTES
'  LEN_DOUBLE  = 8  ' DOUBLE PRECISION FLOAT NUMBER OF BYTES
'
'  OPEN "WHATEVERIN.DAT" FOR BINARY AS #1 LEN = LEN_SINGLE BASE = 0
'  FILE_LEN = LOF(1)
'  IF FILE_LEN <> (MAXSAMPLESPLUSONE * LEN_SINGLE) THEN CLOSE : GOTO ENDY
'  GET #1,,INP_SINGLE() ' GET THE DATA FROM THE RAW FILE
'  CLOSE #1
'
'  CONVERT RAW INPUT DATA IF NECESSARY TO DOUBLE PRECISION/MERGE SIGNAL/CONVERT TO OUTPUT FORM WHATEVER IT BE
'  FOR COUNTER_A = 0 TO MAXSAMPLES
'  INP_DOUBLE(COUNTER_A) = INP_SINGLE(COUNTER_A) ' CONVERT WHATEVER INPUT TO DOUBLE PRECISION
'  INP_DOUBLE(COUNTER_A) = INP_DOUBLE(COUNTER_A) + CAL_DATA(COUNTER_A) ' MERGE INPUT DATA WITH CALIBRATION SIGNAL
'  INP_SINGLE(COUNTER_A) = INP_DATA2(COUNTER_A) ' CONVERT BACK TO OUTPUT FORM
'  NEXT COUNTER_A
'  ' DATA NOW READY FOR SAVING

'  OPEN "[RAWDATAOUTPUTFILENAME]" FOR BINARY AS #1 LEN = LEN_SINGLE BASE = 0
'  FILE_LEN = MAXSAMPLESPLUSONE
'  PUT #1,,INP_SINGLE() ' WRITE THE DATA FROM THE CONVERTED TO A FILE ON DISK
'  CLOSE #1

ENDY:
END FUNCTION


' EOF
' PS. DONT LAUGH TOO HARD, I DONT WANT YOU HURT YOURSELF.


*************************** CUT HERE ****************************

----- Original Message ----- 
From: "Dale Hardy" 
To: 
Sent: Sunday, March 28, 2010 4:49 PM
Subject: RE: OFFER TO THE INTERESTED


> Hi Geoff,
> 
> Interesting,,,
> Can I please have a copy of the source code
> 
> Regards
> Dale
> 
> -----Original Message-----
> From: psn-l-request@.............. [mailto:psn-l-request@............... On
> Behalf Of Geoffrey
> Sent: Monday, 29 March 2010 9:10 AM
> To: PSN-LIST
> Subject: OFFER TO THE INTERESTED
> 
> Hello PSN,
> 
> If anyone is interested I would be glad to
> compile a custom program for you
> that would take your raw data and
> sum in a single low level frequency
> +/- one or two counts that could act
> as a reference signal.
> It would spit out a duplicate file
> with a different name only
> adding the pure expected frequency.
> 
> It is a simple thing to do,
> otherwise I am willing to
> give you the basic source code
> I use to do this.
> 
> I am able to operate for short periods
> of time an FTP server to distribute
> such amateur software material.
> 
> I have a variable IP address that is
> not guaranteed to be always the same.
> For security of my own machine I do not
> want to be online for long periods
> with a server running.
> 
> Regards,
> geoff
> 
> __________________________________________________________
> 
> Public Seismic Network Mailing List (PSN-L)
> 
> To leave this list email PSN-L-REQUEST@.............. with 
> the body of the message (first line only): unsubscribe
> See http://www.seismicnet.com/maillist.html for more information.
> 
> No virus found in this incoming message.
> Checked by AVG - www.avg.com 
> Version: 8.5.437 / Virus Database: 271.1.1/2775 - Release Date: 03/28/10
> 06:32:00
> 
> __________________________________________________________
> 
> Public Seismic Network Mailing List (PSN-L)
> 
> To leave this list email PSN-L-REQUEST@.............. with 
> the body of the message (first line only): unsubscribe
> See http://www.seismicnet.com/maillist.html for more information.
>
__________________________________________________________

Public Seismic Network Mailing List (PSN-L)