Strange Numbers

Turtle · 12-30-2005

___I apologize for allowing this topic to languish. Come next month I hope to budget for some printer ink & get busy investigating these Unusual Sets by listing them in diffrerent bases as we earlier discussed. I expect this approach to answer far fewer questions than it produces. You all can count on me abundantly.

By all means however, I invite others to undertake their own investigation of these sets & to submit discoveries/observations to this thread. Happy New Year!

Turtle · 02-27-2006

___I think in the venue's vernacular, they call this a 'bump'. How many centuries or millinea did 'bump' mean otherwise?
___Speaking of thousands of years, I may have mentioned in the start of this thread (or was it the middle?

) that the ideas of perfect/abundant/deficient originated that long ago. So too the idea of the right triangles of Pythagorus which we have discussed here in the forum of late & come now to more or less resolve our issues with those sets.
___The issues of the sets I describe here however remain unresolved. In particular what I have termed 'anomolous' Strange, Curious, etc. Numbers. I also suspect the elements of the sets themselves may benefit from comparisons with sets of numbers from other systems, e.g. the right triangles, the figurate numbers, powers, Fibonacci, etc..
___We have new members to invite to this exploration of the strange & curious world of numbers.

TheBigDog · 02-27-2006

Whew! I just read this whole thread from beginning to end. I am very impressed indeed Turtle. I am down right intreagued. I had never heard of strange numbers before. Or thought of the relationship of the sum of the factors of a number to the quality of the number itself (in fact I would have probalby just added up the prime factors as I am a prime nut). Triangles, as you know, have taken some brain time from me. And I have long been fond of prime numbers and good old Fibonocci. But this is like a new flavor of candy and I can't wait to taste it. I am going to write a program for searching out these numbers. I would be interested in the TurboBasic program you used for your previous searches to give me a starting point. I will keep you advised as to my progress.

This is going to be fun!

Bill

Turtle · 02-27-2006

Quote:

Originally Posted by TheBigDog

I would be interested in the TurboBasic program you used for your previous searches to give me a starting point.
Bill

___Ok, you shall have it. It so happens I converted one version to a text file today; I have attached it below. I ran it to see what it did & it appears to work, but it is a modified version of what I made the discovery with. Then there is the matter of...hedging.

I know a lot of people will chuckle at my style, but I throw caution to the wind & here it is unedited. So ...uh... here it is.

Code:

cls
deflng A-Z
g=1
option base 1:dim S(2)
option base 1:dim B(2)
option base 1:dim P(2)
option base 1:dim L(2)
option base 1:dim J(2)
 screen 9,1
 color 5,0
$sound 5
'************** entry formatting  ***********************
 line (0,0)-(160,43),4,b

 locate 5,13:print "strange":locate 9,13:print "bizarre"
 locate 13,13:print "peculiar":locate 17,13:print "curious"
 locate 1,15:print "Count":locate 1,27:print "Divisors":locate 2,15:print "Sum"
 locate 3,15:print "Diff"

'*********** Sum of integer divisors calculations  *******************
MAXELEMENTS = 36
SC=586
BC=160
PC=16
CC=1
  COUNTER = 25606
   do until COUNTER > 900000000
     'color 4,0:locate 1,1:print using "#,###,###,###";COUNTER
    MIDDLE = fix(sqr(COUNTER))
    DIVISOR = 1
    option base 1:dim A(900)
    INDEX% = 1:INDEX2% = 2
      do until DIVISOR > MIDDLE
       if (COUNTER/DIVISOR) = FIX(COUNTER/DIVISOR) then
        DIVISOR2 = COUNTER/DIVISOR
        A(INDEX%) = DIVISOR
        A(INDEX2%) = DIVISOR2
         'rem out next three lines to count factor twice for perfect sqrs
         'if DIVISOR = DIVISOR2 then    'perfect squares
          'A(INDEX2%) = 0
         'end if
        incr INDEX%,2
        incr INDEX2%,2
        incr DIVISOR
       else
        incr DIVISOR
       end if
      loop
'**************** this block dynamically scales the array and sums the divisors
'**************** from the array and counts the number of elements (divisors)
        SUM = 0
        ELEMENTS = 0
         SPAN% = INDEX2%
          for I% = 1 to SPAN%
           if A(I%) > 0 then incr ELEMENTS
            SUM = SUM + A(I%)
          next I%
          SUM = SUM - A(2)
         color 4,0:locate 1,1:print using "#,###,###,###";COUNTER
         color 10,0:locate 2,1:print using "#,###,###,###";SUM
         color 1,0:locate 2,19:print using "#";fnkatabatak(SUM)
          'RATIO# = SUM/COUNTER
          DIFF = SUM - COUNTER

           if SUM < COUNTER then
            color 14,0:locate 3,1:print using "#,###,###,###";DIFF
           else
            color 13,0:locate 3,1:print using "#,###,###,###";DIFF
           end if
          color 2,0:locate 1,21:print using "#,###";ELEMENTS
         'color 1,0:locate 1,38:print using "#";fnkatabatak(ELEMENTS)

         'lprint using "#,###,###,###";COUNTER;SUM
         'lprint using "####";COUNTER;SUM;A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12) A(13) A(14) A(15) A(16) A(17) A(18)


