PSN-L Email List Message

Subject: Re: OFFER TO THE INTERESTED
From: "Geoffrey" gmvoeth@...........
Date: Sun, 28 Mar 2010 18:42:19 -0700


VERSion 186282.4 TeenyTinyCorrection
( RECOMMEND SELECT COURIER FONT TO VIEW SOURCES)

' ARRAYS
  DIM VIRTUAL CAL_DATA(0 TO MAXSAMPLESMINUSONE)    AS DOUBLE      ' 8 bytes FLOAT
  DIM VIRTUAL INP_INTEGER(0 TO MAXSAMPLESMINUSONE) AS INTEGER    ' 2 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    ' 8 bytes FLOAT

----- Original Message ----- 
From: "Geoffrey" 
To: 
Sent: Sunday, March 28, 2010 6:15 PM
Subject: Re: OFFER TO THE INTERESTED


> *************************** 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)
> 
> 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)


[ Top ] [ Back ] [ Home Page ]