घर
Top.Mail.Ru Yandeks.Metrika
मंच: "शुरुआती";
वर्तमान संग्रह: 2017.09.24;
डाउनलोड करें: [xml.tar.bz2];

नीचे

प्रवृत्ति की गणना में मदद करें इसी तरह की शाखाएँ खोजें


Twister   (2015-10-13 13:40) [0]

मुझे समझ नहीं आ रहा।
मान लीजिए कि संख्याएं हैं
85
83
81
76
73
82
76
69
62
58
उदाहरण के लिए, कोई कैसे निर्धारित कर सकता है कि इस प्रवृत्ति को कम करने या बढ़ाने के लिए एक प्रवृत्ति चल रही है, और कुछ गुणांक? मान लीजिए कि संख्या 5 से 12 तक है, क्या कमी और गति थी, या प्रगति में कमी थी, आइए इसे कुछ अपवाह कहते हैं, लेकिन संख्या 3 से 10 तक यह अपवाह है? और यह इस तरह के और इस तरह की संख्या से बेहतर नहीं है, लेकिन उदाहरण के लिए, 5 से 12 तक, क्या संख्या के सापेक्ष प्रगति में कमी आई है, इस तरह के गुणांक के साथ ऊपर या नीचे?
कुछ सिर पहले से ही पूरी तरह से टूट गया।
बेशक, कोई भी संख्या हो सकती है।



Sha ©   (2015-10-13 15:38) [1]

अगर एक सरल तरीके से, तो हर कदम पर आप कुछ इस तरह से याद करते हैं
sum: = p * डेल्टा [i] + (1-p) * योग;
जहां: p = (0..1), डेल्टा [i] = x [i] -x [i-1]



Twister   (2015-10-13 15:43) [2]

अगर एक सरल तरीके से, तो हर कदम पर आप कुछ इस तरह से याद करते हैं
sum: = p * डेल्टा [i] + (1-p) * योग;
जहां: p = (0..1), डेल्टा [i] = x [i] -x [i-1]

कुछ समझ में नहीं आया, पी या तो 0 या 1 है, या दोनों विकल्पों पर विचार करने के लिए?
और पिछले गणना से सूत्र * में? लेकिन पहले गणना के बारे में क्या? योग = 0?



Sha ©   (2015-10-13 16:28) [3]

ट्विस्टर (13.10.15/15/43 2:XNUMX PM) [XNUMX]

था
राशि, पी: डबल;

p 0 से 1 तक की सीमा में पहले शब्द का वजन है
(1-पी) - दूसरे शब्द का वजन
शुरुआत के योग = ०



Twister   (2015-10-13 16:43) [4]

या मैं पकड़ने के लिए नहीं जा रहा हूँ या कुछ और जिसका अर्थ है वजन? कैसे चुनें 0 या 1?

क्या आप संख्याओं की गणना के साथ एक उदाहरण लिख सकते हैं?



Palladin ©   (2015-10-13 17:14) [5]

उसे कोड लिखें, अन्यथा आप यहां स्मार्ट हैं



Token   (2015-10-14 11:04) [6]

व्युत्पन्न खोज? मिनट, अधिकतम और गति तुरंत दिखाई देगी।



ВладОшин ©   (2015-10-16 09:13) [7]

अगर सरणी
х1
х2
х3
..

मैट्रिक्स के लिए खत्म
X1 (X1-x2) (X1-x3) ।।
X2 (X2-x1) (X2-x3) ।।
X3 (X3-x1) (X3-x1) ।।
..

तब Xn से Xm तक की प्रवृत्ति का योग होगा। पंक्तियाँ n से m
और गुणांक यह राशि शब्दों की संख्या से है



Twister   (2015-10-18 08:40) [8]

कुछ इस मैट्रिक्स के साथ काम नहीं करता है:

