#] loaddefs link  d_Qndfs  'code development/strings - unicode usage.txt'  
www.BillHowell.ca  09May2018 initial 





#
# 18Apr2018 YIKES!  non-standard ASCII codes for QNial?
>> Something is wrong with QNial charrep operator!! - small letters give wrong answer! but char <small letter> seems correct
qnial> EACH charrep 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'  
65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
>> OK
qnial> shape EACH charrep 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'  
26
qnial> shape 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'  
26
qnial> EACH charrep 'abcdefghijklmnopqrstuvwxyz'  
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
>> WRONG!!
qnial> shape  'abcdefghijklmnopqrstuvwxyz'  
26
qnial> shape EACH charrep 'abcdefghijklmnopqrstuvwxyz'  
26
qnial> EACH charrep 'αβγδεζηθικλμνξοπρςστυφχψω'
-50 -79 -50 -78 -50 -77 -50 -76 -50 -75 -50 -74 -50 -73 -50 -72 -50 -71 -50 -70 -50 -69 -50 -68 -50 -67 -50 -66 -50 -65 -49 -128 -49 -127 -49 -126 -49 -125 -49 -124 -49 -123 -49 -122 -49 -121 -49 -120 -49 -119
qnial> shape 'αβγδεζηθικλμνξοπρςστυφχψω'
50
qnial> shape EACH charrep 'αβγδεζηθικλμνξοπρςστυφχψω'
50
qnial> EACH charrep 'ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ'
-50 -111 -50 -110 -50 -109 -50 -108 -50 -107 -50 -106 -50 -105 -50 -104 -50 -103 -50 -102 -50 -101 -50 -100 -50 -99 -50 -98 -50 -97 -50 -96 -50 -95 -50 -93 -50 -92 -50 -91 -50 -90 -50 -89 -50 -88 -50 -87
qnial> EACH char (tell 256) 
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
>> extra [low,high] chars eliminated due to loaddefs problems 
>> Greek letters - double code from charrep, but in in_symExtract_chrs works, as does :
qnial> in   `δ  'αβγδεζηθικλμνξοπρςστυφχψω'
l
>> For now, fudge it.
>> see "/media/bill/PROJECTS/Qnial/MY_NDFS/symbols extract & sort.ndf" : 
in_symExtract_chrs  IS OP  chr  
{	
	chr_code :=  charrep chr  ;  
	IF			(AND  							  (  64 < 		  chr_code) (		  chr_code <   91)) THEN	1  
	ELSEIF	(AND  							  (  97 <		  chr_code) (		  chr_code <  122)) THEN	1  
	ELSEIF	(AND  (-50 = first chr_code) ( -80 < second chr_code) (second chr_code <  -64)) THEN	1  
	ELSEIF	(AND  (-49 = first chr_code) (-129 < second chr_code) (second chr_code < -118)) THEN	1  
	ELSE		0
	ENDIF
}  
>> for small Greek letters 
	ELSEIF	(AND  (-50 = first chr_code) ( -80 < second chr_code) (second chr_code <  -64)) THEN	1  
	ELSEIF	(AND  (-49 = first chr_code) (-129 < second chr_code) (second chr_code < -118)) THEN	1  
#

# 18Apr2018  need to fix so numerics must not be first character of a symbol
chrs_alphabet			:=  link  chrs_alpha_caps  chrs_alpha_small  ; 		% chr_codes [65-90,97-122]  ;  
chrs_numbers			:=  '0123456789'  ;  										% chr_codes  48-57  ;  
chrs_Greek_caps		:=  'ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΣΤΥΦΧΨΩ'  ;  		% chr_codes [[-50 -79]-[-50 -65],[-49 -128]-[-49 -119]]  ;  
chrs_Greek_small		:=  'αβγδεζηθικλμνξοπρςστυφχψω'  ;    					% chr_codes [[-50 -111]-[-50 -87]  ;  
# 10May2018 tests
qnial> EACH  charrep   '∬'  '∮'  ''  '∂'  '∫'  ''  '∇'  '·'  ''
+------------+------------+-------------+-------------+------------+------------+-------------+-------+-------
|-30 -120 -84|-30 -120 -82|-18 -126 -108|-30 -120 -126|-30 -120 -85|-18 -123 -99|-30 -120 -121|-62 -73|-18 -12
+------------+------------+-------------+-------------+------------+------------+-------------+-------+-------
-----+
4 -87|
-----+
qnial> '∬'  '∮'  '∫'  ''  ''  '∂'  '∇'  '·'  ''  EACHLEFT  in_string  '∮(·dl, over ∂Σ : E) = (·dA, over : dp[dt : B] ) + ζ' 
ololololo
>> YIKES! - I have two different symbols for the integral!!  
qnial> '∬'  '∮'  ''  '∂'  '∫'  '∇'  '·'  ''  EACHLEFT in_string  '∮(·dl, over ∂Σ : E) = (·dA, over : dp[dt : B] ) + ζ' 
ololoolo
>> OK, this is right 

EACH char (-30 -120 -84)  (-30 -120 -82)  (-18 -126 -108)  (-30 -120 -126)  (-30 -120 -85)  (-18 -123 -99)  (-30 -120 -121)  (-62 -73)  (-18 -124 -87)

#
qnial> EACH  charrep   '∬'  '∮'  ''  '∂'  '∫'  ''  '∇'  '·'  ''
+------------+------------+-------------+-------------+------------+------------+-------------+-------+-------
|-30 -120 -84|-30 -120 -82|-18 -126 -108|-30 -120 -126|-30 -120 -85|-18 -123 -99|-30 -120 -121|-62 -73|-18 -12
+------------+------------+-------------+-------------+------------+------------+-------------+-------+-------
-----+
4 -87|
-----+
qnial> link EACH char (-30 -120 -84)  (-30 -120 -82)  (-18 -126 -108)  (-30 -120 -126)  (-30 -120 -85)  (-18 -123 -99)  (-30 -120 -121)  (-62 -73)  (-18 -124 -87)
∬∮∂∫∇·
qnial> a :=  link EACH (string char) (-30 -120 -84)  (-30 -120 -82)  (-18 -126 -108)  (-30 -120 -126)  (-30 -120 -85)  (-18 -123 -99)  (-30 -120 -121)  (-62 -73)  (-18 -124 -87)
∬∮∂∫∇·
#>> OK
#>> YIKES! - I have two different symbols for the integral!!  use the bigger one "∫"
#>> I search & replaced in "Howell - math of Lucas Universal Force 180418.txt", but keep both in in_unicode_3chrs
qnial> '∬'  '∮'  '∫'  ''  ''  '∂'  '∇'  '·'  ''  EACHLEFT  in_string  '∮(·dl, over ∂Σ : E) = (·dA, over : dp[dt : B] ) + ζ' 
ololololo
#>> OK
b :=  EACH char (-30 -120 -84)  (-30 -120 -82)  (-18 -126 -108)  (-30 -120 -126)  (-30 -120 -85)  (-18 -123 -99)  (-30 -120 -121)  (-62 -73)  (-18 -124 -87)
∬∮∂∫∇·
qnial> b :=  EACH char (-30 -120 -84)  (-30 -120 -82)  (-18 -126 -108)  (-30 -120 -126)  (-30 -120 -85)  (-18 -123 -99)  (-30 -120 -121)  (-62 -73)  (-18 -124 -87)
+---+---+---+---+---+---+---+--+---+
|∬|∮||∂|∫||∇|·||
+---+---+---+---+---+---+---+--+---+
#>>  OK
qnial> EACH  in_unicode_3chrs  b
1 1 1 1 1 1 0 0 0
#>> OK
>> p := 1

# 18Apr2018  need to fix so numerics must not be first character of a symbol

10May2018  
chrs_symbols_HFLN		:=  link  chrs_alphaNumUnder  chrs_Greek_all  '∬∮∂∫'  ;   % Howell's Flat-Liner Notation  ;  
in_string  '∬'  chrs_symbols_HFLN



# enddoc