'********* analysis of even multiples of sum with source integer *******
       'if (SUM*2)=COUNTER then
       ' sound 50,3
       ' locate 13,1:print using "#,###,###,###";COUNTER
       ' locate 13,21:print using "#";fnkatabatak(COUNTER)
       ' locate 13,23:print using "#,###";ELEMENTS
       'end if

        'if (SUM*3)=COUNTER then
        'sound 50,3
        'color 5,0:locate 15,2:print "sum*3=count
        'color 4,0:locate 14,2:print using "#,###,###,###";COUNTER
        'color 1,0:locate 14,21:print using "#";fnkatabatak(COUNTER)
        'color 2,0:locate 14,23:print using "#,###";ELEMENTS
        'end if

         'TEST=2*COUNTER
         'TEST2=3*COUNTER
         STRANGE= COUNTER+12
         BIZARRE = COUNTER+56
         PECULIAR = COUNTER+992
         CURIOUS = COUNTER+16256

        select case SUM
        ' case=COUNTER
         ' locate 12,1:print using "#,###,###,###";COUNTER
         ' locate 12,21:print using "#";fnkatabatak(COUNTER)
         ' locate 12,23:print using "#,###";ELEMENTS
         'sound 2000,4
         'case=TEST2
         ' sound 100,3
         ' color 11,0:locate 18,67:print "dbl"
         ' color 4,0:locate 19,67:PRINT USING "#,###,###,###";COUNTER
         ' locate 6,80:print using "#";fnkatabatak(COUNTER)
         'locate 8,23:print using "#,###";ELEMENTS

          case=STRANGE
          'sound 100,1
          'S(2)=COUNTER
          'SEPERATION=S(2)-S(1)
          'color 13,0:locate 5,1:print using "###,###,###";SEPERATION
          color 4,0:locate 5,20:print using "#,###,###,###";COUNTER
          color 1,0:locate 5,35:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 5,40:print using "#,###";ELEMENTS
          'color 12,0:locate 6,1:print using "##,###,###";A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12) A(13) A(14) A(15) A(16) A(17) A(18) A(19) A(20) A(21) A(22)
          'S(1)=S(2)
           'if ELEMENTS <> 8 then
             'sound 333,33
             'stop
            'end if
            SC=SC+1
            color 3,0:locate 5,1:print using "###,###,###";SC
          'lprint using "#,###,###,###";COUNTER
          'lprint using "##,###";COUNTER A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10)
          'P=P+1
          'if P = 60 then end

          case=BIZARRE
          'sound 300,3
          'B(2)=COUNTER
          'SEPERATION2=B(2)-B(1)
          'color 13,0:locate 9,1:print using "###,###,###";SEPERATION2
          color 4,0:locate 9,20:print using "#,###,###,###";COUNTER
          color 1,0:locate 9,35:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 9,40:print using "#,###";ELEMENTS
          'color 12,0:locate 10,1:print using "##,###,###";A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12) A(13) A(14) A(15) A(16) A(17) A(18) A(19) A(20) A(21) A(22)
          'B(1)=B(2)
          'if ELEMENTS <> 12 then
             'sound 333,33
             'stop
            'end if
            BC=BC+1
            color 3,0:locate 9,1:print using "###,###,###";BC
          'lprint using "#,###,###,###";COUNTER;SUM
          'lprint using "##,###";COUNTER A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12) A(13) A(14)
          'P=P+1
          'if P = 60 then end

         case=peculiar
          'sound 500,3
          'P(2)=COUNTER
          'SEPERATION3=P(2)-P(1)
          'color 13,0:locate 13,1:print using "###,###,###";SEPERATION3
          color 4,0:locate 13,20:print using "#,###,###,###";COUNTER
          color 1,0:locate 13,35:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 13,40:print using "#,###";ELEMENTS
          color 12,0:locate 14,1
          'print using "##,###,###";A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12) A(13) A(14) A(15) A(16) A(17) A(18) A(19) A(20) A(21) A(22) A(23) A(24) 'A(25) A(26) A(27) A(28) A(29) A(30) A(31) A(32)
          P(1)=P(2)
          'if ELEMENTS <> 20 then
             'sound 333,33
             'stop
            'end if
           PC=PC+1
            color 3,0:locate 13,1:print using "###,###,###";PC
          'lprint using "#,###,###,###;COUNTER;SUM
          'lprint using "##,###";COUNTER A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12)
          'lprint using "##,###";FILLER A(13) A(14) A(15) A(16) A(17) A(18) A(19) A(20) A(21) A(22)
          'Q=Q=1
          'if Q = 30 then end

         case=CURIOUS
          'sound 500,3
          'J(2)=COUNTER
          'SEPERATION4=J(2)-J(1)
          'color 13,0:locate 17,1:print using "###,###,###";SEPERATION4
          color 4,0:locate 17,20:print using "#,###,###,###";COUNTER
          color 1,0:locate 17,35:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 17,40:print using "#,###";ELEMENTS
          'color 12,0:locate 18,1:print using "##,###,###";A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12) A(13) A(14) A(15) A(16) A(17) A(18) A(19) A(20) A(21) A(22) A(23) A(24) A(25) A(26) A(27) A(28)
          'J(1)=J(2)
          'if ELEMENTS <> 28 then
             'sound 333,33
             'stop
            'end if
           CC=CC+1
           color 3,0:locate 17,1:print using "###,###,###";CC
         ' lprint using "###,###";COUNTER A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(11) A(12)
         ' lprint using "###,###";FILLER A(13) A(14) A(15) A(16) A(17) A(18) A(19) A(20) A(21) A(22)
         ' lprint using "###,###";FILLER A(23) A(24) A(25) A(26) A(27) A(28) A(29) A(30) A(31) A(32)
         ' Q=Q=1
         ' if Q = 20 then end
         end select

      erase A
    incr COUNTER
    $event on
      on key(10) gosub QUIT
      key(10) on
    $event off

   loop
  gosub quit
 end

  QUIT:
   key(10) off

   end
  return

end


  def fnkatabatak(NUMBER)
   local TEMP%,TEMP2%,K$,SHORTK$,I%,J%,SUM
    option base 1:dim TEMP%(11)
    option base 1:dim TEMP2%(11)
    K$ = str$(NUMBER)
    SUM = 0
      for I% = 2 to 11
       TEMP%(I%) = val(mid$(K$,I%,1))
        SUM = SUM + TEMP%(i%)
      next I%
     erase TEMP%
    do while SUM > 9
     SHORTK$ = str$(SUM)
      SUM = 0
        for J% = 2 to 11
         TEMP2%(J%) = val(mid$(SHORTK$,J%,1))
         SUM = SUM + TEMP2%(J%)
        next J%
       erase TEMP2%
     loop
    fnkatabatak = SUM
   end def

end

TheBigDog · 02-27-2006

Quote:

Originally Posted by Turtle

___Ok, you shall have it. It so happens I converted one version to a text file today; I have attached it below. I ran it to see what it did & it appears to work, but it is a modified version of what I made the discovery with. Then there is the matter of...hedging.

I know a lot of people will chuckle at my style, but I throw caution to the wind & here it is unedited. So ...uh... here it is.

Very cool! I am going to be working in vb.net. I will send the text of my code when I am done if you are interested. I want to make this one really jazzy.

Bill

Turtle · 02-28-2006

Quote:

Originally Posted by TheBigDog

Very cool! I am going to be working in vb.net. I will send the text of my code when I am done if you are interested. I want to make this one really jazzy.

Bill

___By all means post the code when you have it; I don't know that platform but I think plenty of other folks do & I may learn a bit of it.
___My code certainly isn't jazzy

, more like cacophonous.

My habit is to not program menus or make separate programs; I just interrupt a run, rem-out what I don't need & add anything I want.
___There is something of what I think is a philosophical issue here, & that is mostly simply put forward with the question "Is 16 abundant or deficient, & why?". While this doesn't affect the Unusual Sets (Unusual Set is the meta-set of Strange, Curious, Bizarre Set(s) etc.), it does affect the cardinality of the sets of Deficient and Abundant Numbers.
___

Turtle · 03-17-2006

Quote:

Originally Posted by TheBigDog

Whew! I just read this whole thread from beginning to end. I am very impressed indeed Turtle. I am down right intreagued. I had never heard of strange numbers before. ... I will keep you advised as to my progress.

This is going to be fun!

Bill

Tugging you every which way, eh Bill!? Triangles, katabataks, fractals, and now unusual sets of numbers. For my money (of which I have none), this is the best of them all because it is original, unexplored territory found nowhere in the anals of math but here at Hypography.
I have rather 'hit the wall' in my further investigations by way of my limited computer resources & that is just what is needed now; brute computer force. Bill et al, please by all means keep us posted on any advancements/discoveries you make in the pursuit of the Unusual Sets.

PS I have attached perfect3.txt, a paste-up of the main Basic program I have used in these various factoring projects. Lumpy, dumpy as it is, it has taught me much.

Code:

cls
deflng A-Z
g=1
option base 1:dim S(2)
option base 1:dim B(2)
option base 1:dim P(2)
option base 1:dim L(2)
 screen 9,1
 color 5,0
$sound 5
'************** entry formatting  ***********************
 line (0,0)-(160,42),4,b
 line (0,53)-(126,320),2,b:line (126,53)-(252,320),2,b
 line (252,53)-(379,320),2,b:line (379,111)-(503,320),2,b
 line (380,42)-(639,110),15,b

 locate 1,51:print "strange":locate 2,51:print "bizarre":locate 3,51:print "peculiar"
 locate 1,15:print "Count":locate 1,26:print "Divisors":locate 2,15:print "Sum"
 locate 3,15:print "Diff":locate 5,1:print "d2":locate 6,1:print "d4"
 locate 7,1:print "d6":locate 8,1:print "d8":locate 9,1:print "d10"
 locate 10,1:print "d12":locate 11,1:print "d14":locate 12,1:print "d16"
 locate 13,1:print "d18":locate 14,1:print "d20":locate 15,1:print "d22"
 locate 16,1:print "d24":locate 17,1:print "d26":locate 18,1:print "d28"
 locate 19,1:print "d30":locate 20,1:print "d32":locate 21,1:print "d34"
 locate 22,1:print "d36":locate 23,1:print "d38":locate 5,17:print "d40"
 locate 6,17:print "d42":locate 7,17:print "d44":locate 8,17:print "d46"
 locate 9,17:print "d48":locate 10,17:print "d50":locate 11,17:print "d52"
 locate 12,17:print "d54":locate 13,17:print "d56":locate 14,17:print "d58"
 locate 15,17:print "d60":locate 16,17:print "d62":locate 17,17:print "d64"
 locate 18,17:print "d66":locate 19,17:print "d68":locate 20,17:print "d70"
 locate 21,17:print "d72":locate 22,17:print "d74":locate 23,17:print "d76"
 locate 5,33:print "d78":locate 6,33:print "d80":locate 7,33:print "d82"
 locate 8,33:print "d84":locate 9,33:print "d86":locate 10,33:print "d88"
 locate 11,33:print "d90":locate 12,33:print "d92":locate 13,33:print "d94"
 locate 14,33:print "d96":locate 15,33:print "d98":locate 16,33:print "100"
 locate 17,33:print "102":locate 18,33:print "104":locate 19,33:print "106"
 locate 20,33:print "108":locate 21,33:print "110":locate 22,33:print "112"
 locate 23,33:print "114":locate 9,49:print "116":locate 10,49:print "118"
 locate 11,49:print "120":locate 12,49:print "122":locate 13,49:print "124"
 locate 14,49:print "126":locate 15,49:print "128":locate 16,49:print "130"
 locate 17,49:print "132":locate 18,49:print "134":locate 19,49:print "136"
 locate 20,49:print "138":locate 21,49:print "140":locate 22,49:print "142"
 locate 23,49:print ">142"

