S := (1 + R+ R*R/3)*exp(-R);

NiM+SSJTRzYiKiYsKCIiIkYoSSJSR0YlRigqJEYpIiIjI0YoIiIkRigtSSRleHBHNiRJKnByb3RlY3RlZEdGMUkoX3N5c2xpYkdGJTYjLCRGKSEiIkYo

plot (S, R=0..6);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdTNyQkIiIhRiskIiIiRis3JCQiMyUqKioqKioqXCNIeUkiISM9JCIzKVJXO2h4MTsoKipGMTckJCIzMysrXShba2RXI0YxJCIzKXkwdV5VOTshKipGMTckJCIzKysrK3Y7XERQRjEkIjNFWTgnKVw1R3YoKkYxNyQkIjNXKysrRDxxOF1GMSQiMy8uZyc9NkE4ZypGMTckJCIzbyoqKipcUCIqeSZIJ0YxJCIzd0soZjd5S21RKkYxNyQkIjNlKioqKlwoR1tXWyhGMSQiM3lJNEA+T0piIipGMTckJCIzaSoqKipcKClmQjooKUYxJCIzMTZZJylcYCV6KSkpRjE3JCQiMzkrK10oUT0iKSkqKkYxJCIzISlSbnJobncnZSlGMTckJCIzKCoqKipcUCc9cEQ2ISM8JCIzcydbOkVTLW5FKUYxNyQkIjMzKysrbE4/YzdGWiQiMzYqZkFgPiYqPSN6RjE3JCQiMy0rK11VJGU2UCJGWiQiMyVwSmkpSG8jKjN3RjE3JCQiMzYrKysmPnEwXSJGWiQiM0VGelBHKVIsRChGMTckJCIzJyoqKioqKlxVODBqIkZaJCIzVUAvPFx6cycpb0YxNyQkIjM1KysrMHl0YjxGWiQiMylvYFxGJ1J0T2xGMTckJCIzKSoqKipcKFFOWHA9RlokIjNtNkRBTEVQQGlGMTckJCIzLisrK1hEbi8/RlokIjN5ZigpNHdtKT0mZUYxNyQkIjMuKysrIXk/Iz5ARlokIjNVOjRAJylIR1hiRjE3JCQiMycqKioqXCgzd1lfQUZaJCIzLWVQRS8iXHg+JkYxNyQkIjMjKSoqKioqKkhPVHFCRlokIjNdKnlLcnY1JioqW0YxNyQkIjM3Kyt2MyI+KSpcI0ZaJCIzQWUpcEA9N05lJUYxNyQkIjM6KytERVAvQkVGWiQiM1lDIip5KEgpRyVIJUYxNyQkIjM9KytdKG86O3YjRlokIjM4WSpmVj1nXyslRjE3JCQiMz0rK3YkKVtvcEdGWiQiMy8jKWVCM1lsXlBGMTckJCIzJSoqKioqXGklUXEqSEZaJCIzJ2ZbWGFGJyo0XCRGMTckJCIzJioqKipcKFFJS0hKRlokIjMhZj82XlUkW01LRjE3JCQiMyMqKioqXDc6eFdDJEZaJCIzWXpoR2o1JkgtJEYxNyQkIjM3KytdWm4lKW9MRlokIjMrXlkvXyxrMUdGMTckJCIzeSoqKioqKjRGTChcJEZaJCIzSTYqNFhadGhmI0YxNyQkIjMjKSoqKipcZDYuQk9GWiQiMzYseWEqUVNGUyNGMTckJCIzKCoqKipcKG8zbFdQRlokIjM4TFMqMzFucEEjRjE3JCQiMyEqKioqKlxBKSlvelFGWiQiMyZHSEpVIz1YVz9GMTckJCIzZSoqKioqKkhrLSxTRlokIjMjPTwiW2RJTyIqPUYxNyQkIjM2KysrRC1lSVRGWiQiM0tnKSpveWkhKVE8RjE3JCQiM3UqKipcKD1fKHpDJUZaJCIzYTBdZHV0JSk0O0YxNyQkIjNNKysrYio9alAlRlokIjNLQlMrKzlZeTlGMTckJCIzZyoqKlwoMy8zKFwlRlokIjMraG1cKD1JTk8iRjE3JCQiMzMrK3ZCNEpCWUZaJCIzZShvI1xYTCI+RCJGMTckJCIzdSoqKioqXEtDbnUlRlokIjNzaT1KKHlNMjoiRjE3JCQiM3MqKipcKD1uI2YoW0ZaJCIzNUs9dS4iSEYwIkYxNyQkIjNQKysrISlSTytdRlokIjNDXiJIbiQ9RmInKiEjPjckJCIzMCsrXV8hPnc3JkZaJCIzO0UvLFRPIj0kKSlGYng3JCQiM08rK3YpUT9RRCZGWiQiM2FuJUdkcGMqeSEpRmJ4NyQkIjNHKysrNWp5cGBGWiQiM0YkR2wlcGpdUnVGYng3JCQiMzwrK11VanAtYkZaJCIzVSg+UUBvNFR3J0ZieDckJCIzKysrK2dFZEBjRlokIjNIdXc4KVE8JjNpRmJ4NyQkIjM5Kyt2Myc+JFtkRlokIjNLciFvWy4hKkhtJkZieDckJCIzNysrRDZFanBlRlokIjNTXkMiPTBkSD0mRmJ4NyQkIiInRiskIjMwIjNtYzhIJzRaRmJ4LSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYrRmFbbEZiW2wtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZnW2wtJSVWSUVXRzYkO0ZiW2wkIiNnRmFbbDskIjJHU3okPTwjUSFHRjEkIjJvJ0c8dSFlIT41ISM7

J:= (1 + 1/R)*exp(-2*R);

NiM+SSJKRzYiKiYsJiIiIkYoKiRJIlJHRiUhIiJGKEYoLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRi9JKF9zeXNsaWJHRiU2IywkRiohIiNGKA==