[1]21.00->{0.00}{-1.00}{1.00}{1.00}{5.50}{5.50}{5.50}{5.50}{6.50}{6.50}==36.00
[2]21.00->{0.00}{-1.00}{1.00}{1.00}{5.50}{5.50}{5.50}{5.50}{6.50}{6.50}==36.00
[3]22.00->{1.00}{1.00}{2.00}{2.00}{6.50}{6.50}{6.50}{6.50}{7.50}{7.50}==47.00
[4]20.00->{-1.00}{-1.00}{-2.00}{0.00}{4.50}{4.50}{4.50}{4.50}{5.50}{5.50}==25.00
[5]20.00->{-1.00}{-1.00}{-2.00}{0.00}{4.50}{4.50}{4.50}{4.50}{5.50}{5.50}==25.00
[6]15.50->{-5.50}{-5.50}{-6.50}{-4.50}{-4.50}{0.00}{0.00}{0.00}{1.00}{1.00}==-24.50
[7]15.50->{-5.50}{-5.50}{-6.50}{-4.50}{-4.50}{0.00}{0.00}{0.00}{1.00}{1.00}==-24.50
[8]15.50->{-5.50}{-5.50}{-6.50}{-4.50}{-4.50}{0.00}{0.00}{0.00}{1.00}{1.00}==-24.50
[9]15.50->{-5.50}{-5.50}{-6.50}{-4.50}{-4.50}{0.00}{0.00}{0.00}{1.00}{1.00}==-24.50
[10]14.50->{-6.50}{-6.50}{-7.50}{-5.50}{-5.50}{-1.00}{-1.00}{-1.00}{-1.00}{0.00}==-35.50
[11]14.50->{-6.50}{-6.50}{-7.50}{-5.50}{-5.50}{-1.00}{-1.00}{-1.00}{-1.00}{0.00}==-35.50

उनका योग हमेशा 0 होता है



han_malign ©   (2015-10-19 17:23) [9]

एक रैखिक (लीनियर) फ़ंक्शन द्वारा कम से कम वर्गों की विधि ???
http://www.cleverstudents.ru/articles/mnk.html



Twister   (2015-10-20 21:59) [10]

हाँ, यह पसंद नहीं है



Dmk ©   (2015-10-22 09:36) [11]

आप कर सकते हैं, केवल एक छोटे से शोधन की जरूरत है। सरणियों के लिए 2 विकल्पों की शुरुआत में।
unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math;

type
 TForm2 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;
 Input: array[0..17] of integer = (85,83,81,76,73,82,76,69,62,60,55,50,47,45,34,55,67,88);//Упадок
 //Input: array[0..19] of integer = (85,80,85,90,85,80,85,90,85,80,85,90,85,80,85,90,85,80,85,90);//Стабильность
 //Input: array[0..17] of integer = (85,86,87,85,89,90,76,85,90,91,92,94,97,79,81,87,90,96);//Возрастание
 aMin: array of integer;
 aMax: array of integer;
 MinLen: integer;
 MaxLen: integer;

const
 InputSize: integer = Length(Input);

implementation

{$R *.dfm}

procedure MinMax;
var
 A: integer;
 B: integer;
 Pos: integer;
 __fall: boolean;
 __raise: boolean;
 __stability: boolean;
 arrSize: integer;

begin
 Pos := 0;
 arrSize := (InputSize - 1);
 __stability := false;

 //Считаем первый элемент максимумом
 while Pos <= arrSize do
 begin
   //Текущий элемент
   A := Input[Pos];
   Inc(MaxLen);
   SetLength(aMax, MaxLen);
   aMax[MaxLen - 1] := A;
   Inc(Pos);
   if Pos > arrSize then break;

   //Следующий элемент
   B := Input[Pos];

   //Тенденция стабильна
   if B = A then __stability := True;
   if __stability then Continue;

   //Если на следующем элементе падение
   if B < A then
   begin
     __fall := true;

     while __fall do
     begin
       B := Input[Pos];
       Inc(Pos);
       if Pos > arrSize then
         __fall := false else
         __fall := Input[Pos] < B;
     end;

     //Элемент конца падения
     Inc(MinLen);
     SetLength(aMin, MinLen);
     aMin[MinLen - 1] := B;
   end//Падение
   else
   //Если на следующем элементе возрастание
   if B > A then
   begin
     __raise := true;

     while __raise do
     begin
       B := Input[Pos];
       Inc(Pos);
       if Pos > arrSize then
         __raise := false else
         __raise := Input[Pos] > B;
     end;
   end;//Возрастание
 end;//while Pos