'***************** beginning file operations  ****************
filenumber = 1
' filenumber = fnfilelength
open "r",#2,"keep1.dat",292
 field #2,4 as hold$,4 as D1$,4 as D2$,4 as D3$,4 as D4$,4 as D5$,4 as D6$,_
 4 as D7$,4 as D8$,4 as D9$,4 as D10$,4 as D11$,4 as D12$,4 as D13$,4 as D14$,_
 4 as D15$,4 as D16$,4 as D17$,4 as D18$,4 as D19$,4 as D20$,4 as D21$,_
 4 as D22$,4 as D23$,4 as D24$,4 as D25$,4 as D26$,4 as D27$,4 as D28$,_
 4 as D29$,4 as D30$,4 as D31$,4 as D32$,4 as D33$,4 as D34$,4 as D35$,_
 4 as D36$,4 as D37$,4 as D38$,4 as D39$,4 as D40$,4 as D41$,4 as D42$,_
 4 as D43$,4 as D44$,4 as D45$,4 as D46$,4 as D47$,4 as D48$,4 as D49$,_
 4 as D50$,4 as D51$,4 as D52$,4 as D53$,4 as D54$,4 as D55$,4 as D56$,_
 4 as D57$,4 as D58$,4 as D59$,4 as D60$,4 as D61$,4 as D62$,4 as D63$,_
 4 as D64$,4 as D65$,4 as D66$,4 as D67$,4 as D68$,4 as D69$,4 as D70$,_
 4 as D71$,4 as D72$
  get #2,filenumber
  counter=cvl(hold$)
   C2=cvl(D1$):C4=cvl(D2$):C6=cvl(D3$):C8=cvl(D4$):C10=cvl(D5$):C12=cvl(D6$)
   C14=cvl(D7$):C16=cvl(D8$):C18=cvl(D9$):C20=cvl(D10$):C22=cvl(D11$)
   C24=cvl(D12$):C26=cvl(D13$):C28=cvl(D14$):C30=cvl(D15$):C32=cvl(D16$)
   C34=cvl(D17$):C36=cvl(D18$):C38=cvl(D19$):C40=cvl(D20$):C42=cvl(D21$)
   C44=cvl(D22$):C46=cvl(D23$):C48=cvl(D24$):C50=cvl(D25$):C52=cvl(D26$)
   C54=cvl(D27$):C56=cvl(D28$):C58=cvl(D29$):C60=cvl(D30$):C62=cvl(D31$)
   C64=cvl(D32$):C66=cvl(D33$):C68=cvl(D34$):C70=cvl(D35$):C72=cvl(D36$)
   C74=cvl(D37$):C76=cvl(D38$):C78=cvl(D39$):C80=cvl(D40$):C82=cvl(D41$)
   C84=cvl(D42$):C86=cvl(D43$):C88=cvl(D44$):C90=cvl(D45$):C92=cvl(D46$)
   C94=cvl(D47$):C96=cvl(D48$):C98=cvl(D49$):C100=cvl(D50$):C102=cvl(D51$)
   C104=cvl(D52$):C106=cvl(D53$):C108=cvl(D54$):C110=cvl(D55$):C112=cvl(D56$)
   C114=cvl(D57$):C116=cvl(D58$):C118=cvl(D59$):C120=cvl(D60$):C122=cvl(D61$)
   C124=cvl(D62$):C126=cvl(D63$):C128=cvl(D64$):C130=cvl(D65$):C132=cvl(D66$)
   C134=cvl(D67$):C136=cvl(D68$):C138=cvl(D69$):C140=cvl(D70$):C142=cvl(D71$)
   C144=cvl(D72$)
  get #2,filenumber
 close #2

'---------------------
filenumber = 1
' filenumber = fnfilelength
'open "r",#3,"keep2.dat",292
' field #3,4 as hold$,4 as D1$,4 as D2$,4 as D3$,4 as D4$,4 as D5$,4 as D6$,_
' 4 as D7$,4 as D8$,4 as D9$,4 as D10$,4 as D11$,4 as D12$,4 as D13$,4 as D14$,_
' 4 as D15$,4 as D16$,4 as D17$,4 as D18$,4 as D19$,4 as D20$,4 as D21$,_
' 4 as D22$,4 as D23$,4 as D24$,4 as D25$,4 as D26$,4 as D27$,4 as D28$,_
' 4 as D29$,4 as D30$,4 as D31$,4 as D32$,4 as D33$,4 as D34$,4 as D35$,_
' 4 as D36$,4 as D37$,4 as D38$,4 as D39$,4 as D40$,4 as D41$,4 as D42$,_
' 4 as D43$,4 as D44$,4 as D45$,4 as D46$,4 as D47$,4 as D48$,4 as D49$,_
' 4 as D50$,4 as D51$,4 as D52$,4 as D53$,4 as D54$,4 as D55$,4 as D56$,_
' 4 as D57$,4 as D58$,4 as D59$,4 as D60$,4 as D61$,4 as D62$,4 as D63$,_
' 4 as D64$,4 as D65$,4 as D66$,4 as D67$,4 as D68$,4 as D69$,4 as D70$,_
' 4 as D71$,4 as D72$
'  get #3,filenumber
'  counter=cvl(hold$)
'   C1=cvl(D1$):C2=cvl(D2$):C3=cvl(D3$):C4=cvl(D4$):C5=cvl(D5$):C6=cvl(D6$)
'   C7=cvl(D7$):C8=cvl(D8$):C9=cvl(D9$):C10=cvl(D10$):C11=cvl(D11$)
'   C12=cvl(D12$):C13=cvl(D13$):C14=cvl(D14$):C15=cvl(D15$):C16=cvl(D16$)
'   C17=cvl(D17$):C18=cvl(D18$):C19=cvl(D19$):C20=cvl(D20$):C21=cvl(D21$)
'   C22=cvl(D22$):C23=cvl(D23$):C24=cvl(D24$):C25=cvl(D25$):C26=cvl(D26$)
'   C27=cvl(D27$):C28=cvl(D28$):C29=cvl(D29$):C30=cvl(D30$):C31=cvl(D31$)
'   C32=cvl(D32$):C33=cvl(D33$):C34=cvl(D34$):C35=cvl(D35$):C36=cvl(D36$)
'   C37=cvl(D37$):C38=cvl(D38$):C39=cvl(D39$):C40=cvl(D40$):C41=cvl(D41$)
'   C42=cvl(D42$):C43=cvl(D43$):C44=cvl(D44$):C45=cvl(D45$):C46=cvl(D46$)
'   C47=cvl(D47$):C48=cvl(D48$):C49=cvl(D49$):C50=cvl(D50$):C51=cvl(D51$)
'   C52=cvl(D52$):C53=cvl(D53$):C54=cvl(D54$):C55=cvl(D55$):C56=cvl(D56$)
'   C57=cvl(D57$):C58=cvl(D58$):C59=cvl(D59$):C60=cvl(D60$):C61=cvl(D61$)
'   C62=cvl(D62$):C63=cvl(D63$):C64=cvl(D64$):C65=cvl(D65$):C66=cvl(D66$)
'   C67=cvl(D67$):C68=cvl(D68$):C69=cvl(D69$):C70=cvl(D70$):C71=cvl(D71$)
'   C72=cvl(D72$)
'  get #3,filenumber
' close #3

