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..4);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdaNyQkIiIiIiIhJCIzP2giPWY2b1ArIiEjPTckJCIzLCtdaWx5TTs1ISM8JCIzKTRCbEJ0LSFvISohIz43JCQiMy4rK0RKZHBLNUYzJCIzYzx1Mzxqd1giKUY2NyQkIjMvK10ob2ZWIVw1RjMkIjNxKD4wI3BFX29zRjY3JCQiMzErK11pOVJsNUYzJCIzMTMtdDxWKFJWJ0Y2NyQkIjMxK3ZWVilSUTQiRjMkIjNRJ1s9MFFkcjImRjY3JCQiMzQrXVBDIylHQTZGMyQiM1MtTl1fVXJLUUY2NyQkIjMtK0QxLzlHYTZGMyQiMyEqSCI9aSFHemJERjY3JCQiMyUqKioqXFBldWk9IkYzJCIzKSlvVGQzbTgoUiJGNjckJCIzNysrK04peiU9N0YzJCIzRy5WJik+LTYlUiQhIz83JCQiMzMrK0QnMyZvXTdGMyQhM0shXCpbMnYiND4nRmluNyQkIjMxK0RjcnN0I0ciRjMkITNjI2V3K3ozS1siRjY3JCQiMy8rXShvWCp5OThGMyQhMyc9JEdTQiopW2xBRjY3JCQiMyMqKipcUDlDQXU4RjMkITMhRzpoZ1sheUFORjY3JCQiMy4rXVAqemhkViJGMyQhM0NxUSJHKlJEJWYlRjY3JCQiMysrXVA+ZlMqXCJGMyQhM0dtKD1MXUVMXCZGNjckJCIzNStdKD0kZiVHYyJGMyQhM1QjKlszPnRFNWlGNjckJCIzJCoqKioqXCN5LCJHO0YzJCEzJT5BOyFcMmoqeSdGNjckJCIzNysrRHIiemJvIkYzJCEzLShHTVk5Mm49KEY2NyQkIjMlKioqKipcKDQmR108RjMkITMocC4iKXknKSpbRHZGNjckJCIzNCsrXTduRDo9RjMkITMlKXlIeUE0PG54RjY3JCQiMyUqKioqKlwtKm95KD1GMyQhM0ZYVihSMCwyI3pGNjckJCIzNStdUHBuc00+RjMkITNCWWNvUGJULSEpRjY3JCQiMywrK11zaUwtP0YzJCEzK3hVTllmbFEhKUY2NyQkIjMtKysrIVI1J2Y/RjMkITNkWHBkLm02RCEpRjY3JCQiMykqKipcUC9RQkVARjMkITMzOyg9PnFiaSd6RjY3JCQiMyEqKioqKipcIm8/Jj0jRjMkITMrbWZPMnlPIil5RjY3JCQiMyUpKipcUGEmNCpcQUYzJCEzcVlUM2gzZWV4RjY3JCQiMyYpKipcN2o9XzZCRjMkITNDTiYpRy04ZDx3RjY3JCQiMzMrK3ZWeSFlUCNGMyQhMycpXG85X1cjKVx1RjY3JCQiM0srXSg9V1VbViNGMyQhMyFSJ2YyKCopNDFHKEY2NyQkIjMpKioqKlw3Qj4mKVwjRjMkITNPJD4sbl8zXTMoRjY3JCQiMykqKipcUD46bWtERjMkITNhQkEsYiNmMChvRjY3JCQiMycqKipcaXYmUUFpI0YzJCEzc1RtMjYxd3dtRjY3JCQiMzErK3Z0TFUlbyNGMyQhMyd5T21icUo/WSdGNjckJCIzNysrK2JqbVtGRjMkITMoUXNLJG93PU9pRjY3JCQiMyIqKioqXCh5Yl42R0YzJCEzeCM+JFJAQClILCdGNjckJCIzKSoqKlxQTWFLc0dGMyQhM0ElM2kiKSpcRCd6JkY2NyQkIjM9KytENlclKVJIRjMkITN5KVI5UEk8aGImRjY3JCQiM3oqKioqKlxAODArJEYzJCEzSUpkdCk0XD1NJkY2NyQkIjMxKytdNyxIbElGMyQhMz10JlwreDZjNiZGNjckJCIzKCkqKlxQNHcpUjckRjMkITNfQ1lgK0xkOFxGNjckJCIzOysrXXglZiIpPSRGMyQhM3NXWiI+MXlscCVGNjckJCIzISkqKlxQLy1hW0tGMyQhM0snPilReGBpJ1wlRjY3JCQiMy8rXSg9WWI7SiRGMyQhM01uXTJbKlxDSCVGNjckJCIzJykqKioqXGlAT3RMRjMkITMnPjNMKjQwKHo0JUY2NyQkIjMnKSoqXFBmTCd6ViRGMyQhMzA7eGQ3IUgsIVJGNjckJCIzPisrKyEqPj0rTkYzJCEzKD0jb1FROFI6UEY2NyQkIjMtKytERSY0UWMkRjMkITNkYSdwUnpXRGAkRjY3JCQiMz0rXVAlPjVwaSRGMyQhMy8pKjQoKSo9L3VOJEY2NyQkIjM5KysrYkoqW28kRjMkITNrJio+ISpSQSg+PyRGNjckJCIzMysrRHIiWzh2JEYzJCEzZTFSa1w1TklJRjY3JCQiMysrKytJank1UUYzJCEzVVkib2JDYEYpR0Y2NyQkIjMxK11QLylmVChRRjMkITMuRmJBP0dcSkZGNjckJCIzMStdaTBqIlskUkYzJCEzczwmNCMpPXFEZiNGNjckJCIiJUYsJCEzTVJaKUhpdyZcQ0Y2LSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYsRmZdbEZnXWwtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZcXmwtJSVWSUVXRzYkO0ZkXWwkIiNTRmZdbDskITElKlxZKW8jPSslKUYzJCIxTCNILHo/KlI1ISM7

