Post Reply 
Z Periodic Table (tableau periodique)
01-12-2016, 12:56 PM (This post was last modified: 05-02-2016 11:18 PM by StephenG1CMZ.)
Post: #1
Z Periodic Table (tableau periodique)
Following last weeks announcement in the media that the discovery of new elements has been confirmed, I thought I would make a simple periodic table. This one fits on one page, unlike some that need scrolling. And it works on the Android emulation.
There is some limited interaction, but the user interface does need more work.
Element names and symbols are case sensitive.

Code:

  
 //PERIODS
 //LOCAL APERIODS:={1,3,11,19,37,55,87};

 //ELEMENT DATA AND POSITION
 //ATOM: 1..118 = LIST POS
 //GROUP/COL: 1..18 OR NONE(<0:ARBITRARY FOR DISPLAY ONLY)
 //PERIOD/ROW: 1..7 
 EXPORT Z_ELEMENTS:={
 {  1,  1, 1},
 {  2, 18, 1},
 {  3,  1, 2},
 {  4,  2, 2},
 {  5, 13, 2},
 {  6, 14, 2},
 {  7, 15, 2},
 {  8, 16, 2},
 {  9, 17, 2},
 { 10, 18, 2},
 { 11,  1, 3},
 { 12,  2, 3},
 { 13, 13, 3},
 { 14, 14, 3},
 { 15, 15, 3},
 { 16, 16, 3},
 { 17, 17, 3},
 { 18, 18, 3},
 { 19,  1, 4},
 { 20,  2, 4},
 { 21,  3, 4},
 { 22,  4, 4},
 { 23,  5, 4},
 { 24,  6, 4},
 { 25,  7, 4},
 { 26,  8, 4},
 { 27,  9, 4},
 { 28, 10, 4},
 { 29, 11, 4},
 { 30, 12, 4},
 { 31, 13, 4},
 { 32, 14, 4},
 { 33, 15, 4},
 { 34, 16, 4},
 { 35, 17, 4},
 { 36, 18, 4},
 { 37,  1, 5},
 { 38,  2, 5},
 { 39,  3, 5},
 { 40,  4, 5},
 { 41,  5, 5},
 { 42,  6, 5},
 { 43,  7, 5},
 { 44,  8, 5},
 { 45,  9, 5},
 { 46, 10, 5},
 { 47, 11, 5},
 { 48, 12, 5},
 { 49, 13, 5},
 { 50, 14, 5},
 { 51, 15, 5},
 { 52, 16, 5},
 { 53, 17, 5},
 { 54, 18, 5},
 { 55,  1, 6},
 { 56,  2, 6},
 { 57, −3, 6},
 { 58, −4, 6},
 { 59, −5, 6},
 { 60, −6, 6},
 { 61, −7, 6},
 { 62, −8, 6},
 { 63, −9, 6},
 { 64,−10, 6},
 { 65,−11, 6},
 { 66,−12, 6},
 { 67,−13, 6},
 { 68,−14, 6},
 { 69,−15, 6},
 { 70,−16, 6},
 { 71,−17, 6},
 { 72,  4, 6},
 { 73,  5, 6},
 { 74,  6, 6},
 { 75,  7, 6},
 { 76,  8, 6},
 { 77,  9, 6},
 { 78, 10, 6},
 { 79, 11, 6},
 { 80, 12, 6},
 { 81, 13, 6},
 { 82, 14, 6},
 { 83, 15, 6},
 { 84, 16, 6},
 { 85, 17, 6},
 { 86, 18, 6},
 { 87,  1, 7},
 { 88,  2, 7},
 { 89, −3, 7},
 { 90, −4, 7},
 { 91, −5, 7},
 { 92, −6, 7},
 { 93, −7, 7},
 { 94, −8, 7},
 { 95, −9, 7},
 { 96,−10, 7},
 { 97,−11, 7},
 { 98,−12, 7},
 { 99,−13, 7},
 {100,−14, 7},
 {101,−15, 7},
 {102,−16, 7},
 {103,−17, 7},
 {104,  4, 7},
 {105,  5, 7},
 {106,  6, 7},
 {107,  7, 7},
 {108,  8, 7},
 {109,  9, 7},
 {110, 10, 7},
 {111, 11, 7},
 {112, 12, 7},
 {113, 13, 7},
 {114, 14, 7},
 {115, 15, 7},
 {116, 16, 7},
 {117, 17, 7},
 {118, 18, 7} 
 };
 
 EXPORT Z_ELEMENTNAMES:={
 {  1,"H",  "hydrogen"},
 {  2,"He", "helium"},
 {  3,"Li", "lithium"},
 {  4,"Be", "beryllium"},
 {  5,"B",  "boron"},
 {  6,"C",  "carbon"},
 {  7,"N",  "nitrogen"},
 {  8,"O",  "oxygen"},
 {  9,"F",  "fluorine"},
 { 10,"Ne", "neon"},
 { 11,"Na", "sodium"},
 { 12,"Mg", "magnesium"},
 { 13,"Al", "aluminium"},
 { 14,"Si", "silicon"},
 { 15,"P",  "phosphorus"},
 { 16,"S",  "sulfur"},
 { 17,"Cl", "chlorine"},
 { 18,"Ar", "argon"},
 { 19,"K",  "potassium"},
 { 20,"Ca", "calcium"},
 { 21,"Sc", "scandium"},
 { 22,"Ti", "titanium"},
 { 23,"V",  "vanadium"},
 { 24,"Cr", "chromium"},
 { 25,"Mn", "manganese"},
 { 26,"Fe", "iron"},
 { 27,"Co", "cobalt"},
 { 28,"Ni", "nickel"},
 { 29,"Cu", "copper"},
 { 30,"Zn", "zinc"},
 { 31,"Ga", "gallium"},
 { 32,"Ge", "germanium"},
 { 33,"As", "arsenic"},
 { 34,"Se", "selenium"},
 { 35,"Br", "bromine"},
 { 36,"Kr", "krypton"},
 { 37,"Rb", "rubidium"},
 { 38,"Sr", "strontium"},
 { 39,"Y",  "yttrium"},
 { 40,"Zr", "zirconium"},
 { 41,"Nb", "niobium"},
 { 42,"Mo", "molybdenum"},
 { 43,"Tc", "technetium"},
 { 44,"Ru", "ruthenium"},
 { 45,"Rh", "rhodium"},
 { 46,"Pd", "palladium"},
 { 47,"Ag", "silver"},
 { 48,"Cd", "cadmium"},
 { 49,"In", "indium"},
 { 50,"Sn", "tin"},
 { 51,"Sb", "antimony"},
 { 52,"Te", "tellurium"},
 { 53,"I",  "iodine"},
 { 54,"Xe", "xenon"},
 { 55,"Cs", "caesium"},
 { 56,"Ba", "barium"},
 { 57,"La", "lanthanum"},
 { 58,"Ce", "cerium"},
 { 59,"Pr", "praseodymium"},
 { 60,"Nd", "neodymium"},
 { 61,"Pm", "promethium"},
 { 62,"Sm", "samarium"},
 { 63,"Eu", "europium"},
 { 64,"Gd", "gadolinium"},
 { 65,"Tb", "terbium"},
 { 66,"Dy", "dysprosium"},
 { 67,"Ho", "holmium"},
 { 68,"Er", "erbium"},
 { 69,"Tm", "thulium"},
 { 70,"Yb", "ytterbium"},
 { 71,"Lu", "lutetium"},
 { 72,"Hf", "hafnium"},
 { 73,"Ta", "tantalum"},
 { 74,"W",  "tungsten"},
 { 75,"Re", "rhenium"},
 { 76,"Os", "osmium"},
 { 77,"Ir", "iridium"},
 { 78,"Pt", "platinum"},
 { 79,"Au", "gold"},
 { 80,"Hg", "mercury"},
 { 81,"Ti", "thallium"},
 { 82,"Pb", "lead"},
 { 83,"Bi", "bismuth"}, 
 { 84,"Po", "polonium"},
 { 85,"At", "astatine"},
 { 86,"Rn", "radon"},
 { 87,"Fr", "francium"},
 { 88,"Ra", "radium"},
 { 89,"Ac", "actinium"},
 { 90,"Th", "thorium"},
 { 91,"Pa", "protactinium"},
 { 92,"U",  "uranium"},
 { 93,"Np", "neptunium"},
 { 94,"Pu", "plutonium"},
 { 95,"Am", "americium"},
 { 96,"Cm", "curium"},
 { 97,"Bk", "berkelium"},
 { 98,"Cf", "californium"},
 { 99,"Es", "einsteinium"},
 {100,"Fm", "fermium"},
 {101,"Md", "mendelevium"},
 {102,"No", "nobelium"},
 {103,"Lr", "lawrencium"},
 {104,"Rf", "rutherfordium"},
 {105,"Db", "dubnium"},
 {106,"Sg", "seaborgium"},
 {107,"Bh", "bohrium"},
 {108,"Hs", "hassium"},
 {109,"Mt", "meitnerium"},
 {110,"Ds", "darmstadtium"},
 {111,"Rg", "roentgenium"},
 {112,"Cn", "copernicium"},
 {113,"Uut","ununtrium"},
 {114,"Fl", "flerovium"},
 {115,"Uue","ununpentium"},
 {116,"Lv", "livermorium"},
 {117,"Uus","ununseptium"},
 {118,"Uuo","ununoctium"}

 };

 LOCAL SHO_P:=0;
 LOCAL NELE:=SIZE(Z_ELEMENTS);
 LOCAL NGRPS:=18;//MAX(GROUPS)
 LOCAL NPRDS:= 7;//MAX(PERIODS)
 LOCAL NCOLS:=NGRPS+SHO_P;
 LOCAL NROWS:=NPRDS+2+1;//2 EXTRA ROWS 
 LOCAL COLSZ:=IP(320/NCOLS);
 LOCAL ROWSZ:=IP(220/NROWS/2);//2 LINES PER ROW

 LOCAL FONTSZ:=1;//1..7 1..2
 LOCAL MNU:={"Symb","Enter","Num"};

 LOCAL EL,ELSYM,APRD,DPRD,LGRP,DGRP;
 LOCAL II,KK,ML;
 LOCAL BOXED;
 LOCAL LSYM,LELE;
 LOCAL SY:="";

 MSNK()
 BEGIN
  LOCAL SNK:=MOUSE();
 END;


 DRW_ELE_BOX(LPOS,ONE,TWO)
 BEGIN
  LOCAL LMG:=6;//
  LOCAL LW:=1;//LINEWIDTH:KEEP TEXT OFF BOXLINE
  LOCAL DGRP:=MAX(LPOS(1)-1,0);//TRY
  LOCAL DPRD:=LPOS(2);
  LOCAL XX:=IP(DGRP*COLSZ)+LMG;
  LOCAL YY:=IP(2*DPRD*ROWSZ);
  //OMIT U ON SMALL SCREENS)
  LOCAL THREE:=IFTE(DIM(TWO)==3  AND GROBW_P()<640,MID(TWO,2),TWO);
  IF BOXED THEN
   
   RECT_P(XX,YY,XX+COLSZ,YY+2*ROWSZ,#0,#EEEEEE);//BLACK EDGE GREY FILL
  END;
  //LINES 1 AND 2 
  TEXTOUT_P(ONE,XX,YY+LW,FONTSZ);
  //RECT_P(0,2*8*ROWSZ,2*COLSZ+LMG,240,#0,#FF);
  TEXTOUT_P(THREE,XX+LW,IP((2*DPRD+1)*ROWSZ)+LW,FONTSZ); 
  //AND CORNER BIGGER
  RECT_P(LMG,2*8*ROWSZ+LW,2*COLSZ+LMG-LW,GROBH_P()-20);
  TEXTOUT_P(ONE,LMG,2*8*ROWSZ+LW,3);
  TEXTOUT_P(TWO,LMG,(2*9)*ROWSZ+LW,3);
 END;

 POS_ELE_BOX(EL)
 BEGIN
  LOCAL LGRP:=Z_ELEMENTS(EL,2);
  LOCAL DGRP:=ABS(LGRP); 
  LOCAL APRD:=Z_ELEMENTS(EL,3);
  LOCAL DPRD:=IFTE(LGRP<0,APRD+2,APRD);//8 AND 9 ARE 2 BELOW W AND 7
  RETURN {DGRP,DPRD}; 
 END;

 DRWNAME(ST)
 BEGIN
  TEXTOUT_P(ST,3*COLSZ,3*ROWSZ,7);
 END;


 EXPORT Z_PERIODIC_TABLE()
 BEGIN

  RECT();
  BOXED:=0;
  DRW_ELE_BOX({0,0},"Software by StephenG1CMZ 2016. Any work?","");
  FOR II FROM 1 TO NGRPS DO
   DRW_ELE_BOX({II,0},"",II);
  END;
  FOR II FROM  1 TO  NPRDS DO
   DRW_ELE_BOX({0,II},"","P"+II);
  END;
  //THESE NAMES WONT BE SEEN WITHOUT ADDING A DELAY OR REPOSITIONING
  DRW_ELE_BOX({4,8},"lanthanoids",""); 
  DRW_ELE_BOX({4,9},"actinoids","");
  ML:=0;PRINT();
  //DIAGNOSTIC:LONGEST NAME FOR DISPLAY SIZING
  //FOR II FROM 1 TO NELE DO
  // ML:=MAX(ML,DIM(Z_ELEMENTNAMES(II,3))); 
  //END;
  //PRINT("LONGESTNAME LENGTH:"+ML);
  //TEXTOUT_P(Z_ELEMENTNAMES(104,3),0,220,FONTSZ);//13CH
  DRW_ELE_BOX({3,7}," ⇊","");
  BOXED:=1;
  FOR  EL FROM 1 TO NELE DO
   //GETSYMBOL:LONGER NAMES LOSE THE "U" ON SMALL SCREEN
   ELSYM:=Z_ELEMENTNAMES(EL,2); 
   //DRAW
   DRW_ELE_BOX(POS_ELE_BOX(EL),EL,ELSYM);
  END;
  DRAWMENU(MNU);
 
  REPEAT
   MSNK();
   KK:=WAIT(−1);
   IF TYPE(KK)==0 AND 0 THEN //DIAGNOSTIC
    MSGBOX({TYPE(KK)+","+KK});//WHAT KEY
   END;
   MSNK();
   CASE
    IF TYPE(KK)≠0 THEN
     MSGBOX("PLEASE USE KEYPAD");
     KK:=0;
    END;
    IF KK==1  THEN //SYMBOL
     LSYM:={};
     FOR EL FROM 1  TO NELE DO
      LSYM:=CONCAT(LSYM,EL+" "+Z_ELEMENTNAMES(EL,2));
     END;
     ML:=CHOOSE(EL,"Symb",LSYM);
    END;

    IF KK==11 THEN //NUM
     LSYM:={};
     FOR EL FROM 1 TO NELE DO
      LSYM:=CONCAT(LSYM,EL+" "+Z_ELEMENTNAMES(EL,2)+" "+Z_ELEMENTNAMES(EL,3))
     END;
     ML:=CHOOSE(EL,"Num",LSYM);
    END;
    DEFAULT
   END;

   IF KK==30 THEN //ENTER
    ML:=INPUT(SY,"Enter element name or Symb");
    IF ML THEN
     FOR EL FROM 1 TO NELE DO
      IF SY==Z_ELEMENTNAMES(EL,2) OR SY==Z_ELEMENTNAMES(EL,3) THEN
       RECT_P(0,0,320,220);
       DRW_ELE_BOX(POS_ELE_BOX(EL),EL,Z_ELEMENTNAMES(EL,2));
       DRWNAME(Z_ELEMENTNAMES(EL,3));
       WAIT;
      END;
     END;
    END; 
   END;  
   IF ML THEN
    RECT_P(0,0,320,220);
    TEXTOUT_P("More: use keys:",0,0,FONTSZ);
    TEXTOUT_P(MNU,320/4,0);
    //BOXED:=0;
    //TEXTOUT_P(Z_ELEMENTNAMES(EL,3),3*COLSZ,3*ROWSZ,7);
    DRWNAME(Z_ELEMENTNAMES(EL,3));
    //BOXED:=1;
    DRW_ELE_BOX(POS_ELE_BOX(EL),EL,Z_ELEMENTNAMES(EL,2));
   //ELSE
   END; 
  UNTIL KK==4;//ESC
  //PRINT(); 
  //PRINT("BYE");
 
 FREEZE;
 END;

Stephen Lewkowicz (G1CMZ)
The word "set" has the most definitions in the OED
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Z Periodic Table (tableau periodique) - StephenG1CMZ - 01-12-2016 12:56 PM
RE: Z Periodic Table - StephenG1CMZ - 04-25-2016, 05:59 PM
RE: Z Periodic Table - StephenG1CMZ - 04-26-2016, 07:13 AM
RE: Z Periodic Table - StephenG1CMZ - 04-27-2016, 08:17 PM
RE: Z Periodic Table - StephenG1CMZ - 05-02-2016, 11:16 PM



User(s) browsing this thread: 1 Guest(s)