View Single Post
  #14   Report Post  
Old February 3rd 05, 01:35 AM
Doug McLaren
 
Posts: n/a
Default

In article .com,
bb wrote:

| If you want a program to do it --
|
| #!/usr/bin/perl -w
| # C Q D E K B 3 E I A P S E
| K
| my $string = ".-.- --.-\n-.. .\n-.- -... ...-- . .. .-\n.--. ... .-.-" ;
| foreach my $c (split (//, $string)) {
| if ($c eq ".") { print "10" ; next } ;
| if ($c eq "-") { print "1110" ; next } ;
| if ($c eq " ") { print "00" ; next } ; # Only two 0s, because
| the last
| # character ended with
| a 0.
| if ($c eq "\n") { print "000000" ; next } ; # ditto, but 6.
| }
| print "\n" ;
....
| Doug, please perform the same exercise for all variations of the
| Farnsworth code. Thanks.

Um, I'll pass

I'm not sure what the value would be, but if you really think it's
worthwhile, you can work out the timings yourself, and use my program
to print out your 1s and 0s. (perl is available on most operating
systems, including Windows, if you need it.)

All you'd have to do is change the `00' and `000000' print statements
to include more zeros. (But don't forget that there's already a 0
printed as a part of the last character when calculating the timings.)

In any event, the expected timings for `standard' morse code are well
defined -- a dah is 3x as long as a dit, the space between dits and
dahs is as long as a dit, the space between characters is 3x as long
as a dit, and the space between words is 7x as long as a dit. The
Farnsworth method merely makes the 3x and 7x gaps longer.

(My little program uses \n's to indicate the end of a word. This is
needed because the `.-.- --.-' notation really has no standard way of
indicating the difference between a 3-dit long pause and a 7-dit long
pause.)

--
Doug McLaren,
internet, eh? I hear they have that on computers now.