TUZOV3RLVWI8b2I8Uj1NRExDZE5WWlFaQz9bQFpJX2NVcT5sS1pgTlxcQE5kXFxRZ3F4SGlKRFFrXFxhc115VUlcXHM6WE5JQEpETG5aQUpTZFJKRExTXFxqSlxca1pATWpdU2xQTXFEdEd4d0dtU15sdl5VcFVoU05hbXJYbWpIc3RIWWdtTWVJc0NETEltUGtEVG1xWUpgVnM9S2RMTl5ETTxhTjtBTVhNblNcXFJObUo7ZG1LRFJASG11aHlpcXFvdW5oZXV4bXVVeXhvVHh5SXJ3ZFFxWHF0UHF0UG9lcXhxaVR3dXVRbVREcVJCRE4+QEw8PUtbXFxuOk1XUmVKPkBMPEM8TE9RXFxqSkxCOjo6XmpEaVpbXmpKOjo6OjpCTm1HQkNGPj88Ojo6OkJec0dAa2R1P0JRbVVzZVZQeXhAb2JDS1hJaUl5WVRvaUR1T1dvUVdzcXRsZ1ZTd3dla1RmP3NlY1NZXWlpcWk8eVJ5S3lJUWhhdVNVPVd0W0lNQVZgVXRGRWlfcXZVR3llV1JSeVdDQ0Y+P1RzP0dAc3V3d3l4YWV3RVQ+Z0hMbUVwd3dSSUZnZVdoVXlGT0VzS1RgdXNYZ3NERWM6T1lgR2h3aXJJeVloU3hRW0dKd1l3QXVBQVVrW3dJW0ddQ0Y+P0Rkc0RDTXhBcXR5S1loeXV2R1ltc1U8Z0RCUWdPVWdeSXhvWXdXd2lrS0VJcUhEeUNOSVZVeXVUUXk+YUNXU3k9ZVZxeUJwSVU8PUNbY3lERWlKeVZjO0hUV2dYTWJVc0hnTXZFPWROZUQ7VWhLO1RQR3hGVWdhWVV3U3lZZXlUeXRyU2I7PUNbWzpASjx0bDxUTmRVVGBgU0NBS1k9TU9pd0lcXFBZbVlzWHhbaVFvaVdaQE9dWXRWYXVmdG12WHhIYXN4XVFpQVloSVVZXWp3cWxKTFJEdE5vWW5DUU5BeVVLVHdAaXk/dXFQeWx5RXFDWVh5aXdRZXNtbXB5eHVveFNYQHVQWE9JcVNSZFFMbXV1cXRjZE5lWExtYG1fQHF4RXVOWEtGYHZgbVduTXY+dHY/cW5WTEtjeVhLRW1GYE1zTGxPQGRgYG1tb2t2P3dwWHVsYF1hd2RnYGU/R25IQHBJUVxcPE9uQ3ZzdXB3UUZnc1hyc1lxTk5abkZ4YXFvWXZvcWlhQGZaXVl0eWZpVm90eWZ4cWBtXVdbYGhjZkZtbEdaP3ZyZnZmY25vWW9wSl9wdGF3PmlibWFlZ3ZjP2d0a19qaGh0ZUh5XlFseHZaTkZbd0lhYVBeR0dyV0BcXEx5bGJncHl5X0l3eWNwcFB4aEx5XFxwQHVBcWxucW1xYHVsd2E7X2F5QWhpUG5rYXdJP2VXYW5cXEZfVWFzP3BfTkdfeVFbPlB3Tld5cXhnWXFdY19iUUdfW05pXl5cXF9XdmhgXFxSXnNGYGJraGdJT2BpQG9aUW1ycHU7WWJBUGJpeXRmVmtkWHBiSHZHZ3FIeXJ3YVpTcHZaTnVGd2ZBd2pNb3E9b3hBYXNJVnlLb3lbWHJASGFdVnhrd3dDR2pCSWZCeWVpeGZCdmdLd3dHd2RAZ3hlT2lfWVttYV5Pb3RsP255dnZkYGtbd3hDWHk9d21KeXddTmtDZ2ROUWljb3FcXEh1cXZfXmh0PXhfXll1QU5bY1dmeVh5alFvUUBhZ1l3UXleaj52W2l2cWluQXdlbFl3SW5jWFZcXGBeZk9IYnluZlBZcGR4XFxaaWRpSGh1aWd4ZmlwYF13cXBUUHlmRl5LaWhFVmVDP2dkT3BxWHBuaG9yUGM9aW9jcGU/T1p1dmN5eGNeaXJfcW9MTnRURmB5aWllYWJUbnVfV1tLd3FQRmloZ25CYW5xUXBIWV9GaHBVcXheX2NdUHZqWWxZcWdxb3BnZ3dBYF1NaW5reW5GVmxxYG13b2JIT2FGcWJiQW9uPmB5T2BHb212cHNJTnF4bm9nYXlocVxcYk9hT29cXF9RYnlHb2JZbnJYZGd5bF95X0x5aT1xXXdeYzpIdF1XcGVAY2I+aExodFd2Zk9QXj1oaWlxcXRRZ1l5bFhPbHNHXz9mXkRAZl1YbUJhWndAdHdxdE4/ZFtpY1tvZ014d3NBcVk+bWFBaT93X2RHZ2NHaGx5eHR2d2hZcWlxc3Z3Ync/dl95XWFxbU5AXlt5bHk+cmtAcHRwWnRpYE9neXk+eDpZanN2eGZwd3FgbVtBZmFhc1NYbG93c2BEQEVXdWNpV3FXdUF4Z21pPHdkUVVVcmV2QV9YYG1VYlVTd2djXXF4O19GVUFpUmN3VWt0YTt4dTtWUGlXVnF5Wj9IRVFjcD94dGlZa1NzVndTeWdzYV9jX0F3cWd0TnlWQ0NjRldmSl1Ha2VkQXNSWz1XRFVHVkt2aHlXdHdId3dXQ1dnTl1IQ3VnXFxFYmdpZ1VdWW1vU2dpVV9xeWtLWHQ/c2VTST9teGhfVnd1eDs7Zk47UltDeG1DZnQ9eU11dF9taWlLeWl3YmxPdFtBeVV5ZnBbVlNvSVd1eUdDZEdTU2lFWE5TQ01FRGtZaXh3ZEN3dHdVd2FLc0FzRFY9ZFFPZEttRG0/R0ZfSGQ7SERXZ2pzUkRjWGF3d2I7WXdfZ289eDxZeFRVVV0/dXNlRERdZD9RdVZDdkp5ck5fR0RJeXJrY25lZj55UzpFR25vZ3F5d1l5d0JDVDt1eEZvaGdjVHVJZVJPYzo9VDpTYmpvaD1JSFdJU3Y/ZGFFQ3V5ZHdVWFM9ZlxcRVZwV1NSR3lcXEVIVEFJZFV5QGNkZ0tXWT9jTXVoa3Vld0FmWXlkeHF0aVVHd3dzTEtEVUVyQkFXRlNzb1dCRVl0dXlkdXdFTUVoYk1TeV15UllpQGl1SG9ZRT9zY3lkck9DQWtWajtTP0lCW291RUVVallEZml5TFFWeVtERHNJal11RUVQeXVLSmxQbUV2YUBVYmBxaXh5QHlzbVRQZERYYlRzRmlqeFFUP2FXP3BLQFVLT1lLYFVtZ2BqPmVLQ1VrbV10c015QkhNPlxcS0Zwd2NZTmQ9TXNsS1RQVklYbFFFcFFdVUBQbF14cWpleGxBcnZJUklYVklkSj1hTWtdUlNodHNBb1VVdHZpUlFcXExKcEtjaXhdcVN1QXVRYUpqZGtLWXhMaUw9VXBXVHI6aVhuRUo/RHlXQVg9aXhTbXZiTXlibE5McWtTVFBgTGxzcGpEeUxdZG10SFE/SE9ORHZ4TXNvUFZwcHlWeEpDRFh0ZVldcFlgeG15VFJkTVdmRFliSW5BUHBoaU5ESFdPUExQRXhGRHd3PXJ2bUpuRW5QZFhiWG1CRG1vPXdvYXNPVHFHWG5weG9ZWHB2cFVpcFZZUHhEeVJJRE1WZHB5PHZ4TGo+RFd3dFlWeUpKaVlyTEtjeXA/UXdtaGxKcW5fYXdtYGo+XXRmTFlhXU9WSW9CcHVTTEtBRWtSaHRlQFNSUGs/WG5xXXNMYXNhYEtaeVdrPHBYXW9LWXBfZHR3XXNQTEpoaUxzbXd5YVVtRE89YHRddVBzVFVlUWxpSVNkVXZBaFVNTG9OdWtCSU9tXFxSYHhZVl1va1h4TVhTeVlwRVxcbUJkU2xxdnk9TGVteGFZWU1hWHZUV1lZdExVeUF1SztcXFlmRGxLVHQ+bVZYaU5QSW9RTE1zZXVScHNlWXlMUHl3aXdcXGRXcHVteUR4dGhZZ1VxTG1WeG1yeHh1RWRRZVhOb3hYb2hteXlZQmBYVHl0c2R3XFxEcFhxeW10d25FS1BoUEQ8TER5bVJQdUpET2dsVmZcXFhqVExbUHhKWXhFTHZoWVdQXFx2YjxLZGFtakhtRXRPYXVXbVFtcWlveVlUZkl1RVBsZXRMYGFXPkhvdjx3cEF3W3VPTHRPTVlOTWFRQmVqUl1xbFFzZVRZWT1scEBSaE1PUURYbFF0P3hvXFx1b089bmVMVmBATD5YWTp5Sl10dWRgUWBAbENEUmBUVHh1S3VQWV5oalNta3Rwa2NZd1xcUHJiUHdEeGx4bVd4QFJqWXQ/XFxMTWFwPWVVUXVvZUFRS2hsdmBTbFxcdHFlVWJUbz5cXHlESW5FZFRFdWx4bVJkeVNYTE5XaVFjdHZtZXVvdXRzTFJVUFBnRGtcXEB3ZGRyXFxMZ0NQbHBgZWdfZUJXeWRpZnFZc0F3b1VndT5XYENweVpwb1leZnBeZEJ3cWduZFlob15xYF9eblxcP3NyUWViZms7QW1bQFxcR0dual5cXEVwZHVXdV5ZdnVHbHQ+cD9fdkdYanB3cm1nZlNWZ2ZpckxQXWpPbGVgZXJPX1xcVmc+b2JJaWxOUWtzT15XVnE/b1pZUF9MWWhWX253aGJeZ3VvTmx0QHlVUWZvXnFtQHBucXA8SWx0aXQ/UV5peHFacXd1Pnled2dzd2V4WWxXSXlHcGlZcXl1RmxPeXdOYHRcXHhlRGhgYG9ncFB0PmBxUGdgRWBxZmhfaGBpWnlbXFxWZ2ZheGlBZWFudEJZeGxYd113eElmYnh3bFhocGdYXVtOeExxYnFgX3hnaEtgZFNXXlxcT19HbmVyZ3NoX2lwaWFtaUZRWEFtc3hdc1g7eUM7eXFzVXZjdFFhZ2Q7V2BRckVFeGpRaXhreUBNdXJreVVjRnFTY1RxZlNfUmNxeVBrVV1HV2t1VV5rc0JzZUlZU2ZpdWNJZHZTVFp1c2FzR3ddeGlLU1hFeVxcV2U6O2Z2a1k8R0I+d0N3XVZJdVJ5cXdxdUlkS1VRO0dPUUVdS1lVUXJoZ3VJY3lSa3M7YVdHPUVSY3luWWdlT1NTY3hOeWVbc2lLS1Z3cVlAX0NXS3d2aVlsSVM9X1ZqZVVnX1hXP3dLZ2JFc0RgZXhbP2h0R2NNdUdrTXR0RWVpS2ZmQ1RVQVVRO1RdX2hrTWRnWXdVeWZGb2lMY3ZzV2M9PXR3W1RkdWlnb2RwY0ZeX2duY1djaVRmS1VHY1I8XUlOW2Ngb3VnV2ZSXXVVO0hlRUJAaUdkaXVBd2lnZUJaY3h2UVVpWVhaO0Y9RVRyeG9CaHhYeW4+UXFwdWxCYW1pRHFBQVB1RFRiTXlRdE1RRFlvdW5CSXF5YU5sbXlXTE5hXVVkSFNReVlpcVdJWXlyQHNvWXlWQXBzWFh4QG13XXNGWUtEaHJWeW9FQHZ0eFRvYHhYVHlFeXRtVXRlZHI8TFNJaXBweXdFUXJZRHFfRXJmYGpRRFNQaFA8RFRGTW5ERVJKYXM/XFxsQkBPdVFqcHlURlBYW3hxbmRxPlxcT21tTl1sU0JNdVpEamdMazpdVGZgcUxAb2V0T2FVV2lEdl1QTUBtaERXZEpIa1Rua2NRWm5ebU9XcmJZW1tOYm93cV4+W0toYXdGX2NoXWJxY25uW1I+ZF1WWmRfX2F3bUg/ZVdhY0NIZkBWZGJnXWRpZkNWZ11XaFpIXmZxYURndHhAX01QeV5mY29OYWB2XFxtaGNjQW9HT3lIZm9oUGpbYWdNcXlQbml4YFxcVFBmW0F3WT5kZj5gbUlcXGJgZWZuc1BvXzp4dWZpWlJgeXhHcEhRcVtWeE9RYXVxZnFOck53c1VObFRJeVdQck15ZWp5d1xcZ3N2eWBrQGZ0ZmZ5P2ptcFxcQUlrXU5eXVltP1Fta3dqUmdgPVZ0c2d1XFx3cUJwbFJJW3RoXm9oeXhgdXZwZnZPY2ZwcnFJa093YFZfb1tweGl5cnV2XW13eFk+c3BPaElneW9ZbWh5XWFndVJIbUdHcEh3ZVpOYHdZXFw7aWNNYGZTZ2FKb14/R2RxWW9dT3lBTmJ2XnNKUG48WGhIX2hXQHh3bl1hb3A7PnZUSWhoeHdBR3NHUW5uR3ZRbmhZcWlpZm5ySF5jR2JSaFtrX115b2tqSHRsYGl3V2JESF9CRmlLXm5OYGxFZmF0TlxcPGFjQEhqbk5vaFhyXFxWXz9HZ3VQZzp3XUNwZ2ZfZ25fY1tQZ3RPcWdpZ3FYYWQ+bFBvX0ZBcHBIYkZQa1tebGFZZkl4ZWRwYGhecGZHZGNuZFlJa1xcYG9ueXJ4V2NCd3VaSF9nWWY7RmpyR2l0Tl9OQHl1TmdhaFxcRnBuVWdeZ09kX1lcXGdOd09od0hIdUxoZHFeZE1vX0xRa0BZaHlIXFxzV3dRaXFJWW1weV9zWHlYYXl4RlxcZkhsO0B3TVdseUlwamB4XXlcXGFxbll5eEJPZUtHeTpvd2tIY1FRcXhQXmlub3FoanF5W2B3XVVAaW9vdFFXZz5hZENHZW9ub3M+ZVBveWVRdHNnZU1ocVlOa0pZbHlpd1lhYENvbG9GWlo+eWVAY0pPZ292Z3I+ZEFJWm1eXkFZcXRgaUl4YkNwXFxfb3ZRYFpfZmRoXnNTP1t5SGxpZmVaT2ttZnVZbl5aeV5zUXBlZnJFWGBIYV8+R148QWtoT29QT2c7SWFEQV9ucG1gYGRgV2VfcWJpV2lmeGJKaXVXWWxtVmRLZ19ESWRfdnBrXmk9TmNnPnNBSG0+SXBZUVxcTGd3dGliTXhuPEZ2Q3B2VEh2Umlib1Blc25bV0ltS1h4a1lrXmZodlhgdWF5a3ZnT0Z1eVllQ2dxckhya1lyQlFmUlduUmd4WEZyX25iV3h3aHdbaVdfZmZxUk9mR3ZhRVliS05jVUhiVG5pTG5bXU50PVhiaXB3RHF1eT5makBlPW9yYXFuaWhwT0hvXXlvYHd3PUhpTXhieHF0Q1duX2ZobGhtQUlsd3BdT2ZtWkdldz9iQj9lTT9hUUduXFxXaj5waG1ecWZfZWRRZ2VXWk8+bXJAaUdhcFpnc0dQa09vX3B4anJZZWJeeG9xX05ocWhPXFxFPl9fRnlsWHdFdl9IV2B0aWRzXlphQV9dQHRgWXhKeXVyP3g7eVp3d2tjcW5tZ2xuTmFWR3NnX1t1cWlfWV9fUG5dZ3JTX2tMaHlwTmVVUG54RndCaGN0SW9wR2xQX11QYGZlPlxcZ3BhQ2dsY19cXGA/YGhpcW92YEdQYENQYl5fXnZfcTpIZ05Ib1ZfW2xxXT4+cGR3anJYYDxubkpxbUpPaXNOdWhxZ3lfYVNfaUFgckhocVZYbz4/aVlnYXF3dGtxW3V3WF1nO3dGX3FFVVt4YHNXX1FGQ1FodEFiP3d2WjtlQUlUTktmZldVS0tHQnl0dFljbElYYW1HWFt5Qml0bD95dklDbG9WZVVVO01TREVTT1dDV0l5cztXbnFzVkdiOmdpaHNUYWVTSD9ob1tJQkVXQ1NITUdjTENlY09lT191TFVCdXFZd0tyVE9Dd2NjdG1IPVVnbHd1TEtSXFxZZHBzYkRhc0I9Y3FdaGJvZmZpV01paVI9VklZUnM/WWNVUnJpRltfVWJzRl5lUkc9YkJ3YmpTaG9jSD9nZnFfWVZxWHV3Y3RXdXRHdj9NZ1k9R1ZrSWQ/cjpHUnhzZk5XZ2ZPRGI7eVVPY0JrRGdXY0VNZHhzRFJHZnJbWHJBaEFHWVBpdGtPcktxZEZFaWpjZVhHSFxcUVdAbUhsWWJrZ3NFc0JIXXR0XXN1ZUJcXD9XY0lGZ0NDY3lDOmFERFlTUnVUZT9VZWdIW0tzd1lpPXFZRT1TT0d4PHlnP21VVk1GU1V3VV1iRkFVclN1dWVUdGFXX1FGT3FoPGl5XUd4dEVoYHFZT1lVaHl5P2FXS3d0cEFTZGd5SUN1ZU1SUldIR0tHd1lFQWd1eVtzS2F5ckd3d0FiWm91d3FiVWNXZD9FTmlDTUNJcD1STGVVaUdJbU9HU3l4SklEbXNnXlFzZGlWdFtiUz1DRkFXPklzXWtTXm1GRmFYXkN3bUV2VlVJYEdDTkVVT1RNcWRXRElZQ3hSP1hUZGlqW21vbllXRGxTVmV4cGB4PklYSGhxZXFvdVBOX0lLWWFLTGRNRkFWWll2XzxyZUh1Rlxcd2l0bG1lUHVpT1tkVEJJd2lRcHlscDxAcHZFWWpRV1VRcWNcXGxdQFZeaHF0WFFxQHV5bHZUXXJiZFZMZGpiPVN4XW1rRW1CcXNpVXFteEx0UFhrPXlpUGxkSXdMVG9AQXBDeXV5WVVxVXlgVHJcXFxcTmhNWXlsandIdUNUT1VQWW91bFJVcklxc09tVFphTXhcXFg8bVVFXFx0c1xca3J0dG9NcEBdTGNkb1hNVHBQbEpkdHlMblJlVm9keWU8blJdcG94TElhVlN0dGR4b2lteHdsTW5UWGtseU5QdkNhS19UVGhMS29EdWp0VEhwT05gblZQT01wc2VAdTxMU0pRcldlblxcTHNkYXQ7dXZwaUpcXEFRQXFUXFxIa0h1VWRVVm55SnY9UHVQazs9THdtUDp0eDpoSnJ0VGZAVTtxWUVxWUU9U25cXHhTVGs6QE9LbW94RGxYSHBSbVd5RXFvaFBhbXY8SWVWPl1VZmJzQHlHQHNmaG5TeXJYcGladmA8WXRNd3hyWHVrb11LWWxcXHFucVFaX2dyVGhcXHV2eVFxaTtoaVtWZVJ3aWxZX1xcVmV5YGZlZlpRQGtmXnlbb2lvWWF4UWhRR3FSaXhXYWdfWGdxeVtcXHl2T193bHBuT15rYmBpdHluSXhySHl5eGlbVWFhV0ZzOz90RmlqUVB2W3lcXEBwcFxcd2RicXRZT2NqP28+X3d4WWpBcFtzRnZrZnRQYVpgSVtEQGFbRmd3QWNMSXZvUF08V188P2VMWXd3YHQ8TlxcQ3B0WU5jT05lT0BjYlBcXEF4a1Roc0ppaVc/ZjxnZGRocFJec3hXeT94X3hHbHh2Zj5gZEdQZltnZmM+XFxEYV5ESXRtPlxcP05zUF9eVFdlUUBhO0huVnZdRT5fUE5jO0FweWZtYXdpSm9qYHhmaE5kUkhgYlF3TkZdb0dqUmdoeFluRnF0U3ZsRE9beD9bQW94RE93WllsXFxna1Rwb3dBbnZPZExjS0tWRz1pRE1UYWtVUUN5O01JTDt0WkdkXFxlU3hncl15QmJrVnR1Z2xhc3JXVEx1WXNRZ2c7aHl1UkxleF1hclRveEtzeHg9SEU7aG9jaWJzdV55eGFpVT9xZGdfeV5veXZJWWFbSGhNV1F5eD5RSXVxRkNFUjs9dXZ1VnZhaUxrR2VHZ0I9VnA9QltrVndhYnVVTHJtUUtVbjxgbXlYcnZtT2hxcWBFUlBJeVh1dEFYbHFdVURNblY9bU15eEdpc0dJbFhtbHRBU1NNTEhRb0NNUXZwVFRYeGZcXGpZZFRgXFxvVlhrdGl1UERQdHRUc0RrbHBSQkVvPW1XUFBScl1QP1B1XlB5UWVOdHFOT1VWVVRuWGRYWXBqTG14cVVwWXFUXFxQVktkbkdFV3BoUnR5TnFwdkhhVW5wbk9Ua1FscEJxcU1xdVtkU215TW1YbHdBcnhxUU1NUUhRWU5tam9weUpdVmZ5b2Zhanl1Tj11UWtFVmlRT1dZWV08bT5FT2pUWWt4V2dYV1Rkbk5Yazt5bnRYdWFsbEJNS2VcXFdhUHF1ZWpkWVd2bFltVXZgeEs8VE9gdVFsZW9CeW14dE5jVHk9QHdIRW12cXN0SFNmZFlfSHh2PVJ4WW9odExjRXFXTVRnWFNXaWpqQVR4UXlNaVJIZFdnRFNTZXFcXFRSVz1ZYEF4Zlh2YWh0VUVqbXRMaj12cFRuP2VyT01QRmVKO0RZdm14d1R4V3hxa1RYS1xcTDtRd3Bnc21vcGV3cGdJeEdWblV2aFBRXkpHcTo/eVFxc0h2Z2FQXFx5VnVod3FRQG5jQXFXZnhfR29peGhbaVxcTHB4WkhgdT9cXEFhaGRfc1Jgd1Jvc0Nvdl9pbFl4XFxBVlxcVmh5Smljc15kdWhqZ3BqWF9bXFxgdU1fdW9OYlxccV9YaWRjQXd4eWJ4T2NZb3Q8T2w7Rm5SSHhWUG9LbmhWWFxcXmBlPklpWFFbR1dlRnFgaF5uWUFia1hqWl9rZUlyVmZfYnBxalBuc3BdbHBgY05yZFlqd3FgeT50SV95allpUUhcXExgYVk+XFxTSGZ5P15VcHNKcHVnb2ZKR2dZaHlpcHV4cWs/V3V0X3dJcVtxRnJtQXVuYGZfaG1wYXNpZlo7cWRxaF1YZl9BX2s7R19NWGRJX2BEYVpTV19Bd2h4YWRYUHdUP19qQVxcYlF3ZFFseXZgeHdlYGZxamlmc1d0ZWdfTFlgWj9rbm90SVdsYXFjd0Fqbkddc2l2V3B1cWBlb1Fgckh2WEZdcVF4PU5gbkF3cEZwdG9rRUlwdFhgX2hpPmlcXGxRaEdpdlRnaT52dm9HckNYXFxIQG50SHVdQXVDWXZ4dl9HZndFaW54aWthZ3ZCSWNNaGZ1V3JRX25rSXl5YXBJXnNLaHVLVnhJWGVQZ11CbnVZVm1zTmRYUGFwXmRgaFtoYWxUeGRwSWN1WV9cXFZfaE9nRGF3ZXdpW0lpU050az9zSz9aamllZ3lkcVl0aj50R3dxeXd5eEdhal5xS0lhYEFlbkFnc1FmVUFgalh0bXBbVnh2PnFjPUh1P2hxZ1ZvX1hpXFxhd0ZHZXB2Z1h5XkFod1lFX11SU2VpaHdDYHllWFVXaVlYTUFiO3NZVWFlQ3lWTkFzVGFnbj9keVlmQkF4PWN5eF1mTV9FZ1NIV09EXU9mQXFpQUNWW0NXS0FJO3VHWGNpVkNWRFdSSm1VYGlJX0N3RUt2YTtWQElGaEFTckVnR11pbkVmR1N1alNYTWNVa01lTGV2YFtScm1DXW9iXm1Ubmdob2dSZHljT19mcmVUZFVFPT1jSE9nRmdUdFt3cUd0QHNoQkNnVG1WeVhwc3RQVE1WdVlwTkxXRVh4UU1XYUBTZ2VXZ01VWDx5Q21OT0FvbnlyXmxXdEVtd3hVZFF0UV9lYFhnbXZ1QGBueVZsXFxhdm9WeVNgY0hvdXNZcWBWYz1nZFRIdXlQc0d3bV5HZUdYYFZGXUpZdlJXcEl5eGBBXUd5d3Nvc3RodXNGd0BfY3R2Y1RIZnhhXFxqVnJKZnZ0aXFBcXY/UHNrRmZ5eHBvZnJQX19GaWRzWHZGYHJTUGJsP2ViUXVaWHZKX2NcXEFfckZic0d3TWl5P2FgcU5UT2JNRVdOT0lQWXNdV0NVR1I8P1NjZ1N2X1NfXXN2bVI8b2NPU1NLV0dPU3N4R2lmU3d1d2VqVWdxZ3lwQUJNR0Z3QVVOZ1RNV3l1VUVJPWVqQ3JtPWJaW1c6R2ZOb1Y/X3dxX2JKS1J2P2JTY0RgRUdqU0Q8Z0d4Q3lmT3JXPUNKSUQ8b1ZEV1hOV2NeZ0RFc0c7QUdoV3hkb3lMdUNNa0JqXXVFcXNRU1R0S2ltbVZOY0JhQ3N2T3hfbXNWR0l4T1NHbXRFX1lfUUdJUXhiUXJgd1V2W1lyUVdOV0ZOeUdWT3lPc3VUbWhGQGxcXGh1VXBZSGVQO3BZP1BZQFBqYnh0b3lqaFVxR3l4VmRVY0FSVUlZR3VqXFx1bVhxb2BZeExtV2REcEdoc1l5cFp0cTpQVG9ZeFo8dWlFS1tGZDp5eTt2XXJRY2J4cUVJYlJQaktoZlBmZEZWcU5XaG5nX2hIc0hwd3FHdnZgcDxfaVs+Xko+Zm54Yz9XbjxBd11wX15ecmtmakpHaWNIX3dRYmxRc3FIeGpRZlBPWkBub0dIXU9wdmVObW1mdmtWdm1Zd19JYEdRc0pudUxmeEN2XUtmeVZneVQ+eUhQYUBoc1k/ZFVHXldOeE1fcldndFJuXk9OcVphWjtZXV9BZG9nW19gdE5eb0o+W1pQZDtHZV1hX2JvakpRbltXbnNQaXVAXmxPbVh3YWBZcGJhXWVAYG1AbGpwYHB2d1tgZGdfZ3BJX3d4a3VpYXVHZndhcUpxeVpYallxX3dReUNneFVhXkRBZWNoZ0Q/W1tebm5gWmNhWz9na1BmZnRJYV5ZZlQ/aktBZXdpZk9eXFxMcFxcXUZyUmZjRU5cXG5BeDxnazxPbHNnXFxkPm47R2JNaV1VaXlAX1tHaXJQQV5yPnd4V11kR2ZqZl1WdmBpSGp2SXBZYVxcdl5zcEB0bVFzQUlzUE5acHBtWT9kV1deZ3dla0hvSFBxYEdqU3FfeGd4XVB1alBkaWlwTFF1ck5nd1B5b1lvXFxneEFQZm5ZdVxcX2xreHFwWWU8P1tbRnRiSF9gb3Z0eG09PnNBSXZOYWlrZlpTSV09R3c6WXNGWVt2YGhbXl4+Z11jWGNsdm88R3JERnI7b24/RmJfSVt0dlxcYUlvT3lqXUBfRD9nRXZxdEZzQT5bUkFfcT9sTElvaGlvVGhdaWd0dz9uaEFwUEFjVlhpOz9lW0FucHhya1BoZ0BeV2dzZ19dUHluTkdxSnFleGd5dkZ3eEFmUHhfYk5sUl90eFdlRlBgcHlueEM8PUNDd2NPT2hLdVVaVXJXZVNlR0I9YUM6dUU/eXRRQ2M9SUhGUVg6eXc6a3Y7RVZxaURfc0c6U2Q/T1hQSWRYbWRyY3Y7YUdMW2R3Y3ZaS3dxbWVsXXI+V3ZlRUdBXUVvQURbP0ZkVWlveURKdUlSQ1dQZVdJU0hOT1dtTWRnX3Rwa0h1YVRfY3RnU3lnQ0Y+P2REZVlhV3l3cXRxSVVfUWZWR1lLS1JCQ0Y+P0RMeUVPV2NUa1RJQ0Y+P0Q8PUNbW0ZDO2dWPUQ8PUNbW1pDX2o7YG88TmJCRj5Eb0BsVGhgVWN0VFZFWD91bXd4cW9Zd1FZc2V5b3lwTz10SkhcXGw/VWtQZFRfaXBiYFVKTFJCUkJDR21TRXBbV0pnQl9LVXJdaFJ3dFxcR1VOQ0Y+P1xcPmBsU1heQW9rbklrZWdkb2FzP25kXWhtWUBsUGlsXm9lPkBcXDxLTHhRSXBRdEFfcF93UmB0UXl0QW5ralh5X1hpXFxJa2Fedmd3Z3VXbWZoZXVwZHRYcXVodmxhaEJIaGZ5d2Zhd05IYj1wWkNRcj9YW11ndm9IaF1xYmNBd2JBbDtZakFWc194bFhPd1ZWdW5IZ01gbWxPc2NOYHNPeF5hY3R5ZlhIaUBvZXRHd19GbXF2Z1hfdnVHZW1wZkdAXjpYX3BAZkxhbkNPeG5ZdElXYWA+ZmRhaV9vW0BAeGNZeXBpd01wbVhwXVNuYXY/cW1AZmRQXmJBZXh2dER5amRwWz9XY0JGXj5APG9paT9XYkNWeDtzYVFyRnVIaF11ckNleGNZdG12dUFla1NWXkdnY0dzc3F5ZlloSVFzWGlpdWVWeGF5c0lkbFFJZ2FoTWFWYGFzU29zcWl1dXdYdUtCdk9JcWV1dGdYbEV1X3Vkc21lVVtkaUdjc3VXcnFJdF14YkVlb1NXUG1WWUtzd1dWQXFDU11pckVoRjtFajtScGV3VGl2YlNTcndnWldWc2FVZTtDQE9mX1tiSktKPE1vRDxLRUFNQ3hyQk1ZeER3TlBWW0B0P2BXRnB0dUVtQER5X2luTlRLSkF1UkFtb213Q1hMYUxwTHFYb2VYX2lZaWxOYEBwSWRqYm13VklxSFB4OjxuOmVNdjxZalxceFJtUVFRc1FMUW5VTDw9S1tcXFpPVlpAd3VbXms9YXRiP3VqSGY/dm5FT3hUcGVWSGlgSW1MUXRMUXZSQF5nR3VsaGJUTl1UTmtMb2I6QHdIV2VxcGdHUXVRd2RRd1xcdF9vTkBkc0BePjxIbmdob0dtT3RAd1xcdFJSdFF0XXhiRXJjUWx2cG5RVFRhcFNvXXNEQFJ1VVl1bXRGPFJMaFY+ZHBvaHB4cFlVRFJBUVNDZHNcXEBLW1xcakpMUkJlcjpoWFE8dmU8WHZBeWtFdW14VklFcmNRPHljS1VmQGVWdnFEXFxvdkVfeERFR0NPc1JJaF1VWEhJYnNnVFJJaHZtZ093WFdNeEtrRj4/RDxeZEQ+aEhwaXJJdkFobXlIcHJYdTtYWkFOW0R3bF5pYHdBakNfXFw+eGhNeWdbRnNsTmptd3N3dnRTSG5yX3ZLeGJWZmo/RmRpYGw8V1xcbl9vTkBgVF9cXFteakpaP05qT3ZvUV54TWhmRz5dZ05rSk5iQkJbW2ZCPVZnW0NXSWR1d0lNZ2ZWXUNHPXJFZ2VKS1JCQ0Y+ZHlDPHlPXVNWQFFreHVWeVdKcHNKaG5WXVNzdHZWRHV4WFZBdG1KTFJCPjtMTkw9c0RwdE9xSm5lSmJhS0tgbEVMT1JcXGpKTFJCanZdTEU8dlNkT0RFT1JkbVdkTWZoUjw9S1tCW2N5VjtlPGViY2tEeE9zP09UajtDW1s6PFNOPU1nTDtEPmR2PEBMPD07Ojo6PmRzPDo6Ojo6W2JEaUJbWzo8U0NBeXk9TENJbkVBTFdEUWE8Sjo8SjpgblxcdE5cXHRUWzxQOzI7XCJce1x9
Suite r\303\251currente du type: u[n+1] = f ( u[n] )(c) Alain Le Stang - "Apprendre Maple" - 2006
S\303\251lectionner Edit/Execute/Worksheet ou cliquer le bouton !!! pour ex\303\251cuter ce Maplet.
restart:with(Maplets[Elements]):with(Maplets[Examples]):with(Maplets[Tools]):nomFichier:='nomFichier': nouvGraphe:=NULL:Proc\303\251dure graphe_suite:
Cette proc\303\251dure donne pour r\303\251sultat la repr\303\251sentation graphique des termes de la suite r\303\251currente
de premier terme NiNJI3UwRzYi et d\303\251finie par : pour tout n entier naturel , u[n+1] =f ( u[n] ) .
f : fonction , u0 : premier terme, nbiter : nombre d'it\303\251rations , titre : L\303\251gende du graphique.
graphe_suite:=proc(f,u0,nbiter)
global nouvGraphe;
local a,S,k,mini,maxi,m1,m2,w,t;
a:=evalf(u0);
m1:=a:m2:=m1:
S:=[a,0],[a,evalf(f(a))];
for k to nbiter do
a:=evalf(f(a));
if a<m1 then m1:=a end if;
if a>m2 then m2:=a end if;
S:=S,[a,a],[a,f(a)];
end do;
S:=[S];
mini:=m1-(m2-m1)/10:
maxi:=m2+(m2-m1)/10;
w:=[ plot({x,f(x)},x=mini..maxi,color=[black,blue]),plot(S,x=mini..maxi,color=red)],scaling=constrained;
t:=Get('titre');
if length(t)>0 then w:=w,title=t fi;
nouvGraphe:=plots[display](w);
end proc;Proc\303\251dure termes:
Cette proc\303\251dure donne pour r\303\251sultat la liste des premiers termes [ u[0], u[1], ... , u[nbiter] ] de la suite r\303\251currente
de premier terme NiNJI3UwRzYi et d\303\251finie par : pour tout n entier naturel , u[n+1] =f ( u[n] ) .
f : fonction , u0 : premier terme, nbiter : nombre d'it\303\251rations
termes:=proc(f,u0,nbiter)
local a,k,S;
a:=evalf(u0):S:=a;
for k to nbiter do
a:=evalf(f(a)):S:=S,a
end do;
[S]
end proc;Proc\303\251dure MontreTable:
Cette proc\303\251dure lance le maplet d'exemples ShowTable permettant de visualiser la liste des valeurs despremiers termes n , u[n] de la suite r\303\251currente.
MontreTable:=proc(fonc,var,u0,nbiter)
local k,ts;
ts:=termes(unapply(fonc,var),u0,nbiter);
Maplets:-Examples:-ShowTable(
[["n=", "u[n]="], seq( [k,evalf(ts[k])], k = 1..nbiter )],
'title' = "Premiers termes", 'height'=400)
end proc;Proc\303\251dures d'enregistrement du graphique sous format .gif :Enregistrer := proc()
global nomFichier,nouvGraphe;
if assigned( nomFichier ) then
plotsetup( 'gif', 'plotoutput' = nomFichier );
print( nouvGraphe );
plotsetup( 'default' );
nomFichier:='nomFichier'
else
EnregSous();
end if;
end proc:
EnregSous := proc()
global nomFichier;
local nnomFichier;
try
nnomFichier := Maplets:-Examples:-GetFile(
'title' = "Enregistrer sous",
'filefilter' = "gif",
'approvecaption' = "Enregistrer"
);
catch:
return;
end try;
if nnomFichier[-4..-1] = ".gif" then
nomFichier := nnomFichier;
else
nomFichier := cat( nnomFichier, ".gif" );
end if;
Enregistrer();
end proc;
Proc\303\251dure de r\303\251initialisation des 2 variables globales :RAZ:=proc()
global nouvGraphe,nomFichier;
nouvGraphe:=NULL;nomFichier:='nomFichier';
end proc;Maplet:maplet3 := Maplet( Window( "Suite r\303\251currente u[n+1]=f(u[n])",
BoxColumn('vscroll'='as_needed',
["Fonction f: ", TextField['fonc'](),"de la variable: ", TextField['var'](3)],
[" Premier terme: ",TextField['u0']()],
["Nombre d'it\303\251rations: ",TextField['nbiter']()],
[" Titre du graphique: ",TextField['titre']()],
Plotter['PL1'](),
[ Button['Rep']("Graphe",Evaluate( 'PL1'= 'graphe_suite(unapply(fonc,var),u0,nbiter)')),
Button("Premiers termes", Evaluate('function' = "MontreTable",Argument(fonc),Argument(var),
Argument(u0),Argument(nbiter) ) ),
Button("Effacer", Action(SetOption('fonc' = ""), SetOption('var' = ""), SetOption('u0' = ""),
SetOption('nbiter'=""), SetOption('titre'=""), Evaluate('function' = "RAZ"), Evaluate( 'PL1' = 'plot(undefined,x=-10..10,axes=NONE)' ))),
Button("Aide", RunWindow('Aide')),
Button("Enregistrer", Evaluate('function' = "Enregistrer") ),
Button("Quitter", Shutdown())]
) ),
Window['Aide']('title' = "Description", 'layout' = 'Description', width=400, height=250),
Font['F1']('family'="Comic Sans MS", 'bold'='false', 'italic'='false', size=12),
BoxLayout['Description'](
BoxColumn('border'=true, 'inset'=0, 'spacing'=4,
BoxRow('inset'=0, 'spacing'=0,
TextBox('wrapped'=true, 'width'=80, 'height'=15, 'font'='F1',
'editable'='false', 'value'=
"Ce maplet donne la repr\303\251sentation graphique des premiers termes de la suite r\303\251currente de premier terme u0 et d\303\251finie pour tout n entier naturel par: u[n+1]=f(u[n]).\134nPour cela, cliquer le bouton ""Graphe"" apr\303\250s avoir rempli les 5 diff\303\251rents champs:\134nFonction, nom de la variable, premier terme, nombre d'it\303\251rations, titre.\134n\134nCe maplet permet \303\251galement de visualiser les valeurs des premiers termes de la suite r\303\251currente.\134nPour cela, cliquer le bouton ""Premiers termes"".\134n\134nPour sauvegarder le graphique cr\303\251\303\251 au format .gif, cliquer le bouton ""Enregistrer""."
)
),
BoxRow('inset'=0, 'spacing'=0,
Button("Fermer", 'font'='F1', CloseWindow('Aide') )
)
)
)
):
Maplets[Display](maplet3);