end;//proc

procedure TForm2.Button1Click(Sender: TObject);
var
 x1, y1: integer;
 x2, y2: integer;
 TotalLen: integer;
 Len: integer;
 MinPos, MaxPos: integer;
 sr2: array of integer;
 Tend: array of integer;
 TendSum: integer;
 d1, d2: integer;
 inv: integer;
 gap: integer;

begin
 MinMax;

 Canvas.Pen.Color := clRed;
 Canvas.Pen.Style := psSolid;
 Canvas.Pen.Width := 2;

 TotalLen := MinLen + MaxLen;

 Len := 1;
 MaxPos := 0;
 MinPos := 0;

 while Len <= TotalLen do
 begin
   SetLength(sr2, Len);
   if MinLen <> 0 then
   begin
     if Odd(Len) then
     begin
       sr2[Len - 1] := aMax[MaxPos];
       Inc(MaxPos);
       Inc(Len);
     end
     else
     begin
       sr2[Len - 1] := aMin[MinPos];
       Inc(MinPos);
       Inc(Len);
     end;
   end else
   begin
     //Скорее всего стабильность
     sr2[Len - 1] := aMax[MaxPos];
     Inc(MaxPos);
     Inc(Len);
   end;
 end;

 SetLength(Tend, TotalLen - 1);
 Len := 0;
 while Len <> (TotalLen - 1) do
 begin
   d1 := sr2[Len];
   d2 := sr2[Len + 1];

   if d1 = d2 then
   begin
     Tend[Len] := 0;
     Inc(Len);
   end
   else
   begin
     if odd(Len) then
       Tend[Len] :=  Max(d1, d2) - Min(d1, d2) else
       Tend[Len] :=  Min(d1, d2) - Max(d1, d2);
     Inc(Len);
   end;
 end;

 TendSum := 0;

 for Len := 0 to (Length(Tend) - 1) do
 begin
   TendSum := TendSum + Tend[Len];
 end;

 if TendSum > 0 then Caption := "Возрастание";
 if TendSum = 0 then Caption := "Стабильность";
 if TendSum < 0 then Caption := "Упадок";

//Рисуем график
 Len := 0;
 inv := 200;
 gap := 30;

 MinPos := 0;
 MaxPos := 0;

 while Len <= TotalLen do
 begin

   if MaxPos < MaxLen then
   begin
     x1 := gap + Len * gap;
     y1 := aMax[MaxPos];
     if Len = 0 then
     begin
       if TendSum < 0 then
         Canvas.MoveTo(x1, inv - y1) else
         Canvas.MoveTo(x1, y1);
     end
     else
     begin
       if TendSum < 0 then
       Canvas.LineTo(x1, inv - y1) else
       Canvas.LineTo(x1, y1);
     end;

     Inc(MaxPos);
     Inc(Len);

     if MinPos < MinLen then
     begin
       x2 := gap + Len * gap;
       y2 := aMin[MinPos];
       if TendSum < 0 then
         Canvas.LineTo(x2, inv - y2) else
         Canvas.LineTo(x2, y2);
       Inc(MinPos);
     end;
   end;

   Inc(Len);
 end;//while
end;

procedure TForm2.FormShow(Sender: TObject);
begin
 ClientWidth := 500;
 ClientHeight := 300;
end;

end.



Игорь Шевченко ©   (2015-10-22 10:34) [12]

Dmk © (22.10.15/09/36 11:XNUMX) [XNUMX]


> केवल थोड़ा शोधन की जरूरत है


इसे संशोधित करने की आवश्यकता नहीं है, इसे फेंक दिया जाना चाहिए।



Dmk ©   (2015-10-22 16:51) [13]

