### 1. New numbering system

- Posted by duke potgieter <dukelp at ILINK.NIS.ZA> Nov 24, 1996
- 1366 views
- Last edited Nov 25, 1996

------------------------------------------------------------------------- I greet all euphorians, David, thank you for helping me with my first program. This is the program I am now working on. It is a new numbering system that regards the symbol 0, as being false, and instead adds " X "(ten) as the tenth digit of the decimal system. In the system there is only one whole number; "1", the whole number contains as many rational numbers as a person requires for what needs to be done, it is an abstraction, "ONE" is complete and indivisible. It seems that the best way to go would be to write an e-file that establishes a new numbering system that excludes 0 as a 'number'. The ten digits of the numbering system will then be: 1,2,3,4,5,6,7,8,9,X. The 'number' 100 will then be: 9X, and 305 will be: 2X5 ect. The program below is crude, it is my second program, and has not yet eliminated 0, and the rational numbers print as decimal numbers. Any suggestions how to go about it ? Regards, Duke --------------------------------------------------------------------------- --------------------------------------------------------------------------- -- The present numbering system is irrational and has many inconsistencies, -- ex. a person can multiply by zero, however you cannot divide by zero. -- This program demonstrates that zero is not required as a numerical -- digit (symbol) and that an alternative numbering system is possible. -- It shows that there is only one whole number, and that all other numbers -- are rational numbers which form part of "ONE", the whole number. -- This means that there cannot be more, or less, than one, only part of one. -- The system is referred to as a Rational Numeric System (RNS) -- and there are no inconsistencies in the system. Later on I hope to show -- that irrational numbers are indeed irrational, they are the result of -- accepting zero as a valid digit(symbol). ---------------------------------------------------------------------------- -- The program will ask you into how many parts you wish to make -- ONE (the whole number), a maximum of 144 parts is allowed. -- The program will then display the rational numbers incorporated -- in ONE, in sequence. The symbol for ten is " X ". --------------------------------------------------------------------------- with trace --trace(2) include get.e constant KEYBOARD = 0 , SCREEN = 1 type user_input(object x) return x[2] >=2 and x[2] <=144 end type function get_denominator() user_input denominator position(10,5) puts(SCREEN,"\tHow many parts do you request for the whole?\n\n") puts(SCREEN,"\t( The maximum for this demo is 144.) \n") position(10,60) denominator = get(KEYBOARD) return denominator end function function create_numerators()--change an atom to a sequence sequence numerators, x x = {} for i = 1 to 144 do -- how can I limit this to the input atom x = append(x, i) -- which is already limited by type(user_input)? end for numerators = x return numerators end function function create_rational_numbers() sequence rational_numbers, numerators, denominator denominator = get_denominator() numerators = create_numerators() denominator = repeat(denominator[2],144) rational_numbers = {} for i = 1 to length (numerators) do rational_numbers = numerators / denominator[i] end for return rational_numbers --these are now decimals instead end function -- of rational numbers function purge_rational_numbers()-- to prevent the part from becoming -- more than the whole sequence valid_numbers, rational_numbers rational_numbers = create_rational_numbers() valid_numbers = rational_numbers for i = 1 to length (valid_numbers) do if valid_numbers[i] >1 then valid_numbers[i] = 1 end if end for return valid_numbers end function procedure display_rational_numbers() -- main procedure sequence valid_numbers valid_numbers = purge_rational_numbers() position(20,20) print(1,valid_numbers) end procedure display_rational_numbers() -- displaying decimal numbers