plot ((diff(DE3,R), R=1..3));

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdVNyQkIiIiIiIhJCEzbUo9KDMqPSg9MychIz03JCQiM2htbTthcnpANSEjPCQhM1lyJUhkNScqem8mRi83JCQiM0FMTEwzVmZWNUYzJCEzdTd6I1I7WTVLJkYvNyQkIjMpKioqXGkmKilmRDEiRjMkITNUOSY0MTZfPi0mRi83JCQiM3NtbSJIW0Q6MyJGMyQhMydHSCc9KW9jLXUlRi83JCQiM1hMTCRlMCQ9QzZGMyQhM2k6cCJROG5UOyVGLzckJCIzUUxMJDNSQnI7IkYzJCEzPWpMOzJrMWJPRi83JCQiM2ltbSJ6amYpNDdGMyQhMzdxdVJXMyQqM0tGLzckJCIzV0xMZTQ7W1w3RjMkITNSZFAoKiozKio+JUdGLzckJCIzLSsrRG15XSFIIkYzJCEzJGYhXCczcyZILkRGLzckJCIzPkxMZXpzJEhMIkYzJCEzZydcQTdxMjs+I0YvNyQkIjMxKytEQDFCdjhGMyQhM3NkSXlMIzNeIj5GLzckJCIzcG1tbUBYdD05RjMkITMzeUohUXglKj1tIkYvNyQkIjNNTEwkM3lfcVgiRjMkITMjMz0vaiozKj5ZIkYvNyQkIjMnKioqKioqXDEhPis6RjMkITNjYkJRayhvKWY3Ri83JCQiMyoqKioqKipcWi9OYSJGMyQhM1NSUDpeKClleTVGLzckJCIzNSsrK05mQyZlIkYzJCEzW18hZjI1bTVBKiEjPjckJCIzTExMZXo2OkI7RjMkITNwPVdPYlZOUXpGW3E3JCQiM19tbW0iPUMjbztGMyQhM0trNSlSPyo+bWxGW3E3JCQiM2dtbW1FcFMxPEYzJCEzXHMlR1Z5OTJfJkZbcTckJCIzJSkqKipcaWBBM3YiRjMkITNWRidHLkdCYFUlRltxNyQkIjNZbW1td3k4IXoiRjMkITNLbE85VCJvTGIkRltxNyQkIjMvKytET0lGTD1GMyQhMyNRISo+NCtUOnAjRltxNyQkIjMhKioqKlwoM3pNdT1GMyQhMyMpZiVvVWkkPWE+RltxNyQkIjNlbW07SF8/PD5GMyQhMyU0SEdaMGpIRSJGW3E3JCQiM21tbSJ6aWhsJj5GMyQhM2xYeHR2eCEpPXAhIz83JCQiM0tMTCQzI0csKio+RjMkITM9W190UlBEeThGaXM3JCQiMzxMTGV6dzVWP0YzJCIzWTRaKkg/JnlmUEZpczckJCIzbyoqKlxQUSNcIjMjRjMkIjN3VCNcJz4sYW54RmlzNyQkIjNCTEwkZSIqW0g3I0YzJCIzcy9pR3JLUGw2RltxNyQkIjMjKioqKioqKnB2eGxARjMkIjNzJltGRyxzR18iRltxNyQkIjN6KioqKlxfcW4yQUYzJCIzIlF4RlExWUskPUZbcTckJCIzJSkqKipcaSZwQFtBRjMkIjNpbDwoRzRvKCo0I0ZbcTckJCIzIykqKioqXDInSEtII0YzJCIzcTY2RC5oQ2dCRltxNyQkIjNfbW1td2FuTEJGMyQiM1N5dUBdTkZsREZbcTckJCIzdSoqKioqXDJnb1AjRjMkIjNBRFA9YT1jY0ZGW3E3JCQiM0NMTGVSPCpmVCNGMyQiMyYqKjQ0X0tgdCFIRltxNyQkIjMnKioqKioqXClIeGVDRjMkIjMhellgI3B2elxJRltxNyQkIjNDbW0iSCFvLSpcI0YzJCIzJ28hR0pEMERrSkZbcTckJCIzKSkqKipcN2suNmEjRjMkIjN5VypcLDpZYEUkRltxNyQkIjNlbW1tVDlDI2UjRjMkIjMnZlxmUSJcVVpMRltxNyQkIjMiKioqKlxpISozYGkjRjMkIjNCKlwpNGUjW3JUJEZbcTckJCIzO0xMTCQqenltRUYzJCIzNSR6US5jKCoqcE1GW3E3JCQiMzBMTCQzTjEjNEZGMyQiMzJVKilwRHciM14kRltxNyQkIjNrbW0iSFl0N3YjRjMkIjNkJz5NXilSRVJORltxNyQkIjMlKioqKioqKnAoRyoqeSNGMyQiMzdPaGFtU3diTkZbcTckJCIzVW1tOzlAQk1HRjMkIjNBPSkqZWtQTWtORltxNyQkIjMvTExMYHYmUShHRjMkIjMzcCF6YHQxTmMkRltxNyQkIjMwKytET2w1O0hGMyQiMyNbPDRcKDNmYU5GW3E3JCQiMy8rK3YuVWFjSEYzJCIzKClcbGxtIj4hUk5GW3E3JCQiIiRGLCQiMydSIVwoKVt4TjpORltxLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYsRl1cbEZeXGwtJStBWEVTTEFCRUxTRzYkUSJSNiJRIUZjXGwtJSVWSUVXRzYkO0ZbXGwkIiNJRl1cbDskITFbJT1pLFExQCchIzskIjEjKWYwPV0rX1tGMw==