plot (J, R=0.1..2);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdlbjckJCIzLysrKysrKys1ISM9JCIzcSp6ZFFHUWcrKiEjPDckJCIzV0xlOVQjbzwwIkYsJCIzbU1KJFEpUVc5JilGLzckJCIzcW07SCNbT041IkYsJCIzUTYiRyhcWzBwISlGLzckJCIzJyoqXFBNcy9gOiJGLCQiM3FgIz52JUhtandGLzckJCIzTkxMZWtIMjI3RiwkIjNHK2Z0JipbNyRIKEYvNyQkIjM5K10ob1c0MUoiRiwkIjN6QXYleS4rLGsnRi83JCQiM2xtbTtIZjk5OUYsJCIzOSo0XW41LkkzJ0YvNyQkIjMtK3ZWMyE+VmYiRiwkIjMtK1A6dWJ2J0cmRi83JCQiM1FMJDN4MyNcdTxGLCQiMyd6M1ZBcFxJbCVGLzckJCIzLytEMWZiNng+RiwkIjNtPzNdUz5NelNGLzckJCIzb21tVEkhUih6QEYsJCIzcj84IT16KEg4T0YvNyQkIjMpb21tO2kwUFEjRiwkIjNwR1d0ZF47REtGLzckJCIzI29tO0hAc3dlI0YsJCIzN1MjUWsmMzwqKkdGLzckJCIzVUwkMy1jbU8qSEYsJCIzKSkpNDYyQnRdUSNGLzckJCIzW207LyJIditQJEYsJCIzIT4yUVw2aj4tI0YvNyQkIjN5KipcUEhaIylmUEYsJCIzdSZlWGVqRGBzIkYvNyQkIjMnb21UZzovSDslRiwkIjMjPjYiKVtuKm96OUYvNyQkIjNFKipcKD0hNHBrWEYsJCIza2coUiNcdmQhRyJGLzckJCIzcUxMJGUmeih6KFxGLCQiMzJkQ3ovI3o8NiJGLzckJCIzUm1tInpULD9NJkYsJCIzbzZvbClmSW8nKSpGLDckJCIzJykqKioqXDxjIT12JkYsJCIzaSFvLXZjTSNvJylGLDckJCIzSyoqKipcN0RIamhGLCQiM2FQIVJoKSlbXWsoRiw3JCQiM1kqKioqXCNRTylmbEYsJCIzOWA7eDJxLSl6J0YsNyQkIjMjZW1UZz9PKj5wRiwkIjNmKyNcbD5wbzcnRiw3JCQiM09MTCRlc0giW3RGLCQiM0ZAbj45KT4uViZGLDckJCIzRkxMTC5lJzNyKEYsJCIzL2NALydvb0wiXEYsNyQkIjNPKipcUCU0OUc4KUYsJCIzSVY9ZypmZ01RJUYsNyQkIjNyS0xMRyk0al0pRiwkIjNvUF4jPlhZJXBSRiw3JCQiM0kqKlxQV1E0OyopRiwkIjM1OSYqPThXRm1ORiw3JCQiMz0rXTdMXkkxJCpGLCQiMydvRTgsY0BhQSRGLDckJCIzU0xMM3gnXE1yKkYsJCIzdVE6PjJ3ajNIRiw3JCQiM09MM19ZTnQzNUYvJCIzIVJQXzBiQiRbRUYsNyQkIjNnbTt6ekAxXDVGLyQiMy9ec3NSIVxqUiNGLDckJCIzaW1UZyZIXzQ0IkYvJCIzJSkpPmRDd2xDOyNGLDckJCIzNCtEY2t4VEY2Ri8kIjM5KilvcSQzciN6PkYsNyQkIjNvbTsvcTkhbzsiRi8kIjNuYD8kKSpcRS4hPUYsNyQkIjMvKytdInApWzI3Ri8kIjNGNlgneVg+UWoiRiw3JCQiMykpKipcKCkqPiRIWjdGLyQiM09EZyNcQyQpcFsiRiw3JCQiMzUrdlYzaCFlRyJGLyQiM0ciUT8waChSZThGLDckJCIzMCtdN0YibyZHOEYvJCIzU1dWXUo5XEg3Riw3JCQiMztMTCRHcSIqcE8iRi8kIjNAcUhPYVUhWzciRiw3JCQiMygqKioqXDcyPCEzOUYvJCIzQCRSWGd1VU0tIkYsNyQkIjNtbVRnX0A+WDlGLyQiMz0lSDdDYiwnKlIqISM+NyQkIjM3Kyt2TlYkZVsiRi8kIjNdOFZMSSpbKW8mKUZceTckJCIzR0wzeGlhMkM6Ri8kIjMhSEI/IW9kemR5Rlx5NyQkIjM3K3Y9ZiVbU2MiRi8kIjNXMkw6dDRnIT0oRlx5NyQkIjNJTExlcCRISmciRi8kIjMzNyFbQWIpZXhsRlx5NyQkIjMoKSpcUDRZVlNrIkYvJCIzKnlcSHA/WkcrJ0ZceTckJCIzd21tbSRmW01vIkYvJCIzOWBtIj0leiEpKVwmRlx5NyQkIjN3bTtITGd1QjxGLyQiM1MmeXVvSkQpR11GXHk3JCQiM1FMM3gqeTRQdyJGLyQiM3lxY15dZyFSZyVGXHk3JCQiMzorK11KQlYrPUYvJCIzRzlVKlI0PmpDJUZceTckJCIzUEwkZSUzMF9VPUYvJCIzeVU1LHcncDsoUUZceTckJCIzY21tbXZZOyEpPUYvJCIzT1hJc215ZWxORlx5NyQkIjMvK3ZWNDdJPz5GLyQiM2NgNHBYV25tS0ZceTckJCIzJyoqXGlOKnByZT5GLyQiM2NCQi03UHgvSUZceTckJCIiIyIiISQiM11GLEpMZU1aRkZceS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGYV1sRmpdbEZbXmwtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZgXmwtJSVWSUVXRzYkOyRGaV1sISIjJCIjP0ZqXWw7JCExRlJ4IlF5NF8iISM7JCIxJ0hvLmU0Yz0qISM6

K :=(S/R) -(1+R)*exp(-R);

NiM+SSJLRzYiLCYqKCwoIiIiRilJIlJHRiVGKSokRioiIiMjRikiIiRGKS1JJGV4cEc2JEkqcHJvdGVjdGVkR0YySShfc3lzbGliR0YlNiMsJEYqISIiRilGKkY2RikqJiwmRilGKUYqRilGKUYvRilGNg==

plot (K, R=0.1..6);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdobjckJCIzLysrKysrKys1ISM9JCIzc2xRI2VvXiEpKSopISM8NyQkIjNVJGUqKWYreC4zIkYsJCIzO3RweXlQXVYjKUYvNyQkIjNrbSJ6PixhMjsiRiwkIjNnY0ckPmRVP2coRi83JCQiMycpXChveixKNkMiRiwkIjN4VVo5PSdcTy8oRi83JCQiM0FMJGVSLTM6SyJGLCQiMy8kejJNYndKYidGLzckJCIzJSoqXFBmLmlBWyJGLCQiM1xeViVSX0M9dCZGLzckJCIzbm1tInovO0lrIkYsJCIzeXJsc0kqZjcyJkYvNyQkIjNSTGUqKWYreC49RiwkIjNDYjYhXEBUJkdYRi83JCQiMzcrXSg9MkNYJz5GLCQiM2M8Nkw6L3l1U0YvNyQkIjMkbzthUTN5XzcjRiwkIjMrQUtXNyNHKSpvJEYvNyQkIjNHTEwkZTRLZ0cjRiwkIjMjW1BYMFksI2ZMRi83JCQiM0krdiQ0I3BeWEdGLCQiM1onKikpXCh6bTddI0YvNyQkIjMwbjsvWTwrME1GLCQiMy1bSitXMCR5Iz5GLzckJCIzMStEY1k0P01TRiwkIjN3X0peU15EdzlGLzckJCIzMUxMM1osU2pZRiwkIjM/XHplIlFALDoiRi83JCQiMyhSTCRlSCs5SWZGLCQiMy1NSilwOChmTXJGLDckJCIzJXBtVCY9JGYzPihGLCQiMzspUTArPmAnUldGLDckJCIzJ0dMM0ZbMihmJClGLCQiMyk9MDwtaE4kcEZGLDckJCIzRytdUGE/KSpwJipGLCQiM19jUGluLSJHYyJGLDckJCIzXUwzeHVcOyMzIkYvJCIzKSlHISlRXCZcaidvISM+NyQkIjMwK3ZvSy4kcD8iRi8kIjMhKkc0PWRkP2RyISM/NyQkIjMnb207KlFvRU44Ri8kITMyOFdSb05bO1BGaXE3JCQiM2FMJGVNcTAkWzlGLyQhMyE+TCllZHlRamtGaXE3JCQiM0MrK3YicGdiZCJGLyQhMyc+Ozx3OVsrZylGaXE3JCQiM0MrK0QsI1FMcSJGLyQhM0tmPjx2bU8nKSoqRmlxNyQkIjNRKytEM2JaRT1GLyQhM0MhWzh1Xi4peTVGLDckJCIzWEwzeHpmSFE+Ri8kITNBJT4/KioqeVc8NkYsNyQkIjNzbW0iZkxoNzIjRi8kITMkUSZbKSopXHU8OCJGLDckJCIzJ3BtbU9WK1I9I0YvJCEzYSlIWEl1L1E3IkYsNyQkIjNSK3YkPltFXEojRi8kITMlbzRJXlJ1dzQiRiw3JCQiM2BtbTtPbiE0ViNGLyQhMytGakZkd2dqNUYsNyQkIjNZK3YkcFhiImVERi8kITNaTFZtIVJxIT01Riw3JCQiM2crRCIzTEUkekVGLyQhM0FJRHAmcEhXcCpGaXE3JCQiM0duOy9FYXYwR0YvJCEzbyRRL0Asc1Y6KkZpcTckJCIzNm5UTi1vJj0jSEYvJCEzNC04aCdIS1FrKUZpcTckJCIzb0wkZTkjeTNaSUYvJCEzRyFcKVJJQnUqMylGaXE3JCQiM1NMM3hhdzt4SkYvJCEzVmV0KTQhb28/dkZpcTckJCIzNStEMUtEUyFIJEYvJCEzaGc+WCk9ISlwLihGaXE3JCQiMyFRTDM8SSpwN01GLyQhMypIJVJOLVRaSmxGaXE3JCQiMyEqKioqKlxKUS9STkYvJCEzQmZLS1ZIREpnRmlxNyQkIjM3K10oW0laRW0kRi8kITM7KDNmSEphZmMmRmlxNyQkIjNXK3YkNC1TQXkkRi8kITNiTVYqPiwkeVJeRmlxNyQkIjM5K103VXQtOlJGLyQhM2ljVHEnZmRdcCVGaXE3JCQiM1ZtbTtjRU1NU0YvJCEzZVd6QTpVOEBWRmlxNyQkIjM3KytEQHN0aFRGLyQhMy12XG5cTFRbUkZpcTckJCIzc0szeEpjPHhVRi8kITNROSRbeiVbeExPRmlxNyQkIjMkKSoqKlxkSSFRLldGLyQhMyFRIio9Xyc+MzlMRmlxNyQkIjNUbVRnbyFIQF8lRi8kITNbTk5DJVwyYi4kRmlxNyQkIjMpKSpcKG9UZERZWUYvJCEzXUwmemJeY2l3I0ZpcTckJCIzLW1tIkhEN3d3JUYvJCEzQXBKJD5mYU5fI0ZpcTckJCIzWSpcUE1GaFkqW0YvJCEzL2VFTl1oJioqRyNGaXE3JCQiM2FMTEwhZUNxLCZGLyQhMyUqUTUvJHlfTjMjRmlxNyQkIjNgTCRlXHRlQDkmRi8kITNFUTw2VyV5Kyo9RmlxNyQkIjNJblRnOm5EbV9GLyQhMzNgS2wiSHRYciJGaXE3JCQiM1srK11yKSpHIVEmRi8kITMjMyRvdVlWbW06RmlxNyQkIjNYbTt6T1opNF4mRi8kITNjYjdyPGZzNjlGaXE3JCQiM0lMTEwjeXp5aSZGLyQhMykpW2E9OUdPJkciRmlxNyQkIjNxKlxQPkc5RHYmRi8kITMpSDwpMzVbTWk2RmlxNyQkIjMjKSpcaTVTMD0oZUYvJCEzOylSVnlrVV0wIkZpcTckJCIiJyIiISQhM1MyeClRTSQpPV0qRl9yLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEZhXmxGal5sRltfbC0lK0FYRVNMQUJFTFNHNiRRIlI2IlEhRmBfbC0lJVZJRVdHNiQ7JEZpXmwhIiMkIiNnRmpebDskITJXS0hoSz8/JkhGLyQiMTskUSZvaTJxIiohIzo=