'------------------
 locate 5,5:print using "#,###,###";c2:locate 6,5:print using "#,###,###";c4
 locate 7,5:print using "#,###,###";c6:locate 8,5:print using "#,###,###";c8
 locate 9,5:print using "#,###,###";c10:locate 10,5:print using "#,###,###";c12
 locate 11,5:print using "#,###,###";c14:locate 12,5:print using "#,###,###";c16
 locate 13,5:print using "#,###,###";c18:locate 14,5:print using "#,###,###";c20
 locate 15,5:print using "#,###,###";c22:locate 16,5:print using "#,###,###";c24
 locate 17,5:print using "#,###,###";c26:locate 18,5:print using "#,###,###";c28
 locate 19,5:print using "#,###,###";c30:locate 20,5:print using "#,###,###";c32
 locate 21,5:print using "#,###,###";c34:locate 22,5:print using "#,###,###";c36
 locate 23,5:print using "#,###,###";c38:locate 5,21:print using "#,###,###";c40
 locate 6,21:print using "#,###,###";c42:locate 7,21:print using "#,###,###";c44
 locate 8,21:print using "#,###,###";c46:locate 9,21:print using "#,###,###";c48
 locate 10,21:print using "#,###,###";c50:locate 11,21:print using "#,###,###";c52
 locate 12,21:print using "#,###,###";c54:locate 13,21:print using "#,###,###";c56
 locate 14,21:print using "#,###,###";c58:locate 15,21:print using "#,###,###";c60
 locate 16,21:print using "#,###,###";c62:locate 17,21:print using "#,###,###";c64
 locate 18,21:print using "#,###,###";c66:locate 19,21:print using "#,###,###";c68
 locate 20,21:print using "#,###,###";c70:locate 21,21:print using "#,###,###";c72
 locate 22,21:print using "#,###,###";c74:locate 23,21:print using "#,###,###";c76
 locate 5,37:print using "#,###,###";c78:locate 6,37:print using "#,###,###";c80
 locate 7,37:print using "#,###,###";c82:locate 8,37:print using "#,###,###";c84
 locate 9,37:print using "#,###,###";c86:locate 10,37:print using "#,###,###";c88
 locate 11,37:print using "#,###,###";c90:locate 12,37:print using "#,###,###";c92
 locate 13,37:print using "#,###,###";c94:locate 14,37:print using "#,###,###";c96
 locate 15,37:print using "#,###,###";c98:locate 16,37:print using "#,###,###";c100
 locate 17,37:print using "#,###,###";c102:locate 18,37:print using "#,###,###";c104
 locate 19,37:print using "#,###,###";c106:locate 20,37:print using "#,###,###";c108
 locate 21,37:print using "#,###,###";c110:locate 22,37:print using "#,###,###";c112
 locate 23,37:print using "#,###,###";c114:locate 9,53:print using "#,###,###";c116
 locate 10,53:print using "#,###,###";c118:locate 11,53:print using "#,###,###";c120
 locate 12,53:print using "#,###,###";c122:locate 13,53:print using "#,###,###";c124
 locate 14,53:print using "#,###,###";c126:locate 15,53:print using "#,###,###";c128
 locate 16,53:print using "#,###,###";c130:locate 17,53:print using "#,###,###";c132
 locate 18,53:print using "#,###,###";c134:locate 19,53:print using "#,###,###";c136
 locate 20,53:print using "#,###,###";c138:locate 21,53:print using "#,###,###";c140
 locate 22,53:print using "#,###,###";c142:locate 23,53:print using "#,###,###";c144

'*********** Sum of integer divisors calculations  *******************
MAXELEMENTS = 36
  'COUNTER = 1    '1010005000
   do until COUNTER > 500000000  '13000000
    'color 4,0:locate 1,1:print using "#,###,###,###";COUNTER
    MIDDLE = fix(sqr(COUNTER))
    DIVISOR = 1
    option base 1:dim A(900)
    INDEX% = 1:INDEX2% = 2
      do until DIVISOR > MIDDLE
       if (COUNTER/DIVISOR) = FIX(COUNTER/DIVISOR) then
        DIVISOR2 = COUNTER/DIVISOR
        A(INDEX%) = DIVISOR
        A(INDEX2%) = DIVISOR2
         'if DIVISOR = DIVISOR2 then    'perfect squares
         ' A(INDEX2%) = 0
         'end if
        incr INDEX%,2
        incr INDEX2%,2
        incr DIVISOR
       else
        incr DIVISOR
       end if
      loop
'**************** this block dynamically scales the array and sums the divisors
'**************** from the array and counts the number of elements (divisors)
        SUM = 0
        ELEMENTS = 0
         SPAN% = INDEX2%    '+ 2
          for I% = 1 to SPAN%
           if A(I%) > 0 then incr ELEMENTS
           SUM = SUM + A(I%)
          next I%
         color 4,0:locate 1,1:print using "#,###,###,###";COUNTER
         color 10,0:locate 2,1:print using "#,###,###,###";SUM
         'color 1,0:locate 2,21:print using "#";fnkatabatak(SUM)
          RATIO# = SUM/COUNTER
          DIFF = SUM - COUNTER

           if (SUM/COUNTER) < 2 then
            color 14,0:locate 3,1:print using "#,###,###,###";DIFF
           else
            color 13,0:locate 3,1:print using "#,###,###,###";DIFF
           end if
          color 2,0:locate 1,20:print using "#,###";ELEMENTS
         'color 1,0:locate 1,38:print using "#";fnkatabatak(ELEMENTS)

          if ELEMENTS >= MAXELEMENTS then
           color 2,0:locate 4,51:print using "#,###";ELEMENTS
           color 6,0:locate 4,58:print using "#.####";RATIO#
           color 4,0:locate 5,51:print using "#,###,###,###";COUNTER
           color 1.0:locate 5,65:print using "#";fnkatabatak(COUNTER)
           color 10,0:locate 6,51:print using "#,###,###,###";SUM
           MAXELEMENTS = ELEMENTS
          end if

          if RATIO# > 3 then
           color 4,0:locate 9,67:print using "#,###,###,###";COUNTER
           'color 1,0:locate 9,80:print using "#";fnkatabatak(COUNTER)
           color 2,0:locate 11,65:print using "#,###";ELEMENTS
           color 10,0:locate 10,67:print using "#,###,###,###";SUM
           color 6,0:locate 11,73:print using "#.####";RATIO#    '(SUM/COUNTER)
          end if
          if RATIO# > 2 and RATIO# < 3 then
           color 4,0:locate 13,67:print using "#,###,###,###";COUNTER
           'color 1,0:locate 13,80:print using "#";fnkatabatak(COUNTER)
           color 2,0:locate 15,65:print using "#,###";ELEMENTS
           color 10,0:locate 14,67:print using "#,###,###,###";SUM
           color 6,0:locate 15,73:print using "#.####";RATIO#    '(SUM/COUNTER)
          end if
          if RATIO# >= 1.5 and RATIO# < 2 then
           color 4,0:locate 17,67:print using "#,###,###,###";COUNTER
           color 1,0:locate 17,80:print using "#";fnkatabatak(COUNTER)
           color 2,0:locate 19,65:print using "#,###";ELEMENTS
           color 10,0:locate 18,67:print using "#,###,###,###";SUM
           color 6,0:locate 19,73:print using "#.#####";RATIO#
          end if

          if RATIO# >=1 and RATIO# < 1.5 and ELEMENTS <> 2 then
          color 1,0:locate 21,80:print using "#";fnkatabatak(counter)
          color 4,0:locate 21,67:print using "#,###,###,###";COUNTER
          color 2,0:locate 23,65:print using "#,###";ELEMENTS
          color 10,0:locate 22,67:print using "#,###,###,###";SUM
          color 6,0:locate 23,73:print using "#.#####";RATIO#
         end if

         'if ELEMENTS = 4 then      'RATIO# > 1 and RATIO# < 2 then
          'sound 300,1
         ' L(2)=COUNTER
         ' SEPERATION4=L(2)-L(1)
         ' color 4,0:locate 2,19:print using "#,###,###,###";COUNTER
         ' color 1,0:locate 2,33:print using "#";fnkatabatak(COUNTER)
         ' color 10,0:locate 3,19:print using "#,###,###,###";SUM
         ' color 6,0:locate 4,26:print using "#.####";(SUM/COUNTER)
         ' color 2,0:locate 4,34:print using "###";ELEMENTS
         ' color 13,0:locate 3,33:print using "###,###,###";SEPERATION4
         ' L(1)=L(2)
         'end if

         if DIFF < 9000 and DIFF <> 1 then
          'sound 300,1
          'L(2)=COUNTER
          'SEPERATION4=L(2)-L(1)
          color 4,0:locate 2,19:print using "#,###,###,###";COUNTER
          color 1,0:locate 2,33:print using "#";fnkatabatak(COUNTER)
          color 10,0:locate 3,19:print using "#,###,###,###";SUM
          color 14,0:locate 4,26:print using "##,###";DIFF
          color 2,0:locate 3,33:print using "###";ELEMENTS
          'color 13,0:locate 4,33:print using "###,###";SEPERATION4
          'L(1)=L(2)
         end if