इगोर शेवचेंको © (22.10.15 10: 34) [12]

यह काम करता है।



Игорь Шевченко ©   (2015-10-22 18:58) [14]


> यह काम करता है।


वैसे भी इसे फेंक दो



Dmk ©   (2015-10-22 20:18) [15]

> वैसे भी, इसे फेंक दो
और इसलिए अच्छा नहीं है?

इकाई Unit2; इंटरफेस का उपयोग करता है Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, गणित; प्रकार TForm2 = वर्ग (TForm) Button1: TButton; प्रक्रिया Button1Click (प्रेषक: TObject); निजी {निजी घोषणाएँ} जनता {सार्वजनिक घोषणाएँ} समाप्त; वर फॉर्म 2: TForm2; इनपुट 1: पूर्णांक की सरणी [0..17] = (85,83,81,76,73,82,76,69,62,60,55,50,47,45,34,55,67,88); // आरोही इनपुट 2: पूर्णांक की सरणी [0..18] = (85,80,85,90,85,80,85,90,85,80,85,90,85,80,85,90,85,80,85। ); // स्थिरता इनपुट 3: पूर्णांक की सरणी [0..17] = (85,84,81,80,89,82,76,75,72,80,82,75,74,73,56,50,48,80); // पतन sr2: पूर्णांक की सरणी; कार्यान्वयन {$ R * .dfm} प्रक्रिया मिनमैक्स (कास्ट AInput: पूर्णांक की सरणी); वर ए: पूर्णांक; बी: पूर्णांक; पद: पूर्णांक; arrEnd: पूर्णांक; sr2End: पूर्णांक; योग: पूर्णांक; sumStr: स्ट्रिंग; डी: पूर्णांक; InputSize: पूर्णांक; शुरू पद: = 0; इनपुटसाइज़: = लंबाई (AInput); arrEnd: = (InputSize - 1); sr2End: = arrEnd - 1; सेटल्रॉन्ग (sr2, arrEnd); पद के लिए: = 0 से sr2End करते हैं शुरू // वर्तमान आइटम A: = AInput [Pos]; // अगला तत्व B: = AInput [Pos + 1]; // बढ़ रहा अगर बी> ए तो एसआर 2 [स्थिति]: = (बी - ए); // घट रहा है अगर A> B तो sr2 [Pos]: = (B - A); अंत; // के लिए योग: = 0; पद के लिए: = 0 से sr2End करते हैं शुरू d: = sr2 [स्थिति]; sum: = sum + d; अगर d> 0 तो sumStr: = SumStr + "+" + IntToStr (d) और sumStr: = SumStr + IntToStr (d); अगर Pos <> sr2End तो sumStr: = sumStr + ","; समाप्त; sumStr: = sumStr + ";" यदि Sum> 0 है तो ShowMessage ("आरोही:" + "" + IntToStr (sum) + # 13 + sumStr); यदि Sum = 0 तो ShowMessage ("Stability:" + "" + IntToStr (sum) + # 13 + sumStr); यदि Sum <0 तो ShowMessage ("Decline:" + "" + IntToStr (sum) + # 13 + sumStr); अंत; // खरीद प्रक्रिया TForm2.Button1 क्लिक करें (प्रेषक: Tobject); शुरू मिनमैक्स (इनपुट 1); मिनमैक्स (इनपुट 2); मिनमैक्स (इनपुट 3); समाप्त; समाप्त।



Dmk ©   (2015-10-22 20:25) [16]

