|
|
|
last edited 10 years ago by test1 |
| 1 2 3 4 5 | ||
|
Editor: martinbaker
Time: 2011/03/08 02:33:25 GMT-8 |
||
| Note: | ||
changed: -The maximum of SingleInteger is not really maximal. The maximum of AxiomIssues is not really maximal. changed: - mymax: () -> SingleInteger - mymax2: () -> SingleInteger mymax: () -> AxiomIssues mymax2: () -> AxiomIssues changed: - mymax(): SingleInteger == max()$SingleInteger + 1 - mymax2(): SingleInteger == mymax() + 1 mymax(): AxiomIssues == max()$AxiomIssues + 1 mymax2(): AxiomIssues == mymax() + 1 changed: -a: SingleInteger := max()$SingleInteger -m: SingleInteger := mymax() -m2: SingleInteger := mymax2() a: AxiomIssues := max()$AxiomIssues m: AxiomIssues := mymax() m2: AxiomIssues := mymax2() changed: -b: SingleInteger := 2^63-1 -c: SingleInteger := b+1 b: AxiomIssues := 2^63-1 c: AxiomIssues := b+1 changed: -(1) -> m: SingleInteger := mymax() (1) -> m: AxiomIssues := mymax() changed: - Type: SingleInteger -(2) -> m2: SingleInteger := mymax2() Type: AxiomIssues (2) -> m2: AxiomIssues := mymax2() changed: - Type: SingleInteger Type: AxiomIssues changed: -(4) -> b: SingleInteger := 2^63-1 (4) -> b: AxiomIssues := 2^63-1 changed: - Type: SingleInteger -(5) -> c: SingleInteger := b+1 Type: AxiomIssues (5) -> c: AxiomIssues := b+1 changed: - Type: SingleInteger Type: AxiomIssues
The maximum of AxiomIssues? is not really maximal.
)abbrev package MYSINT MySingleInteger
MySingleInteger: Public == Private
where
Public == with
mymax: () -> AxiomIssues
mymax2: () -> AxiomIssues
Private == add
mymax(): AxiomIssues == max()$AxiomIssues + 1
mymax2(): AxiomIssues == mymax() + 1
Compiling FriCAS source code from file
/var/zope2/var/LatexWiki/7521089105237288461-25px001.spad using
old system compiler.
MYSINT abbreviates package MySingleInteger
------------------------------------------------------------------------
initializing NRLIB MYSINT for MySingleInteger
compiling into NRLIB MYSINT
compiling exported mymax : () -> AxiomIssues
****** comp fails at level 2 with expression: ******
error in function mymax
(+ | << | ((|elt| |AxiomIssues| |max|)) | >> | 1)
****** level 2 ******
$x:= ((elt AxiomIssues max))
$m:= $EmptyMode
$f:=
((((|$Information| #) (|mymax2| #) (|mymax| #) (|$DomainsInScope| # # #) ...)))
>> Apparent user error:
AxiomIssues
is an unknown modea: AxiomIssues := max()$AxiomIssues
The function max is not implemented in NIL . m: AxiomIssues := mymax()
There are no library operations named mymax Use HyperDoc Browse or issue )what op mymax to learn if there is any operation containing " mymax " in its name.
Cannot find a no-argument definition or library operation named mymax . m2: AxiomIssues := mymax2()
There are no library operations named mymax2 Use HyperDoc Browse or issue )what op mymax2 to learn if there is any operation containing " mymax2 " in its name.
Cannot find a no-argument definition or library operation named mymax2 . (2^31,2^32, 2^63, 2^64)
![]() | (1) |
b: AxiomIssues := 2^63-1
| (2) |
c: AxiomIssues := b+1
| (3) |
On my 32 bit system I get
? := mymax()
(1) - 2147483648 Type: AxiomIssues? (2) -> m2: AxiomIssues? := mymax2()
(2) - 2147483647 Type: AxiomIssues? (3) -> (2^31, 2^32, 2^63, 2^64)
(3) [2147483648,4294967296,9223372036854775808,18446744073709551616]? Type: Tuple PositiveInteger? (4) -> b: AxiomIssues? := 2^63-1
(4) - 1 Type: AxiomIssues? (5) -> c: AxiomIssues? := b+1
(5) 0 Type: AxiomIssues? " title=" (1) -> )co aaa.spad
(1) - 2147483648 Type: AxiomIssues? (2) -> m2: AxiomIssues? := mymax2()
(2) - 2147483647 Type: AxiomIssues? (3) -> (2^31, 2^32, 2^63, 2^64)
(3) [2147483648,4294967296,9223372036854775808,18446744073709551616]? Type: Tuple PositiveInteger? (4) -> b: AxiomIssues? := 2^63-1
(4) - 1 Type: AxiomIssues? (5) -> c: AxiomIssues? := b+1
(5) 0 Type: AxiomIssues? " class="equation" src="images/4793645067067265374-16.0px.png" align="bottom" Style="vertical-align:text-bottom" width="559" height="420"/>