'*********** analysis by number of divisors ****************
 color 11,0
       select case ELEMENTS
        case = 2
         incr c2
         'locate 5,5:print using "#,###,###";c2
         locate 5,5:print using "##.######";(c2/COUNTER)*100
         'locate 5,15:print using "#";fnkatabatak(counter)
        case = 4
         incr c4
         'locate 6,5:print using "#,###,###";c4
         locate 6,5:print using "##.######";(c4/COUNTER)*100
         'locate 6,15:print using "#";fnkatabatak(counter)
        case = 6
         incr c6
         'locate 7,5:print using "#,###,###";c6
         locate 7,5:print using "##.######";(c6/COUNTER)*100
         'locate 7,15:print using "#";fnkatabatak(counter)
        case = 8
         incr c8
         'locate 8,5:print using "#,###,###";c8
         locate 8,5:print using "##.######";(c8/COUNTER)*100
         'locate 8,15:print using "#";fnkatabatak(counter)
        case = 10
         incr c10
         'locate 9,5:print using "#,###,###";c10
         locate 9,5:print using "##.######";(c10/COUNTER)*100
         'locate 9,15:print using "#";fnkatabatak(counter)
        case = 12
         incr c12
         'locate 10,5:print using "#,###,###";c12
         locate 10,5:print using "##.######";(c12/COUNTER)*100
         'locate 10,15:print using "#";fnkatabatak(counter)
        case = 14
         incr c14
         'locate 11,5:print using "#,###,###";c14
         locate 11,5:print using "##.######";(c14/COUNTER)*100
         'locate 11,15:print using "#";fnkatabatak(counter)
        case = 16
         incr c16
         'locate 12,5:print using "#,###,###";c16
         locate 12,5:print using "##.######";(c16/COUNTER)*100
         'locate 12,15:print using "#";fnkatabatak(counter)
        case = 18
         incr c18
         'locate 13,5:print using "#,###,###";c18
         locate 13,5:print using "##.######";(c18/COUNTER)*100
         'locate 13,15:print using "#";fnkatabatak(counter)
        case = 20
         incr c20
         'locate 14,5:print using "#,###,###";c20
         locate 14,5:print using "##.######";(c20/COUNTER)*100
         'locate 14,15:print using "#";fnkatabatak(counter)
        case = 22
         incr c22
         'locate 15,5:print using "#,###,###";c22
         locate 15,5:print using "##.######";(c22/COUNTER)*100
         'locate 15,15:print using "#";fnkatabatak(counter)
        case = 24
         incr c24
         'locate 16,5:print using "#,###,###";c24
         locate 16,5:print using "##.######";(c24/COUNTER)*100
         'locate 16,15:print using "#";fnkatabatak(counter)
        case = 26
         incr c26
         'locate 17,5:print using "#,###,###";c26
         locate 17,5:print using "##.######";(c26/COUNTER)*100
         'locate 17,15:print using "#";fnkatabatak(counter)
        case = 28
         incr c28
         'locate 18,5:print using "#,###,###";c28
         locate 18,5:print using "##.######";(c28/COUNTER)*100
         'locate 18,15:print using "#";fnkatabatak(counter)
        case = 30
         incr c30
         'locate 19,5:print using "#,###,###";c30
         locate 19,5:print using "##.######";(c30/COUNTER)*100
         'locate 19,15:print using "#";fnkatabatak(counter)
        case = 32
         incr c32
         'locate 20,5:print using "#,###,###";c32
         locate 20,5:print using "##.######";(c32/COUNTER)*100
         'locate 20,15:print using "#";fnkatabatak(counter)
        case = 34
         incr c34
         'locate 21,5:print using "#,###,###";c34
         locate 21,5:print using "##.######";(c34/COUNTER)*100
         'locate 21,15:print using "#";fnkatabatak(counter)
        case = 36
         incr c36
         'locate 22,5:print using "#,###,###";c36
         locate 22,5:print using "##.######";(c36/COUNTER)*100
         'locate 22,15:print using "#";fnkatabatak(counter)
        case = 38
         incr c38
         'locate 23,5:print using "#,###,###";c38
         locate 23,5:print using "##.######";(c38/COUNTER)*100
         'locate 23,15:print using "#";fnkatabatak(counter)
        case = 40
         incr c40
         'locate 5,21:print using "#,###,###";c40
         locate 5,21:print using "##.######";(c40/COUNTER)*100
         'locate 5,31:print using "#";fnkatabatak(counter)
        case = 42
         incr c42
         'locate 6,21:print using "#,###,###";c42
         locate 6,21:print using "##.######";(c42/COUNTER)*100
         'locate 6,31:print using "#";fnkatabatak(counter)
        case = 44
         incr c44
         'locate 7,21:print using "#,###,###";c44
         locate 7,21:print using "##.######";(c44/COUNTER)*100
         'locate 7,31:print using "#";fnkatabatak(counter)
        case = 46
         incr c46
         'locate 8,21:print using "#,###,###";c46
         locate 8,21:print using "##.######";(c46/COUNTER)*100
         'locate 8,31:print using "#";fnkatabatak(counter)
        case = 48
         incr c48
         'locate 9,21:print using "#,###,###";c48
         locate 9,21:print using "##.######";(c48/COUNTER)*100
         'locate 9,31:print using "#";fnkatabatak(counter)
        case = 50
         incr c50
         'locate 10,21:print using "#,###,###";c50
         locate 10,21:print using "##.######";(c50/COUNTER)*100
         'locate 10,31:print using "#";fnkatabatak(counter)
        case = 52
         incr c52
         'locate 11,21:print using "#,###,###";c52
         locate 11,21:print using "##.######";(c52/COUNTER)*100
         'locate 11,31:print using "#";fnkatabatak(counter)
        case = 54
         incr c54
         'locate 12,21:print using "#,###,###";c54
         locate 12,21:print using "##.######";(c54/COUNTER)*100
         'locate 12,31:print using "#";fnkatabatak(counter)
        case = 56
         incr c56
         'locate 13,21:print using "#,###,###";c56
         locate 13,21:print using "##.######";(c56/COUNTER)*100
         'locate 13,31:print using "#";fnkatabatak(counter)
        case = 58
         incr c58
         'locate 14,21:print using "#,###,###";c58
         locate 14,21:print using "##.######";(c58/COUNTER)*100
         'locate 14,31:print using "#";fnkatabatak(counter)
        case = 60
         incr c60
         'locate 15,21:print using "#,###,###";c60
         locate 15,21:print using "##.######";(c60/COUNTER)*100
         'locate 15,31:print using "#";fnkatabatak(counter)
        case = 62
         incr c62
         'locate 16,21:print using "#,###,###";c62
         locate 16,21:print using "##.######";(c62/COUNTER)*100
         'locate 16,31:print using "#";fnkatabatak(counter)
        case = 64
         incr c64
         'locate 17,21:print using "#,###,###";c64
         locate 17,21:print using "##.######";(c64/COUNTER)*100
         'locate 17,31:print using "#";fnkatabatak(counter)
        case = 66
         incr c66
         'locate 18,21:print using "#,###,###";c66
         locate 18,21:print using "##.######";(c66/COUNTER)*100
         'locate 18,31:print using "#";fnkatabatak(counter)
        case = 68
         incr c68
         'locate 19,21:print using "#,###,###";c68
         locate 19,21:print using "##.######";(c68/COUNTER)*100
         'locate 19,31:print using "#";fnkatabatak(counter)
        case = 70
         incr c70
         'locate 20,21:print using "#,###,###";c70
         locate 20,21:print using "##.######";(c70/COUNTER)*100
         'locate 20,31:print using "#";fnkatabatak(counter)
        case = 72
         incr c72
         'locate 21,21:print using "#,###,###";c72
         locate 21,21:print using "##.######";(c72/COUNTER)*100
         'locate 21,31:print using "#";fnkatabatak(counter)
        case = 74
         incr c74
         'locate 22,21:print using "#,###,###";c74
         locate 22,21:print using "##.######";(c74/COUNTER)*100
         'locate 22,31:print using "#";fnkatabatak(counter)
        case = 76
         incr c76
         'locate 23,21:print using "#,###,###";c76
         locate 23,21:print using "##.######";(c76/COUNTER)*100
         'locate 23,31:print using "#";fnkatabatak(counter)
        case = 78
         incr c78
         'locate 5,37:print using "#,###,###";c78
         locate 5,37:print using "##.######";(c78/COUNTER)*100
         'locate 5,47:print using "#";fnkatabatak(counter)
        case = 80
         incr c80
         'locate 6,37:print using "#,###,###";c80
         locate 6,37:print using "##.######";(c80/COUNTER)*100
         'locate 6,47:print using "#";fnkatabatak(counter)
        case = 82
         incr c82
         'locate 7,37:print using "#,###,###";c82
         locate 7,37:print using "##.######";(c82/COUNTER)*100
         'locate 7,47:print using "#";fnkatabatak(counter)
        case = 84
         incr c84
         'locate 8,37:print using "#,###,###";c84
         locate 8,37:print using "##.######";(c84/COUNTER)*100
         'locate 8,47:print using "#";fnkatabatak(counter)
        case = 86
         incr c86
         'locate 9,37:print using "#,###,###";c86
         locate 9,37:print using "##.######";(c86/COUNTER)*100
         'locate 9,47:print using "#";fnkatabatak(counter)
        case = 88
         incr c88
         'locate 10,37:print using "#,###,###";c88
         locate 10,37:print using "##.######";(c88/COUNTER)*100
         'locate 10,47:print using "#";fnkatabatak(counter)
        case = 90
         incr c90
         'locate 11,37:print using "#,###,###";c90
         locate 11,37:print using "##.######";(c90/COUNTER)*100
         'locate 11,47:print using "#";fnkatabatak(counter)
        case = 92
         incr c92
         'locate 12,37:print using "#,###,###";c92
         locate 12,37:print using "##.######";(c92/COUNTER)*100
         'locate 12,47:print using "#";fnkatabatak(counter)
        case = 94
         incr c94
         'locate 13,37:print using "#,###,###";c94
         locate 13,37:print using "##.######";(c94/COUNTER)*100
         'locate 13,47:print using "#";fnkatabatak(counter)
        case = 96
         incr c96
         'locate 14,37:print using "#,###,###";c96
         locate 14,37:print using "##.######";(c96/COUNTER)*100
         'locate 14,47:print using "#";fnkatabatak(counter)
        case = 98
         incr c98
         'locate 15,37:print using "#,###,###";c98
         locate 15,37:print using "##.######";(c98/COUNTER)*100
         'locate 15,47:print using "#";fnkatabatak(counter)
        case = 100
         incr c100
         'locate 16,37:print using "#,###,###";c100
         locate 16,37:print using "##.######";(c100/COUNTER)*100
         'locate 16,47:print using "#";fnkatabatak(counter)
        case = 102
         incr c102
         'locate 17,37:print using "#,###,###";c102
         locate 17,37:print using "##.######";(c102/COUNTER)*100
         'locate 17,47:print using "#";fnkatabatak(counter)
        case = 104
         incr c104
         'locate 18,37:print using "#,###,###";c104
         locate 18,37:print using "##.######";(c104/COUNTER)*100
         'locate 18,47:print using "#";fnkatabatak(counter)
        case = 106
         incr c106
         'locate 19,37:print using "#,###,###";c106
         locate 19,37:print using "##.######";(c106/COUNTER)*100
         'locate 19,47:print using "#";fnkatabatak(counter)
        case = 108
         incr c108
         'locate 20,37:print using "#,###,###";c108
         locate 20,37:print using "##.######";(c108/COUNTER)*100
         'locate 20,47:print using "#";fnkatabatak(counter)
        case = 110
         incr c110
         'locate 21,37:print using "#,###,###";c110
         locate 21,37:print using "##.######";(c110/COUNTER)*100
         'locate 21,47:print using "#";fnkatabatak(counter)
        case = 112
         incr c112
         'locate 22,37:print using "#,###,###";c112
         locate 22,37:print using "##.######";(c112/COUNTER)*100
         'locate 22,47:print using "#";fnkatabatak(counter)
        case = 114
         incr c114
         'locate 23,37:print using "#,###,###";c114
         locate 23,37:print using "##.######";(c114/COUNTER)*100
         'locate 23,47:print using "#";fnkatabatak(counter)
        case = 116
         incr c116
         'locate 9,53:print using "#,###,###";c116
         locate 9,53:print using "##.######";(c116/COUNTER)*100
         'locate 9,63:print using "#";fnkatabatak(counter)
        case = 118
         incr c118
         'locate 10,53:print using "#,###,###";c118
         locate 10,53:print using "##.######";(c118/COUNTER)*100
         'locate 10,63:print using "#";fnkatabatak(counter)
        case = 120
         incr c120
         'locate 11,53:print using "#,###,###";c120
         locate 11,53:print using "##.######";(c120/COUNTER)*100
         'locate 11,63:print using "#";fnkatabatak(counter)
        case = 122
         incr c122
         'locate 12,53:print using "#,###,###";c122
         locate 12,53:print using "##.######";(c122/COUNTER)*100
         'locate 12,63:print using "#";fnkatabatak(counter)
        case = 124
         incr c124
         'locate 13,53:print using "#,###,###";c124
         locate 13,53:print using "##.######";(c124/COUNTER)*100
         'locate 13,63:print using "#";fnkatabatak(counter)
        case = 126
         incr c126
         'locate 14,53:print using "#,###,###";c126
         locate 14,53:print using "##.######";(c126/COUNTER)*100
         'locate 14,63:print using "#";fnkatabatak(counter)
        case = 128
         incr c128
         'locate 15,53:print using "#,###,###";c128
         locate 15,53:print using "##.######";(c128/COUNTER)*100
         'locate 15,63:print using "#";fnkatabatak(counter)
        case = 130
         incr c130
         'locate 16,53:print using "#,###,###";c130
         locate 16,53:print using "##.######";(c130/COUNTER)*100
         'locate 16,63:print using "#";fnkatabatak(counter)
        case = 132
         incr c132
         'locate 17,53:print using "#,###,###";c132
         locate 17,53:print using "##.######";(c132/COUNTER)*100
         'locate 17,63:print using "#";fnkatabatak(counter)
        case = 134
         incr c134
         'locate 18,53:print using "#,###,###";c134
         locate 18,53:print using "##.######";(c134/COUNTER)*100
         'locate 18,63:print using "#";fnkatabatak(counter)
        case = 136
         incr c136
         'locate 19,53:print using "#,###,###";c136
         locate 19,53:print using "##.######";(c136/COUNTER)*100
         'locate 19,63:print using "#";fnkatabatak(counter)
        case = 138
         incr c138
         'locate 20,53:print using "#,###,###";c138
         locate 20,53:print using "##.######";(c138/COUNTER)*100
         'locate 20,63:print using "#";fnkatabatak(counter)
        case = 140
         incr c140
         'locate 21,53:print using "#,###,###";c140
         locate 21,53:print using "##.######";(c140/COUNTER)*100
         'locate 21,63:print using "#";fnkatabatak(counter)
        case = 142
         incr c142
         'locate 22,53:print using "#,###,###";c142
         locate 22,53:print using "##.######";(c142/COUNTER)*100
         'locate 22,63:print using "#";fnkatabatak(counter)
        case >= 144
         incr c144
         'locate 23,53:print using "#,###,###";c144
         locate 23,53:print using "##.######";(c144/COUNTER)*100

       end select