DE := (J+K)/(1+S);

NiM+SSNERUc2IiomLCgqJiwmIiIiRioqJEkiUkdGJSEiIkYqRiotSSRleHBHNiRJKnByb3RlY3RlZEdGMUkoX3N5c2xpYkdGJTYjLCRGLCEiI0YqRioqKCwoRipGKkYsRioqJEYsIiIjI0YqIiIkRiotRi82IywkRixGLUYqRixGLUYqKiYsJkYqRipGLEYqRipGPEYqRi1GKiwmRipGKiomRjdGKkY8RipGKkYt

plot (DE, R=2..3);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdVNyQkIiIjIiIhJCEzbXYjWz1gXHJQJiEjPjckJCIzPkxMM3gmKSozLCMhIzwkITNjdD0+K2Z3TWFGLzckJCIzJG9tbVQ6KHpAP0YzJCEzMSFIKT4iNG4uXCZGLzckJCIzNStEInklKno3LiNGMyQhMzIkUXpPclNyYCZGLzckJCIzT0wkZTl1aTIvI0YzJCEzNW0lKmYqUl5DZSZGLzckJCIzXW1tInpfIjRpP0YzJCEzQ3Q0WVRUO3pjRi83JCQiM1ltbVQmcGhOMyNGMyQhMz1vSHdyN11wZEYvNyQkIjNVTCRlKj0pSFw1I0YzJCEzSzJxIVIwPkYmZUYvNyQkIjNzbTt6LzN1Q0BGMyQhM0AvT0QnKSlmVCNmRi83JCQiMyEpKipcN0xSRFhARjMkITNbYVckRyMqeUQqZkYvNyQkIjMjb20ielInb2s7I0YzJCEzPzooeS5BUXcwJ0YvNyQkIjMtK11pNWBoKD0jRjMkITNeL1FiKnppcDYnRi83JCQiM1lMTCQzRW4kNEFGMyQhMzNzdmE1XFpzaEYvNyQkIjNjbW1UIVJFJkdBRjMkITMoPmJSSyFHJHBAJ0YvNyQkIjMpKioqKipcS100XUFGMyQhM0VuLSRwQTtBRSdGLzckJCIzKSkqKioqXFBBdnJBRjMkITNYUGBwcyM9R0knRi83JCQiMyMpKioqKlxuSGkjSCNGMyQhM3hWXjIkZkd2TCdGLzckJCIzYm07eipldjpKI0YzJCEzV140Vjx0V2xqRi83JCQiM1tMTCQzNDdUTCNGMyQhM10hM0E0MXFWUidGLzckJCIzPUxMTGpNP2BCRjMkITM6Z1E9dmFROmtGLzckJCIzOStdN283VHZCRjMkITM3eik+VUEiKWZWJ0YvNyQkIjNXTExMUSpvXVIjRjMkITN3QzxGYiQqKjNYJ0YvNyQkIjNDK103PWxqO0NGMyQhMyMpPjtkKG9UUVknRi83JCQiMyYqKipcUGFSPFBDRjMkITNRJCo+JmZRdUhaJ0YvNyQkIjNfTExlOUVnZUNGMyQhMylmaSZHVyJHJHprRi83JCQiM1dMJGVSIjNHeUNGMyQhM2EiejUqKkdGQ1snRi83JCQiM21tbVQ1a10qXCNGMyQhMyE+eGtjKClmSFsnRi83JCQiM09tO3pSUWJAREYzJCEzaTUoNEo/ZjBbJ0YvNyQkIjMlKSoqXCg9PlkyYSNGMyQhM1dwJ0goW183d2tGLzckJCIzJW9tO3pYdTljI0YzJCEzM2koXHQkPSoqb2tGLzckJCIzdSoqKioqXHkpKUdlI0YzJCEza3o6X1hiPGZrRi83JCQiM24qKipcaV9RUWcjRjMkITNzLWljWUxGWmtGLzckJCIzcSoqXDd5JTNUaSNGMyQhMzchWyJvI3kqb0xrRi83JCQiMyMqKioqXFAhW2hZRUYzJCEzVTw4T0hUTDtrRi83JCQiM0VMTExReCRvbSNGMyQhMyczL2dYJT16KVInRi83JCQiMycpKioqKlxQK1YpbyNGMyQhMzlwXSczVUEieWpGLzckJCIzaW07enBlKnpxI0YzJCEzOVlKSiZcVHhOJ0YvNyQkIjN3KioqKlwjXCdRSEZGMyQhM1tNQCsjKm91TGpGLzckJCIzN0wkZTlTOCZcRkYzJCEzby8uPXY2aDRqRi83JCQiMzsrXWk/PWJxRkYzJCEzJWVzOHp6VkdHJ0YvNyQkIjNHTEwkM3M/NnojRjMkITM/YFlwKmVEX0QnRi83JCQiMyYqKipcN2BXbDdHRjMkITMzLClbSTVgW0EnRi83JCQiM2VtbW0nKlJSTEdGMyQhM09uRmhTK0UlPidGLzckJCIzX21tVHZKZ2FHRjMkITMnKiopUVUzRm9oaEYvNyQkIjM1TCRlOXRPYyhHRjMkITNpRz1CI0deIkdoRi83JCQiM3UqKioqKlxRa1wqR0YzJCEzI0csM2xZPmo0J0YvNyQkIjNATEwzZGc2PEhGMyQhM1tpWF84IylwZWdGLzckJCIzX21tbXcoR3AkSEYzJCEzdzk+MGdJMkNnRi83JCQiMy0rXTdvSzBlSEYzJCEzIT5XRDVpJj4nKWZGLzckJCIzLStdKD01cyN5SEYzJCEzQVV5Jm9iayFcZkYvNyQkIiIkRiwkITNgXjwoMygpZiMzZkYvLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYsRltcbEZcXGwtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZhXGwtJSVWSUVXRzYkOyQiIz9GW1xsJCIjSUZbXGw7JCExLTZhIzN3XV0nRjMkITFZPihcS0xdTiZGMw==

DE2 := (J-K)/(1-S);

