помогите с курсовым!

[sp.caster]

Надо нарисовать молнию, проходящую от неба до земли. На небе должны быть мигающие минусы (заряды со знаком -(Q-)), а на земле плюсы (заряды со знаком +(Q+)). Молния проходит через несколько слоев атмосферы, которые имеют разную скорость (V1,V2,V3 и т.д.).
Молния будет появляться при выполнении условия, что (Q- - Q+)>V.

В общем надо: 1) создать массив Q+ и Q-.
2) Задать значение Q+(i) и Q-(i) с помощью RND (random).
3) реализовать алгоритм.
помогите плз, уже около недели парюсь, а время поджимает.

[5naip]

выкладывайте сюда то что вы уже неделю "парите". С нуля,очень вряд ли кто-нить поможет...но шанс есть

[mutabor]

Мы понимаем, что надо. Если денежка есть, запостите тему во фриланс (можете ко мне обратится ). Нет - выкладывайте код (в файле приложенном) и конкретные вопросы, а не

В общем надо: 1) создать массив Q+ и Q-.
2) Задать значение Q+(i) и Q-(i) с помощью RND (random).
3) реализовать алгоритм.

[sp.caster]

Сообщение от 5naip

С нуля,очень вряд ли кто-нить поможет...но шанс есть

Сам я в дэлфи мало что понимаю, но с самой молнией мне немного помогли. Осталось расставить все по местам, а то мне кажется там в кашу все намешано, т.к. не запускается... Посмотрите и помогите плз.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Dir:=VectorSubtract ( A, B);
PlaneU := VectorCrossProduct(Dir, YAxis);
PlaneV := VectorCrossProduct(PlaneU, Dir);

NormalizeVector(PlaneU);
NormalizeVector(PlaneV);

C[0] := 0.5*(A[0] + B[0]) + factor*(PlaneU[0]*(random-0.5) + PlaneV[0]*(random-0.5));
C[1] := 0.5*(A[1] + B[1]) + factor*(PlaneU[1]*(random-0.5) + PlaneV[1]*(random-0.5));
C[2] := 0.5*(A[2] + B[2]) + factor*(PlaneU[2]*(random-0.5) + PlaneV[2]*(random-0.5));
end;

procedure Fract(A, B : TVector; factor : Single; maxFracDepth, fracCount : Byte);
var
  Dir, PlaneU, PlaneV, C : TVector;
begin
  inc(fracCount);

  if fracCount > maxFracDepth then  
  begin
    inc(numPoints);                                         
    points[numPoints] := B; 
    exit;
  end;

  Dir := VectorSubtract(A, B);
  PlaneU := VectorCrossProduct(Dir, YHmgVector);
  PlaneV := VectorCrossProduct(PlaneU, Dir);
  NormalizeVector(PlaneU);
  NormalizeVector(PlaneV);
  C[0] := 0.5*(A[0] + B[0]) + factor*(PlaneU[0]*(random-0.5) + PlaneV[0]*(random-0.5));
  C[1] := 0.5*(A[1] + B[1]) + factor*(PlaneU[1]*(random-0.5) + PlaneV[1]*(random-0.5));
  C[2] := 0.5*(A[2] + B[2]) + factor*(PlaneU[2]*(random-0.5) + PlaneV[2]*(random-0.5));

  Fract(A, C, factor*fracDec, maxFracDepth, fracCount); 
  Fract(C, B, factor*fracDec, maxFracDepth, fracCount); 
end;

procedure DoFractalLightning(Src, Dst : TVector; factor, fracDec: Single; maxFracDepth} : Byte; cR, cG, cB : Single);
var i : Integer;
begin
  numPoints := 0;
  points[0] := Src;                             
  fracLev := fracLev * VectorDistance(Src, Dst);    
  Fract(Src, Dst, factor, maxFracDepth, 0);
end;

 glLineWidth(Width);
  glColor4fv(Color);
  glBegin(GL_LINE_STRIP);
    for i := 0 to NumPoints do glVertex3fv(@Points[i]);
  glEnd;

end.

[capta1n]

за рублей 400 я бы сделал такую а так время только терять