इससे भी छोटा और सरल:
इकाई Unit2; इंटरफेस का उपयोग करता है Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, गणित; प्रकार TForm2 = वर्ग (TForm) Button1: TButton; प्रक्रिया Button1Click (प्रेषक: TObject); निजी {निजी घोषणाएँ} जनता {सार्वजनिक घोषणाएँ} समाप्त; वर फॉर्म 2: TForm2; इनपुट 1: पूर्णांक की सरणी [0..17] = (85,83,81,76,73,82,76,69,62,60,55,50,47,45,34,55,67,88); // आरोही इनपुट 2: पूर्णांक की सरणी [0..18] = (85,80,85,90,85,80,85,90,85,80,85,90,85,80,85,90,85,80,85। ); // स्थिरता इनपुट 3: पूर्णांक की सरणी [0..17] = (85,84,81,80,89,82,76,75,72,80,82,75,74,73,56,50,48,80); // पतन sr2: पूर्णांक की सरणी; कार्यान्वयन {$ R * .dfm} प्रक्रिया MinMax (const AInput: पूर्णांक की सरणी); वर ए: पूर्णांक; बी: पूर्णांक; पद: पूर्णांक; arrEnd: पूर्णांक; sr2End: पूर्णांक; योग: पूर्णांक; sumStr: स्ट्रिंग; डी: पूर्णांक; InputSize: पूर्णांक; शुरू पद: = 0; योग: = 0; इनपुटसाइज़: = लंबाई (AInput); arrEnd: = (InputSize - 1); sr2End: = arrEnd - 1; सेटलॉग्र्थ (sr2, arrEnd); पद के लिए: = 0 से sr2End करते हैं शुरू A: = AInput [Pos]; B: = AInput [Pos + 1]; डी: = (बी - ए); sum: = sum + d; अगर d> 0 तो sumStr: = SumStr + "+" + IntToStr (d) और sumStr: = SumStr + IntToStr (d); अगर Pos <> sr2End तो sumStr: = sumStr + ","; अंत; // के लिए sumStr: = sumStr + ";" यदि Sum> 0 है तो ShowMessage ("आरोही:" + "" + IntToStr (sum) + # 13 + sumStr); यदि Sum = 0 तो ShowMessage ("Stability:" + "" + IntToStr (sum) + # 13 + sumStr); यदि Sum <0 तो ShowMessage ("Decline:" + "" + IntToStr (sum) + # 13 + sumStr); अंत; // खरीद प्रक्रिया TForm2.Button1 क्लिक करें (प्रेषक: Tobject); शुरू मिनमैक्स (इनपुट 1); मिनमैक्स (इनपुट 2); मिनमैक्स (इनपुट 3); समाप्त; समाप्त।



Dmk ©   (2015-10-22 21:39) [17]

यहाँ विस्तारित के साथ विकल्प है:
unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math;

type
 TForm2 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;
 Input1: array[0..17] of extended = (85.2,83.4,81.9,76.1,73.2,82.9,76.8,69.7,62.1,60.3,55.5,50.1,47.7,45.4,34.3,55.8 ,67.1,88.9);//Возрастание
 Input2: array[0..18] of extended = (85.3,80.1,85.76,90.89,85.43,80.56,85.4,90.1,85.9,80.12,85.76,90.91,85.45,80.0,8 5.45,90.46,85.5,80.21,85.3);//Стабильность
 Input3: array[0..17] of extended = (85.3,84.1,81.89,80.16,89.77,82/35,76.67,75.98,72.9,80.12,82.06,75.01,74.15,73.55,56.89,50.07,48.67,80.22);//Упадок
 sr2: array of extended;

implementation

{$R *.dfm}

function TendStr(const AInput: array of extended): string;
var
 A: extended;
 B: extended;
 Pos: integer;
 arrEnd: integer;
 sr2End: integer;
 sumStr: string;
 d: extended;
 InputSize: integer;

begin
 InputSize := Length(AInput);
 arrEnd := (InputSize - 1);
 sr2End := arrEnd - 1;
 SetLength(sr2, arrEnd);

 for Pos := 0 to sr2End do
 begin
   A := AInput[Pos];
   B := AInput[Pos + 1];
   d := (B - A);
   if d > 0 then
     sumStr := SumStr + "+" + FloatToStrF(d, ffNumber, 18, 2) else
     sumStr := SumStr + FloatToStrF(d, ffNumber, 18, 2);
   if Pos <> sr2End then sumStr := sumStr + ", ";
 end;//for
 sumStr := sumStr + ".";
 Result := sumStr;