NiM+SSRERTJHNiIqJiwoKiYsJiIiIkYqKiRJIlJHRiUhIiJGKkYqLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRjFJKF9zeXNsaWJHRiU2IywkRiwhIiNGKkYqKigsKEYqRipGLEYqKiRGLCIiIyNGKiIiJEYqLUYvNiMsJEYsRi1GKkYsRi1GLSomLCZGKkYqRixGKkYqRjxGKkYqRiosJkYqRioqJkY3RipGPEYqRi1GLQ==

plot ({DE,DE2}, R=0.3..4);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdZNyQkIjMpKSoqKioqKioqKioqKioqSCEjPSQiM008OThXJD5yTyMhIzw3JCQiMzRtOy93T2ksS0YsJCIzaTg1KFJtJz5oQEYvNyQkIjMlR0wkM190Qy5NRiwkIjNRJTNGSigpKkchKT5GLzckJCIzZyoqXDdHNShbZyRGLCQiM0UrdFpZX0A/PUYvNyQkIjNObW07L1pcMVFGLCQiMzs1RGxlUW54O0YvNyQkIjMxK0QxcCFldDolRiwkIjNPUEdtRjooUVkiRi83JCQiM3ZMJGVSVkAjM1hGLCQiM20oemRwWyEpW0ciRi83JCQiM04rdlYkKVIhRyFcRiwkIjM0TE53cFkhZjYiRi83JCQiMyVwbTtIYCdRKEgmRiwkIjNpSUgmeTwoKnp0KkYsNyQkIjMxbm1tSlllJXAmRiwkIjM6eENiS1BbQSYpRiw3JCQiMztubVRJRnkiNCdGLCQiM083TWpbL2QhWyhGLDckJCIzK0wkZTlJLkMpb0YsJCIzRGpDJikpZm5UIWVGLDckJCIzQ207SHgoNGFoKEYsJCIzJCkqemxhOSUpR2clRiw3JCQiM0ErXWlEYlJ1JClGLCQiMyQqPiNRNEFTJT1PRiw3JCQiM1ltO0hzJ1IkZiIqRiwkIjNsPitoLTx6MkdGLDckJCIzUSoqXDckXG08JSoqRiwkIjNDd01EPl5JZkBGLDckJCIzSUxMM2wpZVkyIkYvJCIzIW8ybiQ9KVwvaSJGLDckJCIzIW9tVFhrWmI5IkYvJCIzJ1t3I3o5KnAzQiJGLDckJCIzNisrRD87TkQ3Ri8kIjM7SW9GI2UmKVxvKSEjPjckJCIzOSsrdnlLWzA4Ri8kIjNkVChlSV4uUHEmRmRxNyQkIjM9Kyt2elxxI1EiRi8kIjNsKVxZaSRRKW9MJEZkcTckJCIza20iSEFvSEdYIkYvJCIzdGouO1RQKEhhIkZkcTckJCIzUExMM09aQE86Ri8kITNhVk0meUJ5IltBISM/NyQkIjNRTExMOUcmb2ciRi8kITNRaVAjW1pgPVkiRmRxNyQkIjMzK0QxI3BAISpvIkYvJCEzMV9NXjFQa1xFRmRxNyQkIjNDTEwkPTJiPHciRi8kITNlP1UsJ0dbLl4kRmRxNyQkIjM+K0QxPF5iVD1GLyQhM2EtOHNnRiI0RyVGZHE3JCQiM0Urdj1KT2E8PkYvJCEzcUUmZl0nWyxyW0ZkcTckJCIzYUwkZVJuSG8qPkYvJCEzUzA8cSxXK2dgRmRxNyQkIjNrTGVrNiFSJ3A/Ri8kITNcPU0xI0gyPHImRmRxNyQkIjNdbTthPVA8W0BGLyQhMz0kXCJmLzooPSsnRmRxNyQkIjNxbSJIcz9cKEhBRi8kITNTL3hTM0tqPmlGZHE3JCQiMyQqKlxQKjQ0dytCRi8kITNlZlpvKjRHKlxqRmRxNyQkIjNlbTtIJVxidVAjRi8kITNkUHhgJTN2d1YnRmRxNyQkIjN3KioqKlwvJilvY0NGLyQhM09FdkVKKSkpKXlrRmRxNyQkIjMvK103WkQ/TURGLyQhM21CdEpEaCh5WidGZHE3JCQiM3kqXGkhcDg/NEVGLyQhM1RoNSkqZU4oUVcnRmRxNyQkIjMpKSoqXChReHVDcCNGLyQhM3llbiRHVU5TUCdGZHE3JCQiMztMTCQ9aipIbkZGLyQhM3lVOi1CODMoRydGZHE3JCQiMycqKioqXChRNj5aR0YvJCEzL29xMlg9QHRoRmRxNyQkIjNLbSJIIz1aZT5IRi8kITMvMjg7M0pWYWdGZHE3JCQiMz0rK0RBK3QpKkhGLyQhM1okPjtwaHAxImZGZHE3JCQiMyVIJGVSJmUqPnRJRi8kITNxXmo3dSFHWXcmRmRxNyQkIjMxK0RKTzwvXkpGLyQhMztuKz4xdDcuY0ZkcTckJCIzSkxMM25tOUZLRi8kITNSISplb3ZzWVFhRmRxNyQkIjMjKipcaWxaQG9JJEYvJCEzJXlfMCNbNXpnX0ZkcTckJCIzcW1tbSh5ZE5RJEYvJCEzJ1Eib3NQQDcnMyZGZHE3JCQiM2FtOy9cPC5pTUYvJCEzKFt4KlEqby5gIVxGZHE3JCQiM3FMZVIxZiYpUk5GLyQhMyZ5JlxBQSEqKlxzJUZkcTckJCIzMSsrXUMjbzhoJEYvJCEzWT8pUmhWYiRmWEZkcTckJCIzWUwkMzdUSExwJEYvJCEzV3JzPiEpXFtxVkZkcTckJCIzKW9tbU9aT213JEYvJCEzNGdIPitHOi5VRmRxNyQkIjMzK0QxIzQoeldRRi8kITNdJUdbY1ZjcS0lRmRxNyQkIjMvK3YkcHgxJz5SRi8kITMjZjNYPjhwNydRRmRxNyQkIiIlIiIhJCEzd29hPCxDaCdvJEZkcS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGaFxsRmFdbEZiXWwtRiY2JDdZNyRGKiQiMyVvaWV2Y3g3KFFGLzckRjEkIjM6SSQpKnA5aCJRT0YvNyRGNiQiM1RyaiJmNiFwSU1GLzckRjskIjNYPTw9MDJtV0tGLzckRkAkIjNvJj1LJVxbdndJRi83JEZFJCIzamFVbmJxOz9HRi83JEZKJCIzIz0hKmZ1VUsrZyNGLzckRk8kIjNHYEElSEpWbVEjRi83JEZUJCIzNil6PzVWJSk+PyNGLzckRlkkIjN0KTMrTU9yJFI/Ri83JEZobiQiM21VKUhILS1lKj1GLzckRl1vJCIzI3kpNDVKRFdhO0YvNyRGYm8kIjNVK1p0PyNmNVoiRi83JEZnbyQiM3kjXGUiXGN6NjhGLzckRlxwJCIzIz50cmxtIlFzNkYvNyRGYXAkIjMteS9kKVFlTjAiRi83JEZmcCQiM1NdYjxbYEEiWypGLDckRltxJCIzJ3ohWyR6USUzbycpRiw3JEZgcSQiM1c/PykzWSc9Z3lGLDckRmZxJCIzdVRfVSlIP2A5KEYsNyRGW3IkIjM7QVh6VyhmT2AnRiw3JEZgciQiMzBGVnJRT2lNZ0YsNyRGZXIkIjNTUW8jenQtO10mRiw3JEZbcyQiM3cvW1dFKHlbNCZGLDckRmBzJCIzUWlUYmQncG9tJUYsNyRGZXMkIjMyc2A7TitzQlZGLDckRmpzJCIzVV1pZjIlZjcpUkYsNyRGX3QkIjMpPmsvYUdzWG8kRiw3JEZkdCQiM1ZeMjxwaEAtTUYsNyRGaXQkIjNhRjE5SzAlWzskRiw3JEZedSQiM2NMUl5yZyEqSEhGLDckRmN1JCIzOFIoXCpcOXQxRkYsNyRGaHUkIjNgYlw4Y3ExR0RGLDckRl12JCIzISoqel5NLHgpXEJGLDckRmJ2JCIzKXlcUSpHRVUhPSNGLDckRmd2JCIzK1I8ZmFvcUY/Riw3JEZcdyQiM2svKnkiKW9QNio9Riw3JEZhdyQiMyNRL090IjRDXjxGLDckRmZ3JCIzNCFbZW9WZF5qIkYsNyRGW3gkIjMmKTQ1USV6KFE/OkYsNyRGYHgkIjMmKj05JjNIK1JVIkYsNyRGZXgkIjNvckdFc0UiZksiRiw3JEZqeCQiM3oiKSk0LmYqSFM3Riw3JEZfeSQiM2lrNmBsKikzZDZGLDckRmR5JCIzJ1xJXl1tZDkzIkYsNyRGaXkkIjMscldlRFkneSsiRiw3JEZeeiQiMypSIVwqcCRScT4lKkZkcTckRmN6JCIzdy0qZmIuRUR6KUZkcTckRmh6JCIzIjQwKEc1OGs4IylGZHE3JEZdW2wkIjMjPjdBYlB3bnIoRmRxNyRGYltsJCIzXyYpXE4mZidlJj0oRmRxNyRGZ1tsJCIzI0c+RnBmV0V1J0ZkcTckRlxcbCQiMz03amZFSlIsakZkcTckRmFcbCQiM2EpXEVWR1dwIWZGZHE3JEZmXGwkIjNVUVt1J0coRzZiRmRxLUZcXWw2JkZeXWxGYl1sRl9dbEZiXWwtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZhaGwtJSVWSUVXRzYkOyQiI0khIiMkIiNTRmFdbDskITJFLCxWPC1eViJGLyQiMWBnbicqKSkqKlxSISM6

