Статистика, картография и ГИС!

Об авторе сайта Статистика, картография и ГИС!

Комментарии

Программа
PROCEDURE shodSpir
SET TALK OFF
SET ECHO OFF

CLEAR
IF ALLTRIM(DBF(1))==""
DEFINE POPUP obj_fil PROMPT FILES LIKE *.DBF;
   MESSAGE "ВЫБРАТЬ ФАЙЛ ДЛЯ РАСЧЕТА СХОДСТВА";
   TITLE "ВЫБРАТЬ ФАЙЛ ДЛЯ РАСЧЕТА СХОДСТВА"
ON SELECTION POPUP obj_fil DEACTIVATE POPUP obj_fil
ACTIVATE POPUP obj_fil
SELECT 1
USE PROMPT() NOUPDATE
ENDIF
SELECT 1
vorname = DBF(1)

BEG = FST_EL("_R")
elts = N_EL("_R")
konec = BEG+elts-1
N1 = ((elts^3 - elts)/6)
vorname = SUBSTR(vorname,1,LEN(vorname)-6)
imia = "sh"
viv_file =vorname+ALLTRIM(imia)+'.dbf'
COPY TO &viv_file AS 1251
USE &viv_file
ALTER TABLE &viv_file ADD COLUMN r_sp N(6,2)
ALTER TABLE &viv_file ADD COLUMN klasse N(4,0)
ALTER TABLE &viv_file ADD COLUMN intensiv N(6,2)
REPL ALL r_sp WITH -1
CLEAR
IF ALLTRIM(DBF(2))==""
DEFINE POPUP obj_fil PROMPT FILES LIKE *.DBF;
   MESSAGE "ВЫБРАТЬ ФАЙЛ ЭТАЛОНОВ ДЛЯ РАСЧЕТА СХОДСТВА";
   TITLE "ВЫБРАТЬ ФАЙЛ ЭТАЛОНОВ ДЛЯ РАСЧЕТА СХОДСТВА"
ON SELECTION POPUP obj_fil DEACTIVATE POPUP obj_fil
ACTIVATE POPUP obj_fil
SELECT 2
USE PROMPT() NOUPDATE
ENDIF
SELECT 2
vorname = DBF(2)

vorname = SUBSTR(vorname,1,LEN(vorname)-6)
imia = "in"
viv_file =vorname+ALLTRIM(imia)+'.dbf'
COPY TO &viv_file
SELECT 2
USE &viv_file
nach = FST_EL("_K")
N_EL1 = N_EL("_K")
conec1 = nach+N_EL1-1
ALTER TABLE &viv_file ADD COLUMN intensiv N(6,2)
DIMENSION Arr(elts, 2)
COUNT TO ch_kl
GO TOP
FOR qq = 1 TO ch_kl
   B_plu=""
   B_min=""
   FOR ii = nach TO conec1
      pii = FIELD(ii)
      IF EVAL(pii)>0
         B_plu = B_plu+"+"+pii
      ELSE
         B_min = B_min+"-"+pii
      ENDIF
   ENDFOR
   asdf1 =B_plu+B_min
   REPL intensiv WITH &asdf1
   SCATTER MEMVAR
   t1 = t_t
   ind = klasse
   SELECT 1
   GO TOP
   DO WHILE !EOF()
      t2 = t_t
      SUM1 = 0
      qwerty = 0
      FOR ii = BEG TO konec
         pii = FIELD(ii)
         qwerty = (m.&pii-&pii)^2
         SUM1 = SUM1 + qwerty
      ENDFOR
      r1 = (N1 - SUM1 - t1 - t2)/SQRT((N1 - 2*t1)*(N1 - 2*t2))
      IF r1 >r_sp
         REPL r_sp WITH r1
         REPL klasse WITH ind
         REPL intensiv WITH &asdf1
      ENDIF
      SKIP
   ENDDO
   SELECT 2
   SKIP
ENDFOR
CLOSE ALL

На главную страницу

Сайт управляется системой uCoz