'*****************  calculates difference between sum and source integer ****
   'DIFF = SUM - COUNTER
   'color 14,0:locate 3,1:print using "#,###,###,###";DIFF
   'locate 3,21:print using "#";fnkatabatak(DIFF)
     'if DIFF<7000 and DIFF>-7000 and DIFF<>12 and DIFF<>56 and DIFF<>992 then
     'if ELEMENTS = 71 then
      'sound 80,1
      'color 4,0:locate 11,67:print using "#,###,###,###";counter
      'color 10,0:locate 10,67:print using "#,###,###,###";SUM
      'color 14,0:locate 12,67:print using "#,###,###,###";DIFF
      'color 2,0:locate 9,67:print using "#,###";ELEMENTS
      'color 6,0:locate 12,67:print using "#.#####";(SUM/COUNTER)
      'x=380+g
      'h#=fix(100000000*(c71/COUNTER))
      'Y$=str$(h#)
      'Y2$=right$(Y$,3)
      'z=val(Y2$)
      'locate 4,44:print z
      'y=(z/3)-310     'reduce to raise graph;enlarge to lower graph
      ' locate 8,60:print y
      'pset (x,-y),12
      'line (x,-y)-(x,110),12
      'incr g
      'if g=250 then g=1
      'end if

'********* analysis of even multiples of sum with source integer *******
       'if (SUM*2)=COUNTER then
       ' sound 50,3
       ' locate 13,1:print using "#,###,###,###";COUNTER
       ' locate 13,21:print using "#";fnkatabatak(COUNTER)
       ' locate 13,23:print using "#,###";ELEMENTS
       'end if

       'if (SUM*3)=COUNTER then
        'sound 50,3
       ' locate 14,1:print using "#,###,###,###";COUNTER
       ' locate 14,21:print using "#";fnkatabatak(COUNTER)
       ' locate 14,23:print using "#,###";ELEMENTS
       'end if

         'TEST=2*COUNTER
         'TEST2=3*COUNTER
         STRANGE= (2*COUNTER)+12
         BIZARRE = (2*COUNTER)+56
         PECULIAR = (2*COUNTER)+992

        select case SUM
        ' case=COUNTER
         ' locate 12,1:print using "#,###,###,###";COUNTER
         ' locate 12,21:print using "#";fnkatabatak(COUNTER)
         ' locate 12,23:print using "#,###";ELEMENTS
          'sound 2000,4
         'case=TEST2
         ' sound 100,3
         ' color 11,0:locate 18,67:print "dbl"
         ' color 4,0:locate 19,67:PRINT USING "#,###,###,###";COUNTER
         ' locate 6,80:print using "#";fnkatabatak(COUNTER)
          'locate 8,23:print using "#,###";ELEMENTS
          case=STRANGE
          'sound 100,1
          S(2)=COUNTER
          SEPERATION=S(2)-S(1)
          color 13,0:locate 1,40:print using "###,###,###";SEPERATION
          color 4,0:locate 1,62:print using "#,###,###,###";COUNTER
          color 1,0:locate 1,60:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 1,75:print using "#,###";ELEMENTS
          S(1)=S(2)
          'if ELEMENTS <> 7 then sound 400,3
          'lprint using "#,###,###,###";COUNTER;SUM
         case=BIZARRE
          'sound 300,3
          B(2)=COUNTER
          SEPERATION2=B(2)-B(1)
          color 13,0:locate 2,40:print using "###,###,###";SEPERATION2
          color 4,0:locate 2,62:print using "#,###,###,###";COUNTER
          color 1,0:locate 2,60:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 2,75:print using "#,###";ELEMENTS
          B(1)=B(2)
          'lprint using "#,###,###,###";COUNTER;SUM
         case=peculiar
          'sound 500,3
          P(2)=COUNTER
          SEPERATION3=P(2)-P(1)
          color 13,0:locate 3,40:print using "###,###,###";SEPERATION3
          color 4,0:locate 3,62:print using "#,###,###,###";COUNTER
          color 1,0:locate 3,60:print using "#";fnkatabatak(COUNTER)
          color 2,0:locate 3,75:print using "#,###";ELEMENTS
          P(1)=P(2)
          'lprint using "#,###,###,###;COUNTER;SUM
         end select

      erase A
    incr COUNTER
    $event on
      on key(10) gosub QUIT
      key(10) on
    $event off

   loop
  gosub quit
 end

  QUIT:
   key(10) off

open "r",#2,"keep1.dat",292
 field #2,4 as hold$,4 as D1$,4 as D2$,4 as D3$,4 as D4$,4 as D5$,4 as D6$,_
 4 as D7$,4 as D8$,4 as D9$,4 as D10$,4 as D11$,4 as D12$,4 as D13$,_
 4 as D14$,4 as D15$,4 as D16$,4 as D17$,4 as D18$,4 as D19$,4 as D20$,_
 4 as D21$,4 as D22$,4 as D23$,4 as D24$,4 as D25$,4 as D26$,4 as D27$,_
 4 as D28$,4 as D29$,4 as D30$,4 as D31$,4 as D32$,4 as D33$,4 as D34$,_
 4 as D35$,4 as D36$,4 as D37$,4 as D38$,4 as D39$,4 as D40$,4 as D41$,_
 4 as D42$,4 as D43$,4 as D44$,4 as D45$,4 as D46$,4 as D47$,4 as D48$,_
 4 as D49$,4 as D50$,4 as D51$,4 as D52$,4 as D53$,4 as D54$,4 as D55$,_
 4 as D56$,4 as D57$,4 as D58$,4 as D59$,4 as D60$,4 as D61$,4 as D62$,_
 4 as D63$,4 as D64$,4 as D65$,4 as D66$,4 as D67$,4 as D68$,4 as D69$,_
 4 as D70$,4 as D71$,4 as D72$
   rset hold$=mkl$(counter)
   rset D1$=mkl$(C2):rset D2$=mkl$(C4):rset D3$=mkl$(C6):rset D4$=mkl$(C8)
   rset D5$=mkl$(C10):rset D6$=mkl$(C12):rset D7$=mkl$(C14):rset D8$=mkl$(C16)
   rset D9$=mkl$(C18):rset D10$=mkl$(C20):rset D11$=mkl$(C22):rset D12$=mkl$(C24)
   rset D13$=mkl$(C26):rset D14$=mkl$(C28):rset D15$=mkl$(C30):rset D16$=mkl$(C32)
   rset D17$=mkl$(C34):rset D18$=mkl$(C36):rset D19$=mkl$(C38):rset D20$=mkl$(C40)
   rset D21$=mkl$(C42):rset D22$=mkl$(C44):rset D23$=mkl$(C46):rset D24$=mkl$(C48)
   rset D25$=mkl$(C50):rset D26$=mkl$(C52):rset D27$=mkl$(C54):rset D28$=mkl$(C56)
   rset D29$=mkl$(C58):rset D30$=mkl$(C60):rset D31$=mkl$(C62):rset D32$=mkl$(C64)
   rset D33$=mkl$(C66):rset D34$=mkl$(C68):rset D35$=mkl$(C70):rset D36$=mkl$(C72)
   rset D37$=mkl$(C74):rset D38$=mkl$(C76):rset D39$=mkl$(C78):rset D40$=mkl$(C80)
   rset D41$=mkl$(C82):rset D42$=mkl$(C84):rset D43$=mkl$(C86):rset D44$=mkl$(C88)
   rset D45$=mkl$(C90):rset D46$=mkl$(C92):rset D47$=mkl$(C94):rset D48$=mkl$(C96)
   rset D49$=mkl$(C98):rset D50$=mkl$(C100):rset D51$=mkl$(C102):rset D52$=mkl$(C104)
   rset D53$=mkl$(C106):rset D54$=mkl$(C108):rset D55$=mkl$(C110):rset D56$=mkl$(C112)
   rset D57$=mkl$(C114):rset D58$=mkl$(C116):rset D59$=mkl$(C118):rset D60$=mkl$(C120)
   rset D61$=mkl$(C122):rset D62$=mkl$(C124):rset D63$=mkl$(C126):rset D64$=mkl$(C128)
   rset D65$=mkl$(C130):rset D66$=mkl$(C132):rset D67$=mkl$(C134):rset D68$=mkl$(C136)
   rset D69$=mkl$(C138):rset D70$=mkl$(C140):rset D71$=mkl$(C142):rset D72$=mkl$(C144)
  put #2,filenumber
 close #2