f3 := diff(DE,R);

NiM+SSNmM0c2IiwmKiYsMComSSJSR0YlISIjLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRi9JKF9zeXNsaWJHRiU2IywkRipGKyIiIiEiIiomLCZGM0YzKiRGKkY0RjNGM0YsRjNGKyooLCZGM0YzRiojIiIjIiIkRjMtRi02IywkRipGNEYzRipGNEYzKigsKEYzRjNGKkYzKiRGKkY7I0YzRjxGM0Y9RjNGKkY0RjQqKEZBRjNGPUYzRipGK0Y0Rj1GNComLCZGM0YzRipGM0YzRj1GM0YzRjMsJkYzRjMqJkZBRjNGPUYzRjNGNEYzKigsKEY1RjNGQEYzRkVGNEYzRkdGKywmKiZGOUYzRj1GM0YzRkhGNEYzRjQ=

plot (f3,R=2..3);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdTNyQkIiIjIiIhJCEzOzNHRVcpUS9RJiEjPjckJCIzJG9tbVQ6KHpAPyEjPCQhMy4pb0JOJXBoNV1GLzckJCIzT0wkZTl1aTIvI0YzJCEzIXk8S2JEaD9xJUYvNyQkIjNdbW0iel8iNGk/RjMkITMlUmR6a0E/InBWRi83JCQiM1ltbVQmcGhOMyNGMyQhM1VJWC8hR2kkW1NGLzckJCIzVUwkZSo9KUhcNSNGMyQhM2orZjtdJkhHdSRGLzckJCIzc207ei8zdUNARjMkITMpXGFWSCp6Q3JNRi83JCQiMyEpKipcN0xSRFhARjMkITM+NTtPQ0pSLEtGLzckJCIzI29tInpSJ29rOyNGMyQhM1xPPztLSSZSJEhGLzckJCIzLStdaTVgaCg9I0YzJCEzcWJAMygpcGx5RUYvNyQkIjNZTEwkM0VuJDRBRjMkITNpNDFlYyYzdFUjRi83JCQiM2NtbVQhUkUmR0FGMyQhM3IoNEN3UycpXEAjRi83JCQiMykqKioqKlxLXTRdQUYzJCEzVSc+WTJ2L2QpPkYvNyQkIjMpKSoqKipcUEF2ckFGMyQhM2drYHMkZlRhdyJGLzckJCIzIykqKioqXG5IaSNII0YzJCEzSVVTVEd5QWk6Ri83JCQiM2JtO3oqZXY6SiNGMyQhMzU3JGVjJDQzJlEiRi83JCQiM1tMTCQzNDdUTCNGMyQhMzdTeGR3ZkEkPSJGLzckJCIzPUxMTGpNP2BCRjMkITN3dTAwJXA1JT41Ri83JCQiMzkrXTdvN1R2QkYzJCEzQVQ2Vis4M28kKSEjPzckJCIzV0xMTFEqb11SI0YzJCEzeiVIKVtRU08/b0ZlcTckJCIzQytdNz1sajtDRjMkITNlaz9XY2tZJD4mRmVxNyQkIjMmKioqXFBhUjxQQ0YzJCEzSW9OeHkoWzNyJEZlcTckJCIzX0xMZTlFZ2VDRjMkITNQbEBbayEqUklBRmVxNyQkIjNXTCRlUiIzR3lDRjMkITN3QydwUGY0VkcqISNANyQkIjNtbW1UNWtdKlwjRjMkIjMpPihcVGAhZl47JUZfczckJCIzT207elJRYkBERjMkIjM7OCQqR1E4eF08RmVxNyQkIjMlKSoqXCg9PlkyYSNGMyQiMyU+dVA4MV9AJ0dGZXE3JCQiMyVvbTt6WHU5YyNGMyQiM0EjKnA7YCFvPywlRmVxNyQkIjN1KioqKipceSkpR2UjRjMkIjN1RFJHSkw1Wl5GZXE3JCQiM24qKipcaV9RUWcjRjMkIjNLKSkpKVJaMFUyaUZlcTckJCIzcSoqXDd5JTNUaSNGMyQiM0sjWzBEb1F6PShGZXE3JCQiMyMqKioqXFAhW2hZRUYzJCIzQyZcWjhsOWpBKUZlcTckJCIzRUxMTFF4JG9tI0YzJCIzPSZIJVI2OCdlNipGZXE3JCQiMycpKioqKlxQK1YpbyNGMyQiM2FAYj81Tz4tNUYvNyQkIjNpbTt6cGUqenEjRjMkIjNjJj1SSzpTMDMiRi83JCQiM3cqKioqXCNcJ1FIRkYzJCIzJz1dSiY0Z0RpNkYvNyQkIjM3TCRlOVM4JlxGRjMkIjNTPjxyPkZfTjdGLzckJCIzOytdaT89YnFGRjMkIjN3JD4iZis1XDM4Ri83JCQiM0dMTCQzcz82eiNGMyQiMyNRSStQSyZRdzhGLzckJCIzJioqKlw3YFdsN0dGMyQiMzxmKUdkInolUlciRi83JCQiM2VtbW0nKlJSTEdGMyQiM1RNOzMmelRkXSJGLzckJCIzX21tVHZKZ2FHRjMkIjM3Pj9vVzh0bDpGLzckJCIzNUwkZTl0T2MoR0YzJCIzUHYhW3J6U0BpIkYvNyQkIjN1KioqKipcUWtcKkdGMyQiMyNmTGhDKVJPcjtGLzckJCIzQExMM2RnNjxIRjMkIjMwQjoyNVIiW3MiRi83JCQiM19tbW13KEdwJEhGMyQiMy9iKy0qNEoreCJGLzckJCIzLStdN29LMGVIRjMkIjNJKEhMV0xZYyI9Ri83JCQiMy0rXSg9NXMjeUhGMyQiM2M2JHAwZCUpbyY9Ri83JCQiIiRGLCQiMzdHdHFuY2wpKj1GLy0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGLEZjW2xGZFtsLSUrQVhFU0xBQkVMU0c2JFEiUjYiUSFGaVtsLSUlVklFV0c2JDskIiM/RmNbbCQiI0lGY1tsOyQhMTNBXU0yLUViRjMkIjFKbiV6YlBVLyNGMw==

S1 := (1 + 1.24*R + 1.24*1.24*R*R/3)*exp(-1.24*R);

