Перейти до вмісту

модель атома Резерфорда в Delphi


В темі одне повідомлення

#1 Гість_Lisa01_*

  • Гості

Відправлено 15.01.2009 – 22:04

  • 1
Допоможіть, будь ласка, написати програму - створити модель атома Резерфорда в Delphi. Ядро - в центрі, навколо рухаються електрони. Наперед дякую <_<

#2 КлятЫй мАскаль

    Писар

  • Користувачі
  • PipPipPipPipPipPipPipPip
  • 428 повідомлень
  • Стать:Чоловік
  • Місто:Київ

Відправлено 26.01.2009 – 09:53

Ну, що там, рівнення еліпсу...
Десь так вираховуємо:

procedure TElectron.Proceed;
begin
  Fx := Round (FCx + FQx*FRadius*Cos(DegToRad(FAngle)));
  FY := Round (FCY - FQy*FRadius*Sin(DegToRad(FAngle)));
  FAngle := FAngle - FSpeed;
  if FAngle <= 0 then
	FAngle := 360;
end;

Демку десь таку накалякав: ось. (~200 Кб, сорці + exe).

Повідомлення відредагував КлятЫй мАскаль: 26.01.2009 – 10:07

  • 0



Кількість користувачів, що читають цю тему: 1

0 користувачів, 1 гостей, 0 анонімних