end;

procedure SetPixel(x, y: integer; AColor: TColor);
begin
 Form2.Canvas.Pixels[x, y] := AColor;
 Form2.Canvas.Pixels[x - 1, y] := AColor;
 Form2.Canvas.Pixels[x - 1, y - 1] := AColor;
 Form2.Canvas.Pixels[x, y - 1] := AColor;
 Form2.Canvas.Pixels[x + 1, y - 1] := AColor;
 Form2.Canvas.Pixels[x + 1, y] := AColor;
 Form2.Canvas.Pixels[x + 1, y + 1] := AColor;
 Form2.Canvas.Pixels[x, y + 1] := AColor;
 Form2.Canvas.Pixels[x - 1, y + 1] := AColor;
end;

function Tend(const AInput: array of extended): extended;
var
 A: extended;
 B: extended;
 Pos: integer;
 arrEnd: integer;
 sr2End: integer;
 sum: extended;
 d: extended;
 InputSize: integer;
 x,y: integer;
 x1,y1: integer;
 gap: integer;
 inv: integer;

begin
 sum := 0;
 InputSize := Length(AInput);
 arrEnd := (InputSize - 1);
 sr2End := arrEnd - 1;
 SetLength(sr2, arrEnd);

 Form2.canvas.Pen.Style := psSolid;
 Form2.canvas.Pen.Width := 2;
 Form2.canvas.Pen.Color := Rgb(Random($FF), Random($FF), Random($FF));
 Form2.canvas.Pen.Mode := pmCopy;

 gap := 20;
 inv := 200;

 for Pos := 0 to sr2End do
 begin
   A := AInput[Pos];
   B := AInput[Pos + 1];
   d := (B - A);
   sum := sum + d;

   x := gap + (gap * Pos);
   y := Inv - Round(A);

   Form2.Canvas.MoveTo(x, y);

   x1 := gap + (gap * (Pos + 1));
   y1 := Inv - Round(A + d);

   Form2.Canvas.LineTo(x1, y1);
   SetPixel(x, y, clBlack);
 end;//for

Result := sum;
end;//proc