'open "r",#3,"keep2.dat",292
' field #3,4 as hold$,4 as D1$,4 as D2$,4 as D3$,4 as D4$,4 as D5$,4 as D6$,_
' 4 as D7$,4 as D8$,4 as D9$,4 as D10$,4 as D11$,4 as D12$,4 as D13$,_
' 4 as D14$,4 as D15$,4 as D16$,4 as D17$,4 as D18$,4 as D19$,4 as D20$,_
' 4 as D21$,4 as D22$,4 as D23$,4 as D24$,4 as D25$,4 as D26$,4 as D27$,_
' 4 as D28$,4 as D29$,4 as D30$,4 as D31$,4 as D32$,4 as D33$,4 as D34$,_
' 4 as D35$,4 as D36$,4 as D37$,4 as D38$,4 as D39$,4 as D40$,4 as D41$,_
' 4 as D42$,4 as D43$,4 as D44$,4 as D45$,4 as D46$,4 as D47$,4 as D48$,_
' 4 as D49$,4 as D50$,4 as D51$,4 as D52$,4 as D53$,4 as D54$,4 as D55$,_
' 4 as D56$,4 as D57$,4 as D58$,4 as D59$,4 as D60$,4 as D61$,4 as D62$,_
' 4 as D63$,4 as D64$,4 as D65$,4 as D66$,4 as D67$,4 as D68$,4 as D69$,_
' 4 as D70$,4 as D71$,4 as D72$
'   rset hold$=mkl$(counter)
'   rset D1$=mkl$(C1):rset D2$=mkl$(C2):rset D3$=mkl$(C3):rset D4$=mkl$(C4)
'   rset D5$=mkl$(C5):rset D6$=mkl$(C6):rset D7$=mkl$(C7):rset D8$=mkl$(C8)
'   rset D9$=mkl$(C9):rset D10$=mkl$(C10):rset D11$=mkl$(C11):rset D12$=mkl$(C12)
'   rset D13$=mkl$(C13):rset D14$=mkl$(C14):rset D15$=mkl$(C15):rset D16$=mkl$(C16)
'   rset D17$=mkl$(C17):rset D18$=mkl$(C18):rset D19$=mkl$(C19):rset D20$=mkl$(C20)
'   rset D21$=mkl$(C21):rset D22$=mkl$(C22):rset D23$=mkl$(C23):rset D24$=mkl$(C24)
'   rset D25$=mkl$(C25):rset D26$=mkl$(C26):rset D27$=mkl$(C27):rset D28$=mkl$(C28)
'   rset D29$=mkl$(C29):rset D30$=mkl$(C30):rset D31$=mkl$(C31):rset D32$=mkl$(C32)
'   rset D33$=mkl$(C33):rset D34$=mkl$(C34):rset D35$=mkl$(C35):rset D36$=mkl$(C36)
'   rset D37$=mkl$(C37):rset D38$=mkl$(C38):rset D39$=mkl$(C39):rset D40$=mkl$(C40)
'   rset D41$=mkl$(C41):rset D42$=mkl$(C42):rset D43$=mkl$(C43):rset D44$=mkl$(C44)
'   rset D45$=mkl$(C45):rset D46$=mkl$(C46):rset D47$=mkl$(C47):rset D48$=mkl$(C48)
'   rset D49$=mkl$(C49):rset D50$=mkl$(C50):rset D51$=mkl$(C51):rset D52$=mkl$(C52)
'   rset D53$=mkl$(C53):rset D54$=mkl$(C54):rset D55$=mkl$(C55):rset D56$=mkl$(C56)
'   rset D57$=mkl$(C57):rset D58$=mkl$(C58):rset D59$=mkl$(C59):rset D60$=mkl$(C60)
'   rset D61$=mkl$(C61):rset D62$=mkl$(C62):rset D63$=mkl$(C63):rset D64$=mkl$(C64)
'   rset D65$=mkl$(C65):rset D66$=mkl$(C66):rset D67$=mkl$(C67):rset D68$=mkl$(C68)
'   rset D69$=mkl$(C69):rset D70$=mkl$(C70):rset D71$=mkl$(C71):rset D72$=mkl$(C72)
'  put #3,1          'filenumber
' close #3


   end
  return

end

        ' Function returning main file length
def fnfilelength
 TempSize=0
  open "r",#2,"DIVISOR.DAT",292
   field #2,4 as hold$,4 as D1$,4 as D2$,4 as D3$,4 as D4$,4 as D5$,4 as D6$,_
     4 as D7$,4 as D8$,4 as D9$,4 as D10$,4 as D11$,4 as D12$,4 as D13$,_
            4 as D14$,4 as D15$,4 as D16$,4 as D17$,4 as D18$,4 as D19$,_
            4 as D20$,4 as D21$,4 as D22$,4 as D23$,4 as D24$,4 as D25$,_
            4 as D26$,4 as D27$,4 as D28$,4 as D29$,4 as D30$,4 as D31$,_
            4 as D32$,4 as D33$,4 as D34$,4 as D35$,4 as D36$,4 as D37$,_
            4 as D38$,4 as D39$,4 as D40$,4 as D41$,4 as D42$,4 as D43$,_
            4 as D44$,4 as D45$,4 as D46$,4 as D47$,4 as D48$,4 as D49$,_
            4 as D50$,4 as D51$,4 as D52$,4 as D53$,4 as D54$,4 as D55$,_
            4 as D56$,4 as D57$,4 as D58$,4 as D59$,4 as D60$,4 as D61$,_
            4 as D62$,4 as D63$,4 as D64$,4 as D65$,4 as D66$,4 as D67$,_
            4 as D68$,4 as D69$,4 as D70$,4 as D71$,4 as D72$
   TempSize=LOF(2)
  close #2
 fnfilelength=TempSize
 end def

  def fnkatabatak(NUMBER)
   local TEMP%,TEMP2%,K$,SHORTK$,I%,J%,SUM
    option base 1:dim TEMP%(11)
    option base 1:dim TEMP2%(11)
    K$ = str$(NUMBER)
    SUM = 0
      for I% = 2 to 11
       TEMP%(I%) = val(mid$(K$,I%,1))
        SUM = SUM + TEMP%(i%)
      next I%
     erase TEMP%
    do while SUM > 9
     SHORTK$ = str$(SUM)
      SUM = 0
        for J% = 2 to 11
         TEMP2%(J%) = val(mid$(SHORTK$,J%,1))
         SUM = SUM + TEMP2%(J%)
        next J%
       erase TEMP2%
     loop
    fnkatabatak = SUM
   end def

end

TheBigDog · 03-17-2006

I have been consumed by the Fraculator. I have been working on version 2 which includes many new functions. It is letting me brush up on my programming which had been sitting idle for about 12 months. Strange numbers is next on the list. I am going to take the code from you and try and build some interactive analytical tools around it. I will get the working tool to you in some fashion or another.

Now go spot Sasquatch!

Bill