<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269714</guid>
        <pubDate>Wed, 24 Dec 2003 15:13:09 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269714</link>
        <description><![CDATA[wormball:  правильно, но помоему ето как раз развёрнуто в первоначальной формуле ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269708</guid>
        <pubDate>Wed, 24 Dec 2003 15:10:09 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269708</link>
        <description><![CDATA[vesper1:  Ты считаешь мгновенную величину ускорения и прироста пути, а в программе нужно все это разворачивать для нахождения прироста <b>за шаг пересчета</b>. Из-за этого и возникает такой трюк. <br><br><span style='color:gray'><b>Добавлено в</b> <time class="tag-mergetime" datetime="2003-12-24T15:12:14+00:00">24.12.03, 15:12</time></span><br>ЗЫ: А веселая полемика у нас с тобой возникла по поводу несчастной физики, а бьёмся мы имхо из-за разных исползованных понятий: ты говоришь всегда про мгновенное изменение, а я про dx/Dt. (в смысле дельта Т&gt;0).]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269653</guid>
        <pubDate>Wed, 24 Dec 2003 14:10:43 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269653</link>
        <description><![CDATA[wormball:  помоему ето уже учитывается формулой<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->d2x/dt2=F/m<!--c2--></td></tr></table><div class='postcolor'><!--ec2--><br>ежели её расписать, получится моя формула, а твоя имхо получается вторичным учётом етого же<br>мне ща лень расписывать, порасписывай сам, но помнится нам ето на лекциях рассказывали ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269617</guid>
        <pubDate>Wed, 24 Dec 2003 13:13:35 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269617</link>
        <description><![CDATA[vesper1: По этому методу вычисленная равнодействующая действует на тело dt времени, масса там 1, следовательно ускорение есть F, тогда vnew=v+F (vnew это новое значение скорости) тогда dx=(vdt+vnew*dt)/2.]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269613</guid>
        <pubDate>Wed, 24 Dec 2003 13:08:11 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269613</link>
        <description><![CDATA[wormball:  а ты уверен что ето действительно ближе к реальности, чем dx=v*dt? я почемуто нет ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269605</guid>
        <pubDate>Wed, 24 Dec 2003 12:58:23 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269605</link>
        <description><![CDATA[vesper1: :) У меня dx=(2v+dv)*dt/2, а точнее dx=v*dt,dx:=(dx+(v+dv)*dt)/2;]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269590</guid>
        <pubDate>Wed, 24 Dec 2003 12:48:50 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269590</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 24.12.03, 09:01<br>Здесь ты неправ, когда я двигаю точку, я считаю, что скорость в процессе меняется, по линейному закону<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>не&#33; когда ты считаешь что dx=v*dt, то v у тебя постоянно.<br>и вобще чото у тебя с пружинками. я давление увеличил, а кубик симметрию потерял.<br>да и вобще чото не такое уж большое увеличение скорости <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo-->  ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269305</guid>
        <pubDate>Wed, 24 Dec 2003 06:01:10 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269305</link>
        <description><![CDATA[vesper1:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 21:53<br>а именно, когда ты подвигаешь точку на конечное приращение, ты говоришь, что её скорость постоянна на всём промежутке dt, хотя она в натуре меняется,<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Здесь ты неправ, когда я двигаю точку, я считаю, что скорость в процессе меняется, по линейному закону, а вот с силой это действительно так, она считается неизменной на всем dt.<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 21:53<br>кинь мне исправленную версию&#33; самому лень разбираться <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Ааа, не любишь копаться в чужом коде? Согласен, темный лес. Щас. (Я сейчас не дома, а править там почти нечего)<br>Хм. А здесь тор сначала сплющился, а потом все-таки прыгнул, восстановив форму. ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269049</guid>
        <pubDate>Tue, 23 Dec 2003 17:53:36 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269049</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 23.12.03, 20:16<br>Я имел в виду, при каждом шаге неизбежны ошибки в примерно 1е-19 в расстоянии между точками. Потом в applysprings етот 1е-19 множится на ре, а в updatevelocity на дт, в результате ошибка нарастает лавинообразно.<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>тоже мне неточность нашёл&#33; там возникают неточности куда более чудовищного масштаба. а именно, когда ты подвигаешь точку на конечное приращение, ты говоришь, что её скорость постоянна на всём промежутке dt, хотя она в натуре меняется, и когда ты приращиваешь скорости, ты опять же говоришь что сила постоянна. поетому шаг интегрирования берут не более 1/10 периода самого быстрого колебания. <br><br><span style='color:gray'><b>Добавлено в</b> <time class="tag-mergetime" datetime="2003-12-23T17:54:31+00:00">23.12.03, 17:54</time></span><br> <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 23.12.03, 20:16<br>Я его вычислял вместо одного раза 504 ((((( вычисление стояло в цикле в applypressure. Я же говорил, оптимизации никакой <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>кинь мне исправленную версию&#33; самому лень разбираться ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269021</guid>
        <pubDate>Tue, 23 Dec 2003 17:16:58 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269021</link>
        <description><![CDATA[vesper1:  <br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 21:05<br>почему нули?? помоему как раз наоборот<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->Я имел в виду, при каждом шаге неизбежны ошибки в примерно 1е-19 в расстоянии между точками. Потом в applysprings етот 1е-19 множится на ре, а в updatevelocity на дт, в результате ошибка нарастает лавинообразно.<br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 21:05<br>ыы? я ж совсем другое имел в виду&#33; ежели ты его вычисляешь на первом шаге, то утебя ведь фигура едет, а центр стоит&#33;&#33; так что надо на каждом шаге его вычислять<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->Я его вычислял вместо одного раза 504 <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo-->((((( вычисление стояло в цикле в applypressure. Я же говорил, оптимизации никакой <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--><br><br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 21:05<br>как ты пружинки задаёшь? только по сетке или каждая точка соединена с каждой другой?<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->По сетке, там есть массив masgran, он и хранит всю сетку. Я по нему прохожу до инитграфа, генерируя masspring достаточно тупым алгоритмом, а именно проверяю, есть ли уже пружина, связывающая эти вершины, и если нет, связываю.<br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 21:05<br>а тормозит у тебя имхо главным образом графика.<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->Это вполне возможно, я не подвергал ету прогу анализу по времени. Там в среднем 6 раз считаются нормали граней, правда они динамические, но мне влом делать еще один массив в куче.<br> ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269007</guid>
        <pubDate>Tue, 23 Dec 2003 17:05:36 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=269007</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 23.12.03, 19:53<br>если pe*dt&gt;1, начинают сказываться машинные нули&nbsp;  просто алгоритм берет 1е-19, и начинает на каждом шаге их множить, все и взрывается<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>почему нули?? помоему как раз наоборот<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 23.12.03, 19:53<br>Хм. Спасибо, это же громадный гемор&nbsp; Поправил, у меня прям летает ))))<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>ыы? я ж совсем другое имел в виду&#33; ежели ты его вычисляешь на первом шаге, то утебя ведь фигура едет, а центр стоит&#33;&#33; так что надо на каждом шаге его вычислять, а тормозит у тебя имхо главным образом графика.<br><br>и вобще, как ты пружинки задаёшь? только по сетке или каждая точка соединена с каждой другой?? ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268986</guid>
        <pubDate>Tue, 23 Dec 2003 16:53:38 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268986</link>
        <description><![CDATA[vesper1:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 17:42<br>зы.а мож ты у пружин всётаки полярность перепутал?? <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Неа <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> Я об этом думал. Ради проверки взял и поменял, тор на 10м фрейме (тогда еще шаг был 0.01, жесткость 13.6, давление 0.15, трение 0.03) он НЕМЕДЛЕННО разорвался  <!--emo&:lol:--><img src='http://forum.sources.ru/html/emoticons/laugh.gif' border='0' style='vertical-align:middle' alt='laugh.gif' /><!--endemo-->  <!--emo&:lol:--><img src='http://forum.sources.ru/html/emoticons/laugh.gif' border='0' style='vertical-align:middle' alt='laugh.gif' /><!--endemo--> <br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 17:42<br>а если шаг в 10 раз увеличить, то их тоже колбасить начинает&#33;<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--> Я так понял, если pe*dt&gt;1, начинают сказываться машинные нули  <!--emo&:o--><img src='http://forum.sources.ru/html/emoticons/ohmy.gif' border='0' style='vertical-align:middle' alt='ohmy.gif' /><!--endemo-->  <!--emo&:o--><img src='http://forum.sources.ru/html/emoticons/ohmy.gif' border='0' style='vertical-align:middle' alt='ohmy.gif' /><!--endemo--> просто алгоритм берет 1е-19, и начинает на каждом шаге их множить, все и взрывается. Это недостаток численного интегрирования на компах <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--><br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 18:17<br>жёсткость 283, давление 150, для всех фигур, реакция опоры 6, шаг 0.001. всё вроде правильно. <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Ага, ну и круто. А тор что, не выворачивается? Ща проверю.<br>И правда, прыгает <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--><br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 23.12.03, 17:42<br>ты кстати центр каждый раз рассчитываешь?<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->Хм. Спасибо, это же громадный гемор <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--> Поправил, у меня прям летает <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo-->))))<br> ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268875</guid>
        <pubDate>Tue, 23 Dec 2003 14:17:59 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268875</link>
        <description><![CDATA[wormball:  жёсткость 283, давление 150, для всех фигур, реакция опоры 6, шаг 0.001. всё вроде правильно. ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268843</guid>
        <pubDate>Tue, 23 Dec 2003 13:42:22 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268843</link>
        <description><![CDATA[wormball:  а если шаг в 10 раз увеличить, то их тоже колбасить начинает&#33; мож параметры надо поменять?? ты кстати центр каждый раз рассчитываешь?<br><br>зы.а мож ты у пружин всётаки полярность перепутал?? ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268840</guid>
        <pubDate>Tue, 23 Dec 2003 13:39:59 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268840</link>
        <description><![CDATA[vesper1:  А не подскажешь где? <!--emo&;)--><img src='http://forum.sources.ru/html/emoticons/wink.gif' border='0' style='vertical-align:middle' alt='wink.gif' /><!--endemo--> Я так глюка не нашел. Куб прыгает как надо, треугольник тоже <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> шарик тоже... Значит чего-то не хватает тору, чтоб он тоже прыгал <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--> ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268786</guid>
        <pubDate>Tue, 23 Dec 2003 12:59:20 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268786</link>
        <description><![CDATA[wormball:  да, чото их не по детски колбасит.....<br>я думаю у тебя глюк в программе ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268493</guid>
        <pubDate>Tue, 23 Dec 2003 05:54:03 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268493</link>
        <description><![CDATA[vesper1:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 22.12.03, 20:05<br>ну, а в какой строчке ето записано??<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Все есть в константах <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> или не все <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> Константа dt задает временной шаг, в основном цикле в строке for fr:=1 to 100 do begin меняешь 100 на что-нить еще, будет чаще перерисовываться.<br>Кстати константы там все откомментированы.<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 22.12.03, 20:05<br>подсовывал, но он у меня считался настолько медленно, что я его вырубил, не дождавшись действа<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Хе, а у тебя какой комп? У меня Р3-866, 6фпс считает <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--> до оптимизации скорее всего дело не дойдет <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--><br>Если хочешь, можешь включить давление, есть там такая строчка pressflag:=false; а строкой выше выражение для определения, а можно ли давление включать.  ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268214</guid>
        <pubDate>Mon, 22 Dec 2003 16:05:42 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268214</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 22.12.03, 18:33<br>Ну дык шаг-то 1Е-4, вычисления типом extended, один фрейм есть 100 циклов<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>ну, а в какой строчке ето записано??<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 22.12.03, 18:33<br>А ты tor.dat ему в параметры подсовывал? У меня так после капитального сжатия вывернутый кусок тора проскочил насквозь еще нормальный&nbsp; это было заметно по изменению цвета, после чего я ее вырубил. <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>подсовывал, но он у меня считался настолько медленно, что я его вырубил, не дождавшись действа ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268185</guid>
        <pubDate>Mon, 22 Dec 2003 15:33:32 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268185</link>
        <description><![CDATA[vesper1:  Ну дык шаг-то 1Е-4, вычисления типом extended, один фрейм есть 100 циклов, да еще я его вообще никак еще не оптимизировал.<br>А ты tor.dat ему в параметры подсовывал? У меня так после капитального сжатия вывернутый кусок тора проскочил насквозь еще нормальный <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> это было заметно по изменению цвета, после чего я ее вырубил. ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268176</guid>
        <pubDate>Mon, 22 Dec 2003 15:23:49 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=268176</link>
        <description><![CDATA[wormball:  а чо ето она утебя так дико тормозит?? ка сделать чтобы она не тормозила? и вобще помоему никого там не выворачивает ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=267823</guid>
        <pubDate>Mon, 22 Dec 2003 05:48:50 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=267823</link>
        <description><![CDATA[vesper1:  Я тут подумал над этим ночью <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> придумал вот что: Фигура выворачивается из-за того, что не соблюдаются углы между гранями (т.е. когда параллельные пружины встают буквой V, они не действуют), а так как тор создан двумерной сеткой, действие сжатия начинает проявляться только в момент, когда к границе подходит середина бублика. Ессно деформация становится уже необратимой <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--> Есть варианты, как сохранять углы? ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=267564</guid>
        <pubDate>Sun, 21 Dec 2003 12:35:40 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=267564</link>
        <description><![CDATA[Some1: Потому и выворачивает, что нет внутреннего давления. Но для объектов, отличных от шара внутреннее давление расчитать наверно будет куда сложнее. В разных местах такого объекта давление по идее должно быть разным. Или направлено по разным осевым. для фигут типа буквы К вобще задача ещё больше усложняется. Основное правило, которое должно соблюдаться - фигура должна быть выпуклой, тоесть не образовывать из своих плоскостей углов вовнутрь.]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=267464</guid>
        <pubDate>Sun, 21 Dec 2003 09:30:47 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=267464</link>
        <description><![CDATA[vesper1:  Ладно. В полном руководстве по схеме от <b>wormball</b> у меня получилось вот что: (jumpball.zip, его нужно еще собрать) В параметре к программе указывается фигура (*.dat) которая и будет прыгать. По крайней мере куб прыгает более-менее устойчиво <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> Шарик (board.dat, кусочек указки) тоже прыгает, правда почти незаметно. Но вот с тором полный П, в смысле провал © <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> Он просто выворачивается наизнанку. Под конец я заставил прыгать букву К (k.dat), она повеля себя мягко скажем ужасно. Я так понимаю, чтобы фигура была жесткой, имеющихся пружин мало (они прокладываются по ребрам граней фигуры). К тому же возникла полная незадача с давлением, я его отключил. Для шара вроде пашет, все остальное коллапсирует после прыжка  <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo-->  <!--emo&:blink:--><img src='http://forum.sources.ru/html/emoticons/blink.gif' border='0' style='vertical-align:middle' alt='blink.gif' /><!--endemo--> <br>Буду признателен, если поможете.<br>Кстати, автор куда-то пропал.<br><br>Да, вот еще. Просьба не бить <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> за кривой код и формат файла. Все это писалось 7 лет назад, на машграф, где ни о какой деформации речи не было. Код заливки по Гуро оттуда же. ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266730</guid>
        <pubDate>Fri, 19 Dec 2003 16:51:50 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266730</link>
        <description><![CDATA[wormball:  [offtopic]оценки ето вселенское зло&#33;&#33; всё что было сказано во флейме относительно рейтингов и статусов, в полной мере относится к оценкам, даже ещё в большей степени&#33; я лично по возможности сру на оценки, в школе ето получалось замечательно, а в универе троечникам стипендию не платят, и в аспирантуру говорят нужен красный диплом <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--> <br>невидать мне похоже аспирантуры[/offtopic] ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266697</guid>
        <pubDate>Fri, 19 Dec 2003 15:36:21 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266697</link>
        <description><![CDATA[vesper1:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 19.12.03, 16:03<br> Там написано и про физику, и про школу :**((( <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>Айм сорри <!--emo&:(--><img src='http://forum.sources.ru/html/emoticons/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /><!--endemo--> До сих пор вспоминаю нашего физика... в аттестате у меня единственного была пятерка, даже у одной девушки, которая получила серебрянную медаль, и то 4 <!--emo&:unsure:--><img src='http://forum.sources.ru/html/emoticons/unsure.gif' border='0' style='vertical-align:middle' alt='unsure.gif' /><!--endemo-->  ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266683</guid>
        <pubDate>Fri, 19 Dec 2003 15:03:10 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266683</link>
        <description><![CDATA[Some1: Буду читать %)]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266641</guid>
        <pubDate>Fri, 19 Dec 2003 13:59:18 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266641</link>
        <description><![CDATA[wormball:  зы. там же откопал<br><a href='http://images.en.edu.ru/pubs/2003/09/13/0000019048/kvatern.pdf' target='_blank'>http://images.en.edu.ru/pubs/2003/09/13/00...048/kvatern.pdf</a><br>похоже ето то, что поможет мне с велосипедом ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266601</guid>
        <pubDate>Fri, 19 Dec 2003 13:03:02 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266601</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 19.12.03, 15:03<br>В нашем случае все силы представляют собой: вектор направления действия силы и число - сила воздействия силы<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>сила представляет собой просто вектор, а у вектора уже есь модуль и направление. ну или три координаты. собственно она такой же вектор, как и координата точки и её скорость. но в ряде случаев, как например с пружинкой, нам проще сначала посчитать модуль и направление, а потом посчитать три компоненты, непосредственно нужные для расчёта. если M - модуль силы, а r - её направление, то сама сила равна<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1--><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _ &nbsp; &nbsp; &nbsp;_<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; F=M*r/|r|<br><br><!--c2--></td></tr></table><div class='postcolor'><!--ec2-->, где || - модуль, а чёрточка над буквой - знак того, что ето вектор. а в других случаях, как напр с силой трения, мы можем сразу вычислять компоненты вектора.<br><br>накопал в инете небольшую статью: <a href='http://www.komi.com/DFSH/study/lessons/lesson01/lesson01.htm' target='_blank'>http://www.komi.com/DFSH/study/lessons/lesson01/lesson01.htm</a><br>накопал я её в даже не знаю как назвать, нечто среднее между поисковиком и сборником статей. <a href='http://en.edu.ru/db/msg/35325/_sp/3368/1410' target='_blank'>http://en.edu.ru/db/msg/35325/_sp/3368/1410</a><br>называестя &quot;естественнонаучный образовательный портал&quot;<br>возможно там и про велосипед есь, и про жидкости ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266562</guid>
        <pubDate>Fri, 19 Dec 2003 12:03:36 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266562</link>
        <description><![CDATA[Some1: Читай пост с начала. Там написано и про физику, и про школу :**((( Я примерно себе представляю, что такое равнодействующая. Но сила - это вобще виртуальное понятие. В нашем случае все силы представляют собой: вектор направления действия силы и число - сила воздействия силы. Так ? Я не знаю, как это всё в терминах. И равнодействующая сила должна быть суммой всех этих векторов, так ? А числовое значение этой силы как должно считаться ? То, которое обозначает, как сильно эта сила действует на тело ?]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266558</guid>
        <pubDate>Fri, 19 Dec 2003 12:01:15 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266558</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 19.12.03, 08:44<br>Это &quot;виртуальная&quot; сила<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>ну не такая уж и виртуальная <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> <br>по крайней мере не более виртуальная, чем все её составляющие ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266334</guid>
        <pubDate>Fri, 19 Dec 2003 05:44:24 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266334</link>
        <description><![CDATA[vesper1:  Равнодействущая сила... хм, <b>Some1</b> а ты физику в школе пинал? <!--emo&:D--><img src='http://forum.sources.ru/html/emoticons/biggrin.gif' border='0' style='vertical-align:middle' alt='biggrin.gif' /><!--endemo--> Это &quot;виртуальная&quot; сила, действие которой на тело (в данном случае точку) эквивалентно действию всех сил, которые на нее воздействуют. То есть чтобы не считать все силы по отдельности, берут их и складывают и результат есть равнодействующая.<br> ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266216</guid>
        <pubDate>Thu, 18 Dec 2003 20:07:54 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266216</link>
        <description><![CDATA[Some1: В целом уже понятнее %) Но ещё требует осмысления. Тем более практического. %)<br><br>Равнодействующая сила - это что такое ?]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266019</guid>
        <pubDate>Thu, 18 Dec 2003 15:05:05 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=266019</link>
        <description><![CDATA[wormball:  исправил<br>только она не лопнет, а наоборот остановится, ведь dt маленькое <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo-->  ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265953</guid>
        <pubDate>Thu, 18 Dec 2003 13:43:36 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265953</link>
        <description><![CDATA[vesper1: <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>wormball</b>, 18.12.03, 17:06<br>v(t+dt)=v(t)*F/m*dt<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>v(t+dt)=v(t)<b>+</b>dt*F/m :) иначе несколько раз умножишь и лопнет твой шарик :)]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265911</guid>
        <pubDate>Thu, 18 Dec 2003 13:06:44 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265911</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>vesper1</b>, 17.12.03, 18:01<br>То бишь после такого шага нужно пересчитать координаты всех точек, умножив вычисленные вектора скоростей на dt&lt;&lt;1 и наконец нарисовав несчастный футбольный мяч с помощью банального line(x1,y1,x2,y2)  И все сначала...  <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->точно <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> ну можно ещё рисовать не на каждом шаге, а через 10 или более шагов.<br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 17.12.03, 16:39<br>Cнимаю шляпу, профессор. %))))) Мне понимание сего не дано<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>тамбовский волк тебе профессор&#33;&#33; профессор тем и отличается от студента, что может объяснять так, чтобы его понимали.<br><br>я наверное поступил неправильно, смешав принципы работы с техническими деталями. попробую изложить принципы отдельно.<br><br>ну есь у тебя точка. как известно, у неё есть три координаты и три скорости. причём координаты изменяются во времени, и производная координаты по времени равна скорости. стало быть чтобы получить координату в следующий момент времени, ты должен к координате прибавить скорость, умноженную на временной промежуток:<br><br>  x(t+dt)=x(t)+vx*dt.<br><br>но скорость меняется во времени, поетому ето получится только линейное приближение, и тем более точное, чем меньше промежуток dt. чтобы узнать скорости на последующем шаге, есь легендарная формула ньютона:<br>  <br>  F=m*a<br>  dv/dt=F/m<br>  v(t+dt)=v(t)+F/m*dt<br><br>, где F - равнодействующая сила, тоесь сумма всех сил.<br>всё вроде ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265300</guid>
        <pubDate>Wed, 17 Dec 2003 15:01:59 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265300</link>
        <description><![CDATA[vesper1:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 17.12.03, 17:39<br>и мы можем с чистой совестью сказать, что совершили один шаг численного интегрирования уравнений ньютоновской механики методом верлета.<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>То бишь после такого шага нужно пересчитать координаты всех точек, умножив вычисленные вектора скоростей на dt&lt;&lt;1 и наконец нарисовав несчастный футбольный мяч с помощью банального line(x1,y1,x2,y2) <!--emo&:lol:--><img src='http://forum.sources.ru/html/emoticons/laugh.gif' border='0' style='vertical-align:middle' alt='laugh.gif' /><!--endemo--> И все сначала... <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> ]]></description>
        <author>vesper1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265220</guid>
        <pubDate>Wed, 17 Dec 2003 13:39:53 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265220</link>
        <description><![CDATA[Some1: =8-[                     ]<br><br>Cнимаю шляпу, профессор. %))))) Мне понимание сего не дано. Примерно после 3-4 выкладки тега CODE я начал терять смысл написанного %))) Кошмар &#33;&#33; Я даже не представляю, как это можно всё понимать. Остаётся кусать локти и ругать про себя дебильного учителя по физике в школе, который не смог нормально привить мне любви к этому предмету с самого начала.<br><br>:&#39;&#39;&#39;&#39;&#39;(<br><br>З.Ы. Я ТОЖЕ ТАК ХОЧУУУУУУ.... %&#39;&#39;&#39;&#39;&#39;((((((]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265151</guid>
        <pubDate>Wed, 17 Dec 2003 12:42:29 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=265151</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 15.12.03, 20:47<br>ты хорошё знаешь механику.<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->не&#33; хорошо знать механику я буду, когда смоделирую велосипед <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> <br>а действительно хорошо знает механику vot какой мужик: <a href='http://graphics.stanford.edu/~fedkiw/' target='_blank'>http://graphics.stanford.edu/~fedkiw/</a><br>в алгоритмах c300g ссылку дал<br><!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 15.12.03, 20:47<br>Ты хоть скажи, где это в доступной форме изложено<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>в учебниках по физике <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> <br>напр есть такой савельев, там насколько я помню всё в доступной форме, для нефизических специальностей вузов. ну или ландау лифшиц, там в недоступной форме для физических специальностей <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> .<br><br>собственно в расчёте системы материальных точек нет ничего сложного. у тебя есть два массива трёхмерных векторов: координаты точек q и их скорости v, и один массив с массами. вектор задаётся приблизительно так:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->type vec3d=array &#91;0..2&#93; of single;<br>или<br>type vec3d=record<br>&nbsp; x, y, z&#58; single;<br>end;<!--c2--></td></tr></table><div class='postcolor'><!--ec2-->мне лично больше нравится первый вариант, ибо можно написать for x:=0 to 2 do v[x]..... .<br>также у тебя есть массив пружинок:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->type spring=record<br>&nbsp;node1, node2&#58; integer; k, len&#58; single;<br>end;<!--c2--></td></tr></table><div class='postcolor'><!--ec2-->, где node1 и node2 - номера связанных точек, k - жёсткость, len - равновесная длина пружинки. или можно задать пружинки подругому, главное чтобы были определены параметры k и len.<br>сначала рассчитываешь силу, действующую на каждую точку. если две точки соединены пружинкой, то на каждую действует сила, пропорциональная разности расстояния между точками и равновесной длины с коэффициентом пропорциональности k:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->dist&#58;=sqrt&#40;sqr&#40;q&#91;node1, 0&#93;-q&#91;node2, 0&#93;&#41;+sqr&#40;q&#91;node1, 1&#93;-q&#91;node2, 1&#93;&#41;+sqr&#40;q&#91;node1, 2&#93;-q&#91;node2, 2&#93;&#41;&#41;;<br>f&#58;=k*&#40;dist-len&#41;;<!--c2--></td></tr></table><div class='postcolor'><!--ec2-->. но ето ещё полдела. надо силу пересчитать в приращение скорости. здесь надо знать направление силы. в нашем случае она направлена по оси, соединяющей точки, поетому чтобы получить координатные составляющие, надо силу умножить на направляющие косинусы, а приращение скорости равно силе, делённой на массу и умноженному на временной шаг dt:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->for x&#58;=0 to 2 do begin<br>&nbsp; v&#91;node1, x&#93;+&#58;=&#40;q&#91;node2, x&#93;-q&#91;node1, x&#93;&#41;/dist*f/m&#91;node1&#93;*dt;<br>&nbsp; v&#91;node2, x&#93;+&#58;=&#40;q&#91;node1, x&#93;-q&#91;node2, x&#93;&#41;/dist*f/m&#91;node2&#93;*dt;<br>end;<!--c2--></td></tr></table><div class='postcolor'><!--ec2-->тут главное не перепутать полярность, ибо иначе пружина будет не стягивать, а отталкивать.<br>при соприкосновении с субстратом (предположим, что ето происходит когда z&lt;0) действует сила реакции опоры, можно её представить пропорциональной степени погружения с коеффициентом n:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->for y&#58;=0 to node_n-1 do if q&#91;y, 2&#93;&#60;0 then v&#91;y, 2&#93;+&#58;=-q&#91;y, 2&#93;*n/m&#91;y&#93;*dt;<!--c2--></td></tr></table><div class='postcolor'><!--ec2--><br>в общем случае ето может быть негоризонтальная поверхность, да и вобще могут сталкиваться два многогранника, так что сила реакции опоры может быть и не такой.<br>ещё хорошая сила - сила трения. она пропорциональна скорости с некоторым коеффициентом b, а приращение скорости записывается так: <!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->for x&#58;=0 to 2 do v&#91;y, x&#93;-&#58;=v&#91;y, x&#93;*b*/m&#91;y&#93;*dt<!--c2--></td></tr></table><div class='postcolor'><!--ec2-->.<br>ну и главная сила - сила тяжести <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> <br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->v&#91;y, 2&#93;-&#58;=g*dt<!--c2--></td></tr></table><div class='postcolor'><!--ec2--><br><br>собственно можно придумывать собственные силы, напр в нашем случае нам нужно давление воздуха внутри шара. мы конечно не будем углубляться в тонкости газодинамики и примем (заметьте, от балды&#33;&#33;), что сия сила постоянна по модулю и действует со стороны центра шара. центр же определяется так:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->for x&#58;=0 to 2 do begin<br>&nbsp; qc&#91;x&#93;&#58;=0;<br>&nbsp; for y&#58;=0 to node_n-1 do qc&#91;x&#93;+&#58;=q&#91;y, x&#93;/node_n;<br>end;<!--c2--></td></tr></table><div class='postcolor'><!--ec2--><br>а само приращение скоростей<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->dist&#58;=sqrt&#40;sqr&#40;q&#91;y, 0&#93;-qc&#91;0&#93;&#41;+sqr&#40;q&#91;y, 1&#93;-qc&#91;1&#93;&#41;+sqr&#40;q&#91;y, 2&#93;-qc&#91;2&#93;&#41;&#41;;<br>v&#91;y, x&#93;+&#58;=&#40;q&#91;y, x&#93;-qc&#91;x&#93;&#41;/dist*p/m&#91;y&#93;*dt<!--c2--></td></tr></table><div class='postcolor'><!--ec2--><br><br>наконец, когда все силы посчитаны, надо посчитать приращения координат:<br><!--c1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b></b> </td></tr><tr><td id='CODE'><!--ec1-->for x&#58;=0 to 2 do for y&#58;=0 to node_n-1 do q&#91;y, x&#93;+&#58;=v&#91;y, x&#93;;<!--c2--></td></tr></table><div class='postcolor'><!--ec2--><br>и мы можем с чистой совестью сказать, что совершили один шаг численного интегрирования уравнений ньютоновской механики методом верлета.<br><br>етим методом хорошо считать молекулы: <a href='http://moldyn.ru/bioinzhenerija/doc/stat/moldyn.htm' target='_blank'>http://moldyn.ru/bioinzhenerija/doc/stat/moldyn.htm</a><br>собственно я в етой лаборатории делаю курсовую.<br>а более сложные обьекты вроде велосипеда уже не представишь в виде системы материальных точек: ето уже будет система твёрдых тел, и если моделировать твёрдое тело системой точек, то там появляются гигантские жёсткости, и требуется очень маленький шаг интегрирования. что особенно неприемлемо, когда ты хочешь сделать реал-тайм симулятор велосипеда. собственно такие системы тоже можно моделировать с помощью механики твёрдого тела, но я ещё не очень её освоил. там надо расписывать уравнения относительно моментов импульса, вращать поразному, хотя если пару дней целиком посвятить расписыванию, обязательно чтото получится.<br><br>а как моделировать жидкости или газы - ето я и в страшном сне представить не могу <!--emo&:ph34r:--><img src='http://forum.sources.ru/html/emoticons/ph34r.gif' border='0' style='vertical-align:middle' alt='ph34r.gif' /><!--endemo-->  ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=264094</guid>
        <pubDate>Mon, 15 Dec 2003 21:26:05 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=264094</link>
        <description><![CDATA[arkhangel:  Ребят, спасибо большое... Еще спасибо уважаемому xxxnnn, который написал мне некоторые рекомендации по мылу... Буду думать и стараться... <br>Да только у пользователя albom не скачивается его мяч... (если не сложно - скинь на мыло - arkhangel(собака)mail.ru )...  Еще раз всех благодарю... искренне... ]]></description>
        <author>arkhangel</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=264003</guid>
        <pubDate>Mon, 15 Dec 2003 17:47:48 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=264003</link>
        <description><![CDATA[Some1: Я спрашиваю. %))) ты хорошё знаешь механику. Всегда завидовал %))))<br>Мне бы хотябы основные сведения. Ты хоть скажи, где это в <b>доступной</b> форме изложено. Или изложи основы сам. %)]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263998</guid>
        <pubDate>Mon, 15 Dec 2003 17:42:17 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263998</link>
        <description><![CDATA[albom:  Вот у меня есть такой исходник на Делфи: <a href=&#39;http://albom.nm.ru/ball.rar&#39; target=&#39;_blank&#39;>http://albom.nm.ru/ball.rar</a><br>Переделать его под TP7 в общем довольно просто. Необходимо выкинуть все что отностится к WinApi и OpenGL, и написать одну функцию проекции точки на экран. Вот вроде и все.<br>Если подойдет, то смело обращайся, если что в нем будет не ясно. ]]></description>
        <author>albom</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263935</guid>
        <pubDate>Mon, 15 Dec 2003 16:00:26 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263935</link>
        <description><![CDATA[wormball:  да кстати. готовый футбольный мяч <a href='http://enzyme.nm.ru/files/football.ent' target='_blank'>http://enzyme.nm.ru/files/football.ent</a> ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263890</guid>
        <pubDate>Mon, 15 Dec 2003 14:50:22 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263890</link>
        <description><![CDATA[wormball:  <!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--><b>Some1</b>, 13.12.03, 13:17<br>Надо спросить у wormball. Он точно знает %)<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd--><br>насоветуешь ещё.... <!--emo&:)--><img src='http://forum.sources.ru/html/emoticons/smile.gif' border='0' style='vertical-align:middle' alt='smile.gif' /><!--endemo--> <br>по графике ничем не могу помочь, разве что в виде линий, а текстурировать я не умею. а чтобы он деформировался - ето можно. смысл такой: шар задаётся в виде футбольного мяча, ну тоесь фигуры с 60 вершинами. получается массив из 60 точек в трёхмерном пространстве и связей между ними. далее постулируешь, что связи - ето пружинки, а вершины - ето точечные массы, и что со стороны центра шара действует постоянная сила давления воздуха, а при соприкосновении с землёй действует сила отталкивания от земли, ну и хорошо бы не забыть про силу тяжести. ну и рассчитываешь всё ето механикой. а потом на ето можно и текстуры натянуть.<br><br>не знаешь как рассчитывать механику - спрашивай ]]></description>
        <author>wormball</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263108</guid>
        <pubDate>Sun, 14 Dec 2003 05:54:43 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=263108</link>
        <description><![CDATA[Tosha:  Я имею ввиду 3д в какой проекции перспективноу (z-вглубь, х-вправо, у-вверх) или изометрическое (z-вверх а остальные оси под 120 градусов друг к другу). Текстуры чтоли тоже надо? ]]></description>
        <author>Tosha</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262831</guid>
        <pubDate>Sat, 13 Dec 2003 16:16:53 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262831</link>
        <description><![CDATA[arkhangel: <!--QuoteBegin-Tosha+13.12.03, 18:23--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td><b>Цитата</b> (Tosha @ 13.12.03, 18:23)</td></tr><tr><td id='QUOTE'><!--QuoteEBegin--> Ты паскаль знаешь? С 3Д когда нить работал? <br>Вопросик по задаче: шар деформируется только теноретически или же это должно отображаться на екране? 3д перспективное или изометрическое? <!--QuoteEnd--> </td></tr></table><div class='postcolor'> <!--QuoteEEnd--><br> В том все и дело что нет... Есть опыт работы на Perl немного на C. Но pascal + 3d - никогда. Т.е. сам паскаль то знаю, а вот 3d уже нет. Основная сложность - отсуствие документации... И плохое понимание работы с графикой в паскале. Начал домогаться своего знакомого программера - от сказал что в примере PASSRC.ZIP сделать деформацию нереально - проще переписывать заново. С текстурами ничего неясно... Вот так-то все печально...<br>Деформирование шара должно отображаться на экране.<br>Повторюсь но идеал <a href='http://pascal.sources.ru/tmt/samples/bounce.zip' target='_blank'>http://pascal.sources.ru/tmt/samples/bounce.zip</a> . Очень все четко работает.<br>По поводу перспективного и изометрического не понял... Поясни plz... ]]></description>
        <author>arkhangel</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262803</guid>
        <pubDate>Sat, 13 Dec 2003 15:23:18 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262803</link>
        <description><![CDATA[Tosha:  Ты паскаль знаешь? С 3Д когда нить работал? <br>Вопросик по задаче: шар деформируется только теноретически или же это должно отображаться на екране? 3д перспективное или изометрическое? ]]></description>
        <author>Tosha</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262790</guid>
        <pubDate>Sat, 13 Dec 2003 15:08:00 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262790</link>
        <description><![CDATA[Some1: Будет не нагловато, если ты вежливо попросишь. Кинь ему в сообщении линк на тему, и попроси посмотреть.]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262759</guid>
        <pubDate>Sat, 13 Dec 2003 14:06:22 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262759</link>
        <description><![CDATA[arkhangel: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Some1 &#064; 13.12.03, 13:17</span><div class='quote '> Надо спросить у <strong class='tag-b'>wormball</strong>. Он точно знает %)<br>
З.Ы. А почему именно трехмерный ? Так поставлено условие задачи ? </div></div>Да такая задача.<br>
1. Должен быть трехмерный шар и плоскость.<br>
2. Шар должен ударяться о плоскость упруго (т.е. деформироваться при ударе).<br>
3. В конце шар должен прекратить свое движение.<br>
<br>
А как спросить у <strong class='tag-b'>wormball</strong>??? Написать ему приватное сообщение??? Не нагловато будет???<br>
<br>
Да еще нашел ссылку на PASSRC.ZIP ( http://www.programmist.info/pub/PASSRC.ZIP )... Но это так между делом...]]></description>
        <author>arkhangel</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262603</guid>
        <pubDate>Sat, 13 Dec 2003 10:17:52 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262603</link>
        <description><![CDATA[Some1: Надо спросить у <b>wormball</b>. Он точно знает %)<br>З.Ы. А почему именно трехмерный ? Так поставлено условие задачи ?]]></description>
        <author>Some1</author>
        <category>Pascal</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262507</guid>
        <pubDate>Sat, 13 Dec 2003 06:22:27 +0000</pubDate>
        <title>Создание упругого трехмерного шара...</title>
        <link>https://forum.sources.ru/index.php?showtopic=40488&amp;view=findpost&amp;p=262507</link>
        <description><![CDATA[Гость arkhangel:  Очень нужно забацать лабораторную работу. Она заключается в том, что о плоскость ударяется упругий шар. Упругий это означает что при ударе он деформируется. Постепенно он должен успокоиться и не прыгать. Такую фигню надо написать на чистом Turbo Pascal&#39;e. Начал копать инфу - нигде нет никакой инфы по созданию трехмерных объектов. В связи с этим нескольких вопросов:<br>1. Подскажите, пожалуйста, где можно найти инфу по созданию трехмерных объектов в паскале.<br>2. Нашел несколько работ:<br>а) <a href='http://pascal.sources.ru/tmt/samples/bounce.zip' target='_blank'>http://pascal.sources.ru/tmt/samples/bounce.zip</a>  - практически то что надо (только шар не останавливается). Но работа написана с применением opengl и под другой компилятор. А так низзя... Возможно кто-нибудь посоветует как переписать это чудо.<br>б) <a href='http://pascal.sources.ru/demo/ball.zip' target='_blank'>http://pascal.sources.ru/demo/ball.zip</a> - просто крутится в воздухе. Такую фигню было бы очень прикольно переписать. Чтобы падал и деформировался. <br>в) Еще Passrc.zip (ссылку найти не могу) - то что надо только не деформируется.<br>Помогите пожалуйста. Знакомый программер болеет и вежливо посылает меня. Как с чего начать???Реально ли эти проги переписать... ПОсоветуйте пожалуйста... Заранее благодарю... ]]></description>
        <author>Гость arkhangel</author>
        <category>Pascal</category>
      </item>
	
      </channel>
      </rss>
	