procedure ShowTend(ASum: extended; AStr: string);
begin
 if ASum > 0 then ShowMessage("Возрастание: " + " " + FloatToStrF(ASum, ffNumber, 18, 2) + #13 + AStr);
 if ASum = 0 then ShowMessage("Стабильность: " + " " + FloatToStrF(ASum, ffNumber, 18, 2) + #13 + AStr);
 if ASum < 0 then ShowMessage("Упадок: " + " " + FloatToStrF(ASum, ffNumber, 18, 2) + #13 + AStr);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 sum: extended;
 str: string;

begin
 sum := Tend(Input1);
 str := TendStr(Input1);
 ShowTend(sum, str);

 sum := Tend(Input2);
 str := TendStr(Input2);
 ShowTend(sum, str);

 sum := Tend(Input3);
 str := TendStr(Input3);
 ShowTend(sum, str);
end;

end.



Игорь Шевченко ©   (2015-10-23 10:28) [18]

और आप, दोस्तों, कोई फर्क नहीं पड़ता कि आप कैसे बैठते हैं, हर कोई संगीतकारों में अच्छा नहीं है

रनिंग कोड का मतलब यह नहीं है कि यह सलाह दी जा सकती है।
सामान्य तौर पर, यह पहले से ही एक्सेल में बनाया गया है



brother ©   (2015-10-23 11:23) [19]

हम्म, इगोर, आपका वर्किंग कोड कहां है? Dmk कम से कम कुछ दिखाता है ... और आप?



han_malign ©   (2015-10-23 13:44) [20]


> हम्म, इगोर, और आपका वर्किंग कोड कहां है?

- इगोर - मधुमक्खी संकेत के रूप में - कि कोड को गणितीय रूप से ध्वनि एल्गोरिथ्म के कुछ प्रकार का कार्यान्वयन होना चाहिए ...

एक्सेल सांख्यिकीय कार्य: TREND
...
TREND (ज्ञात_य "s, ज्ञात_x" s, new_x ", स्थिरांक) फ़ंक्शन का उपयोग किया जाता है रेखीय प्रतिगमन. एक कम से कम वर्गों की कसौटी का उपयोग किया जाता है और TREND उस कसौटी के तहत सबसे अच्छा फिट खोजने की कोशिश करता है। ज्ञात \ "," निर्भर चर "और ज्ञात_x के डेटा को एक या अधिक" स्वतंत्र चर "पर डेटा का प्रतिनिधित्व करते हैं। TREND मदद फ़ाइल उन दुर्लभ मामलों पर चर्चा करती है जहाँ दूसरा या तीसरा तर्क छोड़ा जा सकता है।

- देखें - han_malign © [9]

और के लिए संकेत एक निरंतर नमूना कदम के साथ, यह आमतौर पर अधिक उपयुक्त होता है:
https://ru.wikipedia.org/wiki/Скользящая_средняя



Sha ©   (2015-10-23 14:36) [21]

[1] और [3] - यह चलती औसत का सबसे सरल संस्करण है



Twister   (2015-10-24 18:59) [22]

Dmk और आप सभी का धन्यवाद
लेकिन यह रुझान मेरी गणना के अनुसार 1 से 1 हो गया, ठीक है, यह लगभग डीएमके की तरह है, लेकिन परिणाम समान है।
लेकिन
गति जैसे एक महत्वपूर्ण पैरामीटर की कमी है!

उन। मान लें कि सरणी में 200 अंक हैं, यह इस फ़ंक्शन को खिलाया जाता है (इनमें से प्रत्येक अंक एक सेकंड के लिए प्राप्त किया जाता है, उदाहरण के लिए) और आपको अंतिम 10 सेकंड, 5 या 20 सेकंड में वृद्धि या कमी की दर प्राप्त करने की आवश्यकता है

... बस समय को परिवर्तन की दर से विभाजित करें .... बस दसियों या सैकड़ों काटें



Dmk ©   (2015-10-24 21:31) [23]

> अंतिम 10 सेकंड में वृद्धि या कमी की दर प्राप्त करें
केवल इस अवधि के लिए डेटा संक्षेप करें।
बस एक समय सरणी दर्ज करें और समय की प्रत्येक इकाई में एक मूल्य लिखें।
समय की अवधि के लिए राशि: = n + 5 ... n + 14; अंत में, पांचवें से शुरू होने वाले 10 सेकंड वह है जो आप खोज रहे हैं।



Dmk ©   (2015-10-24 22:24) [24]

संक्षेप में, यहां 3 स्वतंत्र चार्ट के साथ विकल्प दिया गया है:
http://files.expert-graphics.ru/test/Tendency.zip

मेरे पास डेल्फी एक्सई 6 है।



han_malign ©   (2015-10-28 11:09) [25]


> शा © [21]
> [1] और [३] - यह चलती औसत का सबसे सरल संस्करण है

- आपने मुझे अपने साथ शर्मिंदा किया डेल्टा[i] - यह सब समान है नमूना[], ठीक है, एक अंतिम उपाय के रूप में f[] ...



पन्ने: 1 पूरी शाखा

मंच: "शुरुआती";
वर्तमान संग्रह: 2017.09.24;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.69 एमबी
समय: 0.024 c
15-1466026202
यूरी
2016-06-16 00:30
2017.09.24
आपको जन्मदिन मुबारक हो! 16 जून 2016 गुरुवार


2-1446127801
दिमित्री
2015-10-29 17:10
2017.09.24
फ्रीपोर्ट और बारकोड


15-1465565960
xayam
2016-06-10 16:39
2017.09.24
कौन अपने आप को अनुभव करना चाहता है?


2-1445961053
SKIPtr
2015-10-27 18:50
2017.09.24
ini फ़ाइल में पैरामीटर समूह जोड़ना


2-1445763894
SKIPtr
2015-10-25 12:04
2017.09.24
सूची में लाइनें जोड़ें





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский