2018-05-16

En la jaro 1887 du gravaj inventoj ŝanĝis la mondon

En la la jaro 1887 du homoj ŝanĝis la mondon. Nikola Tesla realigis la induktan motoron kaj Ludwik Lejzer Zamenhof publikis la Internacian Lingvon.
Nikola Tesla evoluigis la induktan motoron kiu kuris per alterna kurento (AC), potenca sistem-formato kiu estis rapide vastiganta en Eŭropo kaj Usono pro ties avantaĝoj en longdistanca, alta-voltara transmisio. La motoro uzis multfazan flukson, kiu produktis  rotaciantan magnetan kampon por turni la motoron (principo kiun Tesla asertis koncepti en 1882). Ĉi tiu pionira elektra motoro, patentita en majo 1888, estis simpla mem-komencanta dizajno, kiu ne bezonis komutilon, kaj tiel evitante sparkojn kaj la daŭran konservon de  bonstato  per konstanta servado kaj anstataŭigi mekanikajn brosojn.
Nepre vidu la filmon pri Nikola Tesla 
https://topdocumentaryfilms.com/nikola-tesla-the-genius/

2018-04-20

Kio estas la signifo de la nombro "42" el la fama libro "The Hitchhiker's guide to the Galaxy" de Douglas Adams - Mi nun trovis la respondon

Hodiaŭ mi trovis la respondon pri la demando kio signifas la nombro 42 el la fama libro de Douglas Adams:  
La nombro estas la areo en kvadrataj metroj da grundo de bona agrolando kion ĉiu homo devas posedi garantiita ekkomence de sia naskiĝo en la destrikto kie li au ŝi loĝas. Estas grundo kio devas esti uzata nur por kreskigi agrokultivaĵojn kiel terpomojn, fazeolojn, cepojn, karotojn au kukurbojn - plantoj por kiu oni devas prepari la grundon, elpluki la fiherbon, fosi la grundon por malkompaktigi kaj poste rasti ĝin antaŭ semado. Estas malfacila laboro kaj oni svitas iomete, sed estas tre bona sperto kiam oni vidas la plantojn flori kaj kreski kaj kiam oni havas la propran rikolton. Estas sperto kio miaopinie en la nuna moderna civilizacio mankas al multaj homoj kaj tio povas igi ilin malsana.

Dillenburg, la 20a de aprilo 2018

PS: 1764 kvadratmetroj (42*42) estas pli-malpli la areo kiu ĉiu homo bezonas por produkti ĉiujn necesaĵojn por sia vivo. 

Pliaj informoj (en germana lingvo): 


http://www.deutschlandfunkkultur.de/weltacker-experiment-wie-viel-anbauflaeche-braucht-ein.976.de.html?dram:article_id=333459

2018-03-12

La Radio Amatoroj: Chu komparebla movado kiel la Esperantista ?

Estas vere interese kompari la Esperantistoj kun aliaj mondskalaj grupoj kiel ekz. la radio amatoroj.
Ambau grupoj entenas tre engaghighintaj homojn kaj spertululojn kiuj ghenerale loghas disaj kaj nur komunikas pere de TTT-iloj au pere de radio-sendiloj, kaj nur malofte persone renkontighas, do ekz. dum kongresoj au che semajnfinoj por kune ghojigi la estimatan shatokupon.

2018-03-03

Malpermeso por dizela veturiloj en urbaj zonoj estas dubinda

La germana justickortumo nun decidis ke urbadministracio povas malpermesi eniron en urbozonojn por dizelaj veturiloj kiuj emisias tro da aerosoloj kaj por tio ne konformas al la aktualaj normoj pri aerpureco. Tiu estas tre dubinda jurisdikcio ĉar civitanoj kaj malgrandaj firmaoj bezonas iliajn veturilojn por fari negocojn kaj enspezi monon. Ank civitanoj kaj feriantoj de aliaj EU-membrostatoj tiam ne plu rajtus veturi tra grandaj urboj kaj aglomeraj zonoj en germanio ĉar preskaŭ ĉiuj motoroj de ruldomoj  karavonoj bezonas dizelon. 
Tiu juĝo rememoras al mezepokaj limimpostoj kaj vojdoganaj barieroj. Ĝi malhelpas memdetermino kaj persona libereco de la civitanoj de eŭropo. Ĉu ni vere volas havi tiujn barilojn  ne estus pli bone enkonduki regulajn kaj pli rigidajn mezurojn de la aerosolkvoto de la elmotoraj gasoj kaj pli alte imposti la veturadon kun malnovaj veturiloj se ĝi ne konformas al la elflugasaj normoj? Mi pensas ke ne devas estis nacigermana decido se vi rajtas veturi kun dizelo veturilo au ne, sed devas esti respondeco de la eŭropa registaro decidi tiurilate.


   
  

2018-03-02

EDE estas mallongigo de Europa Demokratie Esperanto

EDE estas politika societo kio volas enkonduki la internacian lingvon Esperanto kiel ilo por komuniki inter cxiuj europaj landanoj. Unu el la unuaj pasxoj estus establigi Eo kiel oficiale agnoskitan lingvon en Europo. Unu agmaniero estas partopreni je la baloto de la europa parlamento kiu okazas cxiuj kvin jaroj. Por partopreni la EDE societo en germanio bezonas i.a. kandidatojn kaj subtenatojn kiuj pretas kolekti 4000 subtensubskribojn. Por malgranda societo tiu estas jam sufice strecxa tasko. Sed aliflanke estas bona shanco varbi por Eo kaj vi trejnas persvadarton kaj profesian komunikadon kun la celo konvinki homojn de via opinio. Tiu povas esti interesa nova sperto. 

2018-02-05

Wolfram Language :: create regular pentagram

IN: Entity ["Lamina", "FilledPentagram"][EntityProperty["Lamina", "Diagram"]]



OUT:
\!\(\*
GraphicsBox[{
{EdgeForm[GrayLevel[0]],
     PolygonBox[
      NCache[{{
        Rational[1, 2],
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        Rational[1, 2] (-2 + 5^Rational[1, 2]),
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        0, Root[1 - 5 #^2 + 5 #^4& , 3, 0]}, {
        1 + Rational[-1, 2] 5^Rational[1, 2],
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        Rational[-1, 2],
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        Rational[
          1, 4] (-3 + 5^Rational[1, 2]), -(
           130 + 58 5^Rational[1, 2])^Rational[-1, 2]}, {
        Rational[1, 4] (1 - 5^Rational[1, 2]), Root[
         1 - 20 #^2 + 80 #^4& , 1, 0]}, {
        0, Root[1 - 25 #^2 + 5 #^4& , 2, 0]}, {
        Rational[1, 4] (-1 + 5^Rational[1, 2]), Root[
         1 - 20 #^2 + 80 #^4& , 1, 0]}, {
        Rational[1, 4] (
          3 - 5^Rational[1, 2]), -(
           130 + 58 5^Rational[1, 2])^Rational[-1, 2]}}, {{0.5,
        0.16245984811645317`}, {0.1180339887498949,
        0.16245984811645317`}, {
        0, 0.5257311121191336}, {-0.1180339887498949,
        0.16245984811645317`}, {-0.5,
        0.16245984811645317`}, {-0.19098300562505255`, \
-0.062054140173339524`}, {-0.30901699437494745`, -0.42532540417602}, {
        0, -0.2008114158862273}, {
        0.30901699437494745`, -0.42532540417602}, {
        0.19098300562505255`, -0.062054140173339524`}}]]}, {
{Opacity[0], LineBox[{{0.359017, -0.415325}, {0.05, 0.535731}}]},
{StrokeForm[{GrayLevel[
Rational[28, 51]], Opacity[1]}], EdgeForm[GrayLevel[0]], EdgeForm[
      None],
StyleBox[{
{Arrowheads[{{Automatic, 1,
GraphicsBox[{
PolygonBox[
NCache[{{-1,
Rational[1, 4]}, {0, 0}, {-1,
Rational[-1, 4]}, {-0.9, 0}}, {{-1, 0.25}, {0,
                 0}, {-1, -0.25}, {-0.9, 0}}]],
LineBox[{{0, 1}, {0, -1}}]}]}}],
         ArrowBox[{
          Offset[{2.966564651503357, -9.13014206726548}, {
            0.20450849999999998`, 0.06020299999999995}], {
           0.359017, -0.415325}}]},
        InsetBox["\<\"a\"\>", \
{0.20450849999999998`, 0.06020299999999995}],
{Arrowheads[{{Automatic, 1,
GraphicsBox[{
PolygonBox[
NCache[{{-1,
Rational[1, 4]}, {0, 0}, {-1,
Rational[-1, 4]}, {-0.9, 0}}, {{-1, 0.25}, {0,
                 0}, {-1, -0.25}, {-0.9, 0}}]],
LineBox[{{0, -1}, {0, 1}}]}]}}],
         ArrowBox[{
          Offset[{-2.966564651503357, 9.13014206726548}, {
            0.20450849999999998`, 0.06020299999999995}], {0.05,
           0.535731}}]}},
FontColor->GrayLevel[0]]}}},
Axes->True,
AxesLabel->{
FormBox["\"x\"", TraditionalForm],
FormBox["\"y\"", TraditionalForm]},
BaseStyle->{
    AutoItalicWords -> {
      "a", "A", "b", "c", "d", "h", "l", "r", "R", "s", "t", "w", "x",
        "y"}, PointSize -> Absolute[5], GraphicsColor -> GrayLevel[0],
      EdgeColor -> RGBColor[
Rational[206, 255],
Rational[163, 255],
Rational[8, 85], 1], FrontFaceColor -> RGBColor[1,
Rational[254, 255],
Rational[209, 255]], LineColor -> GrayLevel[0.6],
     FontFamily -> "Times", FontSize -> 12},
Frame->False,
Ticks->None]\)