NiM+SSNTMUc2IiomLCgiIiJGKEkiUkdGJSQiJEMiISIjKiRGKSIiIyQiK0xMTEReISM1RigtSSRleHBHNiRJKnByb3RlY3RlZEdGNUkoX3N5c2xpYkdGJTYjLCRGKSQhJEMiRixGKA==

plot (S1,R=0..6);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdVNyQkIiIhRiskIiIiRis3JCQiM3MqKioqKipcaTlSbCEjPiQiM1syU2F5ImYhKikqKiEjPTckJCIzJSoqKioqKipcI0h5SSJGNCQiMyEpeiM0cj1LayYqKkY0NyQkIjMtKyt2b296dz1GNCQiMyl5OzRhWTkzIioqRjQ3JCQiMzMrK10oW2tkVyNGNCQiMyd5d0B0WzcoXCkqRjQ3JCQiMysrKyt2O1xEUEY0JCIzJ2VHKSkqby1CZicqRjQ3JCQiM1crKytEPHE4XUY0JCIzdUNuNldHIzRTKkY0NyQkIjNvKioqKlxQIip5JkgnRjQkIjMvImVfTyJmJHkzKkY0NyQkIjNlKioqKlwoR1tXWyhGNCQiM1V2ckYpZU1wdilGNDckJCIzaSoqKipcKClmQjooKUY0JCIzT1coPT9QIj0jUSlGNDckJCIzOSsrXShRPSIpKSoqRjQkIjMneTFPdSFRTXB6RjQ3JCQiMygqKioqXFAnPXBENiEjPCQiM2NdTyQ+OmszYShGNDckJCIzMysrK2xOP2M3Rl9vJCIzOURbX2Q/YyE0KEY0NyQkIjMtKytdVSRlNlAiRl9vJCIzO2JtN1BlayJwJ0Y0NyQkIjM2KysrJj5xMF0iRl9vJCIzIXBxJmZxQl1YaUY0NyQkIjMnKioqKioqXFU4MGoiRl9vJCIzIj4iPURzRWAwZUY0NyQkIjM1KysrMHl0YjxGX28kIjNNNSRlXzYpKUhSJkY0NyQkIjMpKioqKlwoUU5YcD1GX28kIjMrZGI9cTNlSV1GNDckJCIzLisrK1hEbi8/Rl9vJCIzJypRXSM+Pm1yaCVGNDckJCIzLisrKyF5PyM+QEZfbyQiMyF5YGtmKVFHJEclRjQ3JCQiMycqKioqXCgzd1lfQUZfbyQiMzVULmAmelJcIlJGNDckJCIzIykqKioqKipIT1RxQkZfbyQiM1ooW0JkIyl6dWckRjQ3JCQiMzcrK3YzIj4pKlwjRl9vJCIzIyp5PygzYUAwSCRGNDckJCIzOisrREVQL0JFRl9vJCIzNmxePyc+J1szSUY0NyQkIjM9KytdKG86O3YjRl9vJCIzVWk2S1QjKVtNRkY0NyQkIjM9Kyt2JClbb3BHRl9vJCIzRyVcWm8ocG0rREY0NyQkIjMlKioqKipcaSVRcSpIRl9vJCIzWUReKyRSQHBFI0Y0NyQkIjMmKioqKlwoUUlLSEpGX28kIjMlUSNvIkdJd04vI0Y0NyQkIjMjKioqKlw3OnhXQyRGX28kIjNNKnpmP0tFWCc9RjQ3JCQiMzcrK11abiUpb0xGX28kIjNXLUQsSFZQJ28iRjQ3JCQiM3kqKioqKio0RkwoXCRGX28kIjNtLk1NKlwoKXpeIkY0NyQkIjMjKSoqKipcZDYuQk9GX28kIjNtLSNwI29yb244RjQ3JCQiMygqKioqXChvM2xXUEZfbyQiM2x3VSVbSVtcQiJGNDckJCIzISoqKioqXEEpKW96UUZfbyQiMyVbIz1gRCZRNjUiRjQ3JCQiM2UqKioqKipIay0sU0ZfbyQiM3ExSUxLeik9IyoqRjE3JCQiMzYrKytELWVJVEZfbyQiMy9JSiRceiFHbikpRjE3JCQiM3UqKipcKD1fKHpDJUZfbyQiM1lSYVNCYy8sISlGMTckJCIzTSsrK2IqPWpQJUZfbyQiM2EqKVshKj0xTlZyRjE3JCQiM2cqKipcKDMvMyhcJUZfbyQiMzcpZjVEO2FYVCdGMTckJCIzMysrdkI0SkJZRl9vJCIzSXNsMjBpJ29zJkYxNyQkIjN1KioqKipcS0NudSVGX28kIjNUIXB0KjNFVEBeRjE3JCQiM3MqKipcKD1uI2YoW0ZfbyQiM0twTVQ7dCtfWEYxNyQkIjNQKysrISlSTytdRl9vJCIzT3EsUWNXP2dTRjE3JCQiMzArK11fIT53NyZGX28kIjMqKUdBWi1eRzRPRjE3JCQiM08rK3YpUT9RRCZGX28kIjNjJkg8XCVwNTRLRjE3JCQiM0crKys1anlwYEZfbyQiM3lWKkg2Jj52eUdGMTckJCIzPCsrXVVqcC1iRl9vJCIzeTRzUSNIailSREYxNyQkIjMrKysrZ0VkQGNGX28kIjNZQDkzXSFRI3BBRjE3JCQiMzkrK3YzJz4kW2RGX28kIjNZTSM9YigzMzY/RjE3JCQiMzcrK0Q2RWpwZUZfbyQiM19oL01HU1kheiJGMTckJCIiJ0YrJCIzZSxXTnEuR3o6RjEtJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkRitGW1xsRlxcbC0lK0FYRVNMQUJFTFNHNiRRIlI2IlEhRmFcbC0lJVZJRVdHNiQ7RlxcbCQiI2dGW1xsOyQhMTJeUUEtTSIqUUY0JCIyI0hmI1I5JW8+NSEjOw==

J1:=(1.24 + 1/R)*exp(-2*1.24*R);

NiM+SSNKMUc2IiomLCYkIiRDIiEiIyIiIiokSSJSR0YlISIiRitGKy1JJGV4cEc2JEkqcHJvdGVjdGVkR0YySShfc3lzbGliR0YlNiMsJEYtJCEkWyNGKkYr

plot (J1, R=0.3..3);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdZNyQkIjMpKSoqKioqKioqKioqKioqSCEjPSQiMyE0STZEUyFIdEAhIzw3JCQiMzcrXWkheklyOSRGLCQiMyZvNUg9YD1TLSNGLzckJCIzeSoqKlw3ZWhVSCRGLCQiMzUtJT0ncEghKSkpPUYvNyQkIjNaKipcKD1QI1JUTUYsJCIzZyN6LiNmcyVldyJGLzckJCIzcSoqKipcaUpfKWUkRiwkIjM1YGgiUkZbT2wiRi83JCQiMz0rdiQ0ZmVYJVFGLCQiM3ckKXpCQWVRIVsiRi83JCQiMzcrXVA+U2YrVEYsJCIzZ19sUHdkY0k4Ri83JCQiMyMqKlxpbGpLJilRJUYsJCIzbXQ1P0sqelw9IkYvNyQkIjNzKioqXFBEcmtuJUYsJCIzO24zakMnPiRmNUYvNyQkIjMrKysrOiY9aidcRiwkIjNHLzxILGhGJVwqRiw3JCQiM0UrK0R3ZDtjX0YsJCIzVVZiR2peQE0mKUYsNyQkIjMjKioqXCg9NjBKJGVGLCQiM2srJjMxMG1OJnBGLDckJCIzMyoqXFBIPCtvakYsJCIzcyoqNGhGTSlHeiZGLDckJCIzNStdUCU+Yz0jcEYsJCIzWHM7TF9BbUJbRiw3JCQiM10rXVB1S2wlXChGLCQiM0lRQCczI1F4N1NGLDckJCIzMSoqXChvUThjMSlGLCQiM2k3cFAiZnReTiRGLDckJCIzbysrXVVnIkhsKUYsJCIzUHJLb1t0KT4hR0YsNyQkIjM9KytEVERAcSIqRiwkIjN1SXMlKSlvYnZSI0YsNyQkIjNFLCtdeGVjXygqRiwkIjNHbUo0UU46PD9GLDckJCIzLysrRFQ1dEw1Ri8kIjNEPC1fcCN6LHEiRiw3JCQiMzcrK0Q3PzMhNCJGLyQiM0tyR0NNLSVcVyJGLDckJCIzNCt2ViM0YTc5IkYvJCIzc3BRQCopKWYlWzdGLDckJCIzNSsrRFhFNS03Ri8kIjMpM2Q6bysoM141Riw3JCQiMykqKioqKio0TlxPRCJGLyQiM2cxI3oualVvNCohIz43JCQiMzsrdiRSVTVPSiJGLyQiM21lVjRJWnoqcChGXXM3JCQiMysrK11MaG9tOEYvJCIzR1czV1cxV11tRl1zNyQkIjM8K3YkKilmPVxVIkYvJCIzIUd1VlpZUylvY0ZdczckJCIzNStEIm9ucC5bIkYvJCIzI1I8KSo0czhPKFtGXXM3JCQiM0UrXVBmcUFROkYvJCIzOydmMFVmbWg7JUZdczckJCIzPyt2byg+ZThmIkYvJCIzI1shUWFoUCEqNE9GXXM3JCQiMzErXTczdG1bO0YvJCIzUVVILUsxLSY0JEZdczckJCIzNit2Vm5gPjM8Ri8kIjNEK0wpZSlcbVJFRl1zNyQkIjM1K0QxPVosZzxGLyQiM2ckUSMzNjJUKkgjRl1zNyQkIjM+K11QTzUpZiI9Ri8kIjNXIWVuYzFQPyk+Rl1zNyQkIjMtKytdPigqenQ9Ri8kIjNbem4qejl0NHEiRl1zNyQkIjMjKioqXCgzLWsuJD5GLyQiMy9IYng4eElsOUZdczckJCIzMyt2JDQqRzQmKT5GLyQiM3MzMU9NI1EqbzdGXXM3JCQiMykqKipcN3EqZmUvI0YvJCIzW2ljVTtLMCMzIkZdczckJCIzISoqKioqXCQqPVkrQEYvJCIzb2k7OCQpR3IhUSohIz83JCQiMzUrK0QsNndlQEYvJCIzRVV5JjNyKDRkISlGaXc3JCQiM3EqXFAlWykpZTZBRi8kIjM6IW84OjdCPS0oRml3NyQkIjMpKioqKlwoSE5NcEFGLyQiMyllVFAqKXkvTS8nRml3NyQkIjMjKSpcUFI9J29CQkYvJCIzcSY9RiNSLTBcX0ZpdzckJCIzISoqXChvOioqWyFRI0YvJCIzP25EZCw8SEpYRml3NyQkIjNkKioqXGklZi1PQ0YvJCIzJClwKGYlNExcRFJGaXc3JCQiMycqKlxQTS1uVFwjRi8kIjMpSDNfeUMpb3lMRml3NyQkIjM3KysrInpqLGIjRi8kIjNPWF05ISoqR1sjSEZpdzckJCIzLStdaXQmR3VnI0YvJCIzeUNCTyZvNlVfI0ZpdzckJCIzOyt2JFw8PlVtI0YvJCIzOTQpcHRYZjo9I0ZpdzckJCIzJykqKioqXFJRUztGRi8kIjMnPVs/TmV3IjM+Rml3NyQkIjMjKSoqXDdhTEB3RkYvJCIzKSpSdFthJT1xaiJGaXc3JCQiMyIqKioqKipwcDIoSEdGLyQiMyoqcCNmMm1JdlUiRml3NyQkIjMxK3YkUiNRdScpR0YvJCIzYlVVTFN1IVFCIkZpdzckJCIzLCtEMXZZTFRIRi8kIjNzekU5QVpAdDVGaXc3JCQiIiQiIiEkIjNCJ2ZCWnhgKlIjKiEjQC0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGaFxsRmJdbEZjXWwtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZoXWwtJSVWSUVXRzYkOyQiMi8rKysrKysrJEYvJCIjSUZiXWw7JCEwVT9sRkxCRCUhIzskIjF4UmxJeHQ7QSEjOg==

K1 :=(S1/R) -(1.24 +1.5376*R)*exp(-1.24*R);

NiM+SSNLMUc2IiwmKigsKCIiIkYpSSJSR0YlJCIkQyIhIiMqJEYqIiIjJCIrTExMRF4hIzVGKS1JJGV4cEc2JEkqcHJvdGVjdGVkR0Y2SShfc3lzbGliR0YlNiMsJEYqJCEkQyJGLUYpRiohIiJGKSomLCZGK0YpRiokIiZ3YCIhIiVGKUYzRilGPA==

DE3 := (J1+K1)/(1+S1);

NiM+SSRERTNHNiIqJiwoKiYsJiQiJEMiISIjIiIiKiRJIlJHRiUhIiJGLUYtLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRjRJKF9zeXNsaWJHRiU2IywkRi8kISRbI0YsRi1GLSooLChGLUYtRi9GKiokRi8iIiMkIitMTExEXiEjNUYtLUYyNiMsJEYvJCEkQyJGLEYtRi9GMEYtKiYsJkYqRi1GLyQiJndgIiEiJUYtRkFGLUYwRi0sJkYtRi0qJkY7Ri1GQUYtRi1GMA==

plot (DE3, R=1..5);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdaNyQkIiIiIiIhJCIzP2giPWY2b1ArIiEjPTckJCIzaG1tO2FyekA1ISM8JCIzWzhGTmtNV2IoKSEjPjckJCIzQUxMTDNWZlY1RjMkIjN5TXM5TkczY3ZGNjckJCIzMSsrXWk5Umw1RjMkIjMxMy10PFYoUlYnRjY3JCQiM21tbW07Jyk9KDMiRjMkIjNZaCstdShbUlEmRjY3JCQiMyYqKioqXDd6Pl43IkYzJCIzW2spZj83SllyJEY2NyQkIjNXTEwkZSc0MGo2RjMkIjNyViFveEUwcEEjRjY3JCQiMzwrK3ZRJjNkPyJGMyQiM0liPXFLJClwa3UhIz83JCQiM29tbW02aE9bN0YzJCEzIkhZWWwvYD5gJkZVNyQkIjMjb21tbVcxOEgiRjMkITM7KlJtaURrK3EiRjY3JCQiM3htbW0ieVlVTCJGMyQhM2BtL09xNVguRkY2NyQkIjMrKyt2R0kpcFAiRjMkITNjdWBXYGdldk5GNjckJCIzQ0xMJGVGPig+OUYzJCEzZi1qODhLWE5WRjY3JCQiM2ttbTs+SycqKVwiRjMkITNDWic9YUxIeFsmRjY3JCQiMy8rK11LZCwiZSJGMyQhM2dXanYsZGQnUSdGNjckJCIzZ21tO2ZYKGVtIkYzJCEzXTtaIXkuMjoxKEY2NyQkIjMhKioqKipcVTdZXTxGMyQhMzVfSSg9QHJpXyhGNjckJCIzUUxMTFYhcHUkPUYzJCEzd0x0SU5oISpIeUY2NyQkIjNvbW1taGI1OT5GMyQhM10vKztrY2d5ekY2NyQkIjMjKioqKioqKkgsUSs/RjMkITN0Ny1IekZXUSEpRjY3JCQiMykqKioqKioqXCozcTMjRjMkITNNZCI0YSZcNTEhKUY2NyQkIjM/KysrcT1ccUBGMyQhM3IiejVQOlleIXpGNjckJCIzbW1tO2ZCSVlBRjMkITMpUXh3Kj5FOm14RjY3JCQiMzBMTExqJFtrTCNGMyQhM2lLd29WTiFbYihGNjckJCIzP0xMTGBRIkdUI0YzJCEzVVI6JlJBaF9NKEY2NyQkIjNvKioqKlxzXWssREYzJCEzKSlwYCFvJyozXjIoRjY3JCQiMyNITExMdnYtZSNGMyQhM3MmNHJvWnYmPW9GNjckJCIzMysrXXNnYW1FRjMkITNaYDtnWURCQ2xGNjckJCIzISkqKioqXDxlcFtGRjMkITMneU84W1YkM09pRjY3JCQiMztMTExlL1RNR0YzJCEzWiUpUnUzb1NKZkY2NyQkIjNKTEwkZURCSiJIRjMkITM1R0F5XW8rXmNGNjckJCIzaW1tbVRjLSkqSEYzJCEzKTNfTVIkXGZdYEY2NyQkIjNNbW07ZmBAJzMkRjMkITNpJWUqMzkyQlZdRjY3JCQiM3kqKioqXG5aKUg7JEYzJCEzeVNUYXZOPSJ5JUY2NyQkIjNZbW1tSnkqZUMkRjMkITNqR2woKT5SRzBYRjY3JCQiMycpKioqKioqUl5iSkxGMyQhM1hfLlIqKj47SFVGNjckJCIzZioqKioqXDVhYFQkRjMkITMxM1I3VkVvb1JGNjckJCIzbyoqKipcN1JWJ1wkRjMkITNaPVo8Xl9ORVBGNjckJCIzayoqKioqXEBma2UkRjMkITNDY01sQ1cnKm9NRjY3JCQiMy9MTExgNE5uT0YzJCEza2gkZjs2USVbS0Y2NyQkIjMjKioqKioqKlwsc2BQRjMkITMyT1ZXVVVOQ0lGNjckJCIzW21tO3pNKT4kUUYzJCEzJmUsKmZNLFlKR0Y2NyQkIjMkKioqKioqKnBmYTxSRjMkITNZW1k3T2RhSkVGNjckJCIzI0hMTGVnYCEpKlJGMyQhM01PbC44SHZgQ0Y2NyQkIjN3KioqKlwjRzJBMyVGMyQhMzdVRTwiUW8keUFGNjckJCIzO0xMTCQpR1trVEYzJCEzXUsmcHInPidwNiNGNjckJCIzIykqKioqXDd5aF1VRjMkITNNZUJtI1ExJGU+RjY3JCQiM0ttbW0nKWZkTFZGMyQhM05kd0heUzc6PUY2NyQkIjM2bW1tLEZUPVdGMyQhM0dQMypHLHEheTtGNjckJCIzRkxMJGUjcGEtWEYzJCEzIW8+Jil6IT41XjpGNjckJCIzISoqKioqKipSdiYpelhGMyQhM0JBdGdePiQ+VyJGNjckJCIzJUdMTCRHVVlvWUYzJCEzV0hkRlg/QEQ4RjY3JCQiMzNtbW0xXnJaWkYzJCEzKWVFQDtfTCFHN0Y2NyQkIjM0Kytdc0lAS1tGMyQhMyhlTypvXyo9OjgiRjY3JCQiMzQrK10yJSkzOFxGMyQhMy8rbyc+WkVjLyJGNjckJCIiJkYsJCEzT1xbKydvKnkqZipGVS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGLEZmXWxGZ11sLSUrQVhFU0xBQkVMU0c2JFEiUjYiUSFGXF5sLSUlVklFV0c2JDtGZF1sJCIjXUZmXWw7JCEwbGYhZV8nKipSKSEjOyQiMTBeemouIypSNUZnXmw=

plot ((diff(DE3,R), R=1.9..2.1));

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdTNyQkIjMhKioqKioqKioqKioqKioqPSEjPCQhMy0ySm4qNHc4YCIhIz43JCQiMzlMTCQzVmZWIT5GLCQhMyNlKT0oXFtUQVkiRi83JCQiM2VtO0hbRDozPkYsJCEzazBXYDBMci05Ri83JCQiM0VMTGUwJD1DIj5GLCQhM1BANEtDaFhPOEYvNyQkIjM7TEwzUkJyOz5GLCQhMzNHN1ZtJylbcTdGLzckJCIza207empmKTQjPkYsJCEzPEFCNypbYGI/IkYvNyQkIjNATCRlNDtbXCM+RiwkITMrKm9meVslKWY5IkYvNyQkIjMnKioqXGkneV0hSD5GLCQhMzdkT2BSNSVcMyJGLzckJCIzS0wkZXpzJEhMPkYsJCEzIXozS2RyJVtBNUYvNyQkIjMjKioqXDdpSV9QPkYsJCEzQjshXGx6WyE0JyohIz83JCQiM15tbTtfTSg9JT5GLCQhMyM0Jyo0bzwoZiMpKilGZ243JCQiM0VMTDN5X3FYPkYsJCEzUyYpWzkkPj1tVilGZ243JCQiMy8rK10xIT4rJj5GLCQhM2pqPCMqPjtUR3lGZ243JCQiMykqKioqKlxaL05hPkYsJCEzKCopWzBlKioqXENzRmduNyQkIjMnKioqKipcJGZDJmU+RiwkITM/YFs4elkqKVttRmduNyQkIjNPTCRlejY6Qic+RiwkITNiIjRuKnoiZjo4J0ZnbjckJCIzcW1tOz1DI28nPkYsJCEzUCopR3QxVSlIXyZGZ243JCQiM2ttbW0jcFMxKD5GLCQhMy0nb0dUQygpSCwmRmduNyQkIjMhKioqXGlgQTN2PkYsJCEzMTRwXEFpMkVXRmduNyQkIjNxbW1tKHk4IXo+RiwkITNOZylSSGojPjdSRmduNyQkIjMpKSoqXGkudEskKT5GLCQhMztzWCYpUWVTYUxGZ243JCQiMzMrXSgzek11KT5GLCQhM3FQYSNcV2shSEdGZ243JCQiM2NtbSJIXz88Kj5GLCQhM3Msb28oKT0hcEcjRmduNyQkIjNvbTt6aWhsJio+RiwkITMpcCJ5eVE8TiV6IkZnbjckJCIzR0xMMyNHLCoqKj5GLCQhMzUqSE4zXkgobzdGZ243JCQiMz1MJGV6dzVWKyNGLCQhMytYInAlZm85KkcoISNANyQkIjM6K11QUSNcIjM/RiwkITNmLUBDW2hrU0VGaHM3JCQiMz5MTGUiKltINz9GLCQiMzg3aW9vOllGQkZoczckJCIzJykqKioqKnB2eGwsI0YsJCIzI1F2UkxeJFIudUZoczckJCIzJCoqKipcX3FuMi0jRiwkIjNLaD1bOnBTSjdGZ243JCQiMy4rXWkmcEBbLSNGLCQiMz55cVYvJipSLDxGZ243JCQiMzIrK3ZnSEtIP0YsJCIzYTxmVSdvIVE8QUZnbjckJCIzJG9tbXdhbkwuI0YsJCIzISopcDQlXCkpenZFRmduNyQkIjMxKytdMmdvUD9GLCQiM0FRWnNVUCcpZkpGZ243JCQiM0JMJGVSPCpmVD9GLCQiM1c8ZG9tQXQkZiRGZ243JCQiM0ErK10pSHhlLyNGLCQiM0kxcVJ1JEhIMSVGZ243JCQiMyFwbSJIIW8tKlw/RiwkIjMjUmluKFtVYipcJUZnbjckJCIzLytdN2suNmE/RiwkIjMnRzIjZSozcjQmXEZnbjckJCIzbW1tO1dUQWU/RiwkIjNvO14heWpPdVEmRmduNyQkIjM7K11pISozYGk/RiwkIjNiUjdsQSdlI1JlRmduNyQkIjNLTExMKnp5bTEjRiwkIjNLaUQ1Y2RecGlGZ243JCQiM2VMTDNOMSM0MiNGLCQiMy46eSJ5JioqZS9uRmduNyQkIjNpbTtIWXQ3dj9GLCQiMyk0czAuMCo9SnJGZ243JCQiMzcrKyt4RyoqeT9GLCQiMyMzJVFROzcmKj12RmduNyQkIjNrbW1UNktVJDMjRiwkIjM5KnkuUGZEJWV6RmduNyQkIjNbTExMYmRRKDMjRiwkIjMxJkgpUTxPMVokKUZnbjckJCIzMytdaWAxaCI0I0YsJCIzXUEoXCIqb2xvdilGZ243JCQiM0UrXVA/V2wmNCNGLCQiM0tpQ0YlW0NaOSpGZ243JCQiMzMrKysrKysrQEYsJCIzWyo9RHh3Mm9iKkZnbi0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGYltsRmNbbC0lK0FYRVNMQUJFTFNHNiRRIlI2IlEhRmlbbC0lJVZJRVdHNiQ7JCIyKysrKysrKyE+ISM7JCIjQEZiW2w7JCEyJT4/P1BzNiJlIiEjPSQiMjtWLFYiPlUwNUZnXGw=