GOTO -42
38 PRINT 61
|
GOTO 42 |
39 |
PRINT '71 |
GOTO 42
r |
. 40 |
PRINT 61 |
||
|
|
42 |
CONTINUE |
у |
PRINT 406
|
|
DO 90 1-1,IV 90 PRINT 407,8(I ) ,TETA<IfО IF!JPK.EQ.l ) GOTO 530 < PRINT 40tt FRItiT 409,GND F ЯIN T ■ 3 0 0 IHNF.EQ.3) GOTO '&30 PRINT 500 410 FORMAT!* * , 13X, '’ДОПОЛНИТЕЛЬНАЯ ПОГРЕШНОСТЬ* ) 413 FORMAT!* * ,4X, 'МАТЕМАТИЧЕСКОЕ ОЖИДАНИЕ . 414 ЕОКРАТЧ* * ^^'ДОПОЛНИТЕЛЬНОЙ ПОГРЕІнНОСГИ , «* , 10X, F8t3 ) 415 FORMAT!* * t4X ,'СЛУЧАЙНАЯ СОСГАВЛЯ йіііАЯ ДОПОЛ-* ) 416 FORMAT!' ',4Х,'КНТйЛЬНОЙ ПОГРЕШНОСТИІ6X,'+*,F8,3) .. 505 FORMAT! * * »41X , } PHIMT 410 ’ PRINT 500 PRINT 413 • PRINT 414,GG |
|
|
ъ f: <ъ T) fl tj c: |
|
|
о |
|
||
|
■Q § § «Q |
! W/TI |
PRINT 410 PRINT 416 ,G0 PRINT 505 . PRINT 512 512 FORMAT!* *,4X^'ПОГРЕШНОСТЬ ОТ ИЗМЕНЕНИЯ') 513 FORMAT!' ',4X,'ВЛИЯЮЩЕЙ НЕЛИ ЧИНЫ,^*,19X,F8,3) PRUT 513,G PRINT 500 ' GOTO 555 530 PRINT 500 . 556 PRINT 557 * 557 FORMAT!' НЕВЕРЕН Я ФУНКЦИИ ВЛИЯНИЯ, ДИАПАЗОН НОМЕРОВ 1-6*) 555 CONTINUE STOP - - С ■ DEBUG I MIT - END |
<3 M5 c C5 |
<5 <ї> |
||
|
|
||
|
ГОСТ 5. Юб-бв ' qoooMam ff / ' ’ |
C****** Гі и ЕІ і РО Г Р А /;?; А РАСЧЕТА К-ТОВ Ф.& * « « * * % * * *>к* *
S о а I (и и П А £ F V О 3 Т ( А ЗI., X , Y, Y A , ? t Т А , G іW , G С, Ъ 0 (G) О'.риІСЇТ КЕАь^Ы А-Н , O-Z У - - -
"(5 <Tj и о ej .71 <“■ <л |
|
АйАь*8 Е,К31 ,Н| >fcU,MOX,K;)0(p,6> ‘ c<mok /и/ні jt, jpr, id, iv,zn D1 Eftfc Iu. Y ( 6,4 ) , Щ ( 2, 4 ), Х( 6 ) , KS Н Q ) , 2 ( 6 Г, DC ( 6 ) / ’ *b ( 6 , Ь ) , VC I ( 6 , ) , ТЕТА ( 6,6 ) t'Hv; ( 6 ) I AUGER ZIV , lE’UFV* GT,3, )G0 TO 2 DO 1 1-І,JU r {( 1 X(1)=£»£ - , 2 [E( E I,EQ,0 , ) n I?1 ,96 4 D 0 b J1 = 1 , J T , ' v DO 5 i=l , IU,2 . , . ' ■' DCI ( I t Ji UY( I , JI J—YN( 1 t JI ) : > 5 Du I ( ( Ї ti} ( Jl)=y{ ( j-h ) Ji )-YK( 2, JI ) 10 DO 12 1-1, iu DOU J-0, •:- DO 11 JI=1,Jf ' 1 1 DC( і )=JC( I RDCI( I . Jl ) 12 ч. DC( J )-jb( J )/j;- ;.„.... • '. .. DO 14 1-і ,10 . - DU )-T , DU і 3 Jl-1,J f 13 D'C 1 )-DU >UDCIU, Jl )*DCU ) )«*2- : ■ ■-■ IU JT.iU.t ) GO TO. 14 T Dt'J)=L-(i)/(JT-1 ) ■ ; J ' . ■ ; 14 ' ' COATI-AUE ' . - IU jiFV,XKU jGO TO 23 WP-UG(l) DO 2Z I-2tiU 20 If( nP,LT,DC( I)) A’?"DC(I) ' TU'A (1,1 ) = л Р . ‘ ' ■ DO 21 1 = 1,10 •’•''•• • ’ ' 21 . ft'M I UDABSIDGC I WPJ + l ,96*DSQRT( D( I ) } ' ' , A P—»'Л< ( 1 ) DC 22 1=2,10 IE ( ЛР,1ТГЇ,И( 1 )J йр = У,М(І) 22 ССдіНОЕ - • G Л D s Г/ Й, * X! F / ii . . ' ' GC = liJ^.*TETA( 1 ,1 )/fi ■ GO = GMj G—G0"^GG , GU 1,0 6icsS ' 23 DU 24 1=1;10 24 MDC{ I ,1 )=C0(1 ) , C A t L Ь 0 H л E І X , К 3 1 , E ) gall kobe(e,mdg,teta> Q* = UTA( 1 ( 1 ) . • ■ QI=T&1A(2,1 ) . Q2=TtTA(3,і ) Q3 = tet^(4,1 ) Q-i = TETAlb,l ) |
> 'мС> 05 ч§ ' X: □ £ <п <Х) о £ , -Т5 О <5 |
і '. L ІШ <* ГЧГ% |
|
1 чг > № |
съ Чйл 1 Ч") ’•О сам |
|
ГОСГЗЮб'бЗ Формою И ■ ‘ |
51 52 :=ss== РАСЧЕТ ПРЕДЕЛЬНОГО ЗНАЧЕНИЯ НЕИСКЛ,КОП,ПОГРЕШНОСТИ f, Р ~ 0 DO 50 1=1,JU 1 )=.‘,P + Q1 *KS I ( I ) IF (kFV.EG.S) GOTO 40 NFVl=KFV-2 GOTO (51,33,35,37),NFV1 DO 52 1=1,ID Л*( I ) =^( J HQ2*KS1J I )*KSI ( I ) GOTO 42 DO 54 J=l,JU І >=л.Ч( I HQ2*KSI( I ИХ( Ї ) 55 56 05 do 1-1,IU 37 56 40 41 H( I }=»!>:( G 0 Г У 4 0 DC 56 1=1 лMС I )=4М DG 41 1=1 I )+Q2*KSH I )*KS I ( I )*Q3*KSI( I )*X( П , ID Ї >+Q2*KSI( I }*KSI( I )+Q5*KSH I ) *X ( I )*Q4*KSI ( I > * KS I ( I >»X ( I ) ,1U |
DO 42 1=2,10 IF (AP,LT,WM( I ) ) &fP=AM(I) 42 Силі B ub GM'= и F* I 05 , /К c = = =====:= РАСЧЕТ ^АТ,О»;ИДлНИЯ ДОП.ПОГРЕШНОСТИ M5 = (KSI( IU)4-KSI(1 ))/2, kOX=(X(ID)+X(1))/2, Gv-C C + 01 -*.40 IF (aFV,£Q,2) GOTO 60 NFV1=KFV"2 GOTO (&0,Ol,&2>55),hFVl 50 GO — GO +Q2 * ‘‘O^HO GOTO 62 bl GC=GC+Q2*,40*h0X GOTO 60 52 uC = GC+(i2».40*M0<-Q5*M0*M0X . GOTO 60 53 GC=GC+G2*M0*M0+Q3*M0*MDX+Q4*;40*M0*MDX 60 GC=100.*GC/fc |
|
J; T) '□ о •о .3 <z 4 CO Y -Л *X V; э r <3 «•» 50 о e □ 'O |
W/'і/ 1 , - |
|
1 > |
1 ее |
fO5 '68
лМI)-DABS(DC(I)-WM(I))+l«96*DSQHT(D(I)) A P — л M ( I )
ФОомат ff
к |
|
OCT 92-4279-80 Л.34 C x = = =;=-- = =:" ОПРЕДЕЛЕНИЕ MAX ДИСПЕРСИИ ДОПФ ПОГРЕШНОСТИ ==- і,Ні-:.м-1 GOTO ( о 1 (62,63,64,65 ), JiFVl . . 61 й P — V1 *ч 1 GOTO 7 2 62 йР=( Q1+2*Q2*.4O )**2 " GOTO 54 ‘ ■' .••>:':• 63 >»r-„1 *lj - GOTO 72 . . '■ 64 rtPs*,l+2*'ц2*.^О WM(1>-t*?*Q3*X(1))**2 «6(2 ) = (*P+Q3*X£IU ) 1**2. w’-l( 3 ) —( aP+yd*'iOX 1*^2 GOTO 6P 65 Wr=Ql +2:«<ч2*л0 ЙМ( 1 )-(. йР + С5*Х( 1 )+2*Q4*M0*XC 1 ) )**2 ї,М( 2 )-£ і>?+ч5*Х( IU )+2*С4*«0*л( ДО ) )«*2 . йМ { 3 ) = ( йУ+цЗ*мОХ+2*ч4ч<йО*і’іОХ ) *#2 ' 69 ЙР=ЬМАП СЕУЛ 1 ) , йл(2 ) /АМ£ 3 ) ) ?й ■ і:■ (7.1 v,e4,c ) goto ?i DlS-Ч ( Кб Н 10 )“КзІ ( 1 И**2 )/36, . .' ' ' ' GOTO 73 ' '.'Л-' '■■-•• 71 D1£ (KbU IO)-KSI (1 ) )^*2J/12.t - ■ ErS I L-2,’■ :■ IE(IH1-І,96).bE.EPS ІЬ ) ркй,9o IF( £ n I”! ,6b ) t C.E.EPSIL ). У=0,S 1г((гН“1,2),ьЕ,ЕР31ь> Р-й( 57 ’ г. 1 =?*6чИ1 ( 3 « ) 73 DC рк?і Р*Ф 15 . ....... й? = 1 it ЗО2 t 1*6 I / £ > GU=DSQHT{ TiP*DD?+Gf41J*GfcD) G-Gv*G0 П (GC.bT.o.)G-GG-GO IF G^DABSiG) |
ч co □ о о ч С' <4 о £ > § і «1 <4 |
■l «aS Ss |
|
О Ч- 4f 4 < p |
О |
600 RtTUKii . C' DEBUG IKI? |
П§ J? -$ wa Gg |
<a t tO Mb «П |
X |
ГЛГТ5 (05-53 qoopMcm fl
r0CT2.fO5 -68
СРормсггл ■ f f
С#*****# ПОДПРОГРАММА ФОРМИРОВАНИЯ МАТРИЦЫ ВХОДНЫХ ВЕЛИЧИН SUBROUTINE FORME(X,KSI,Е)
REALES X(6),rlSI(6),E(6t6)(HI,N
■ ’ ' COMMON/U/HI JPR, IUJ.V
DO 1 1=1,IU
E<111 )=1.
E( I t2)=KSH I)
И (NFV.EQ.Z) RETURN
HVFikrfv-2
GOTOU,4,6,6),NVF1
DO 31 1-1,IU
31 El I ,3)=KSI(I)*KSI( I )
RETURN
DO <1 1 = 1,IU
41 E( I ,3 )=KSI ( I ИХ( I )
RETURN
DO'51 1=1,IU
Ell ,3)=KSI( I)*KSI(D
51 E< I ,4)’=KSI( I )*X( I )
RETURN .
DO 61 I-1,IU
.. £(I,3 )=KSI(I)*K$I(I)
El I-,4)=KSH I )*X( I )
•61 E< I ,5 )=E( I .3 HXH )
RETURN ■ c debug init
EN
D
С її Оіі і і .POP РА 5'A Вь;Чл Clibri Ил ri “7'0 В В ^.АГРИЧНЭИ О ОРМЕ
SUoRCUTlftc КО аг(Е , ОС,Т£ТА) СОУЛОМ /U/Н 1 ,к f hFV, JT, DPR, ІС , I'/.ZIV KUiL^S ь( ъ ,с ) ,£Т( 6,6 ) , ЕМ( 5 ,о ) ,
* В О £ 5 , о ) і £ л 2 ( о , с } , Т і Т л ( 6,6 ) , и і , ri
I К Г £ О Е К Z х V
CALL TUKSH г , t’l- ,ID,I V)
С А b t >'■; U LT I ( К. Т , с , а , IV, 10, ! V )
С л L L 1 к V К Н 3 ( £ К , I V '
С''LL LT 1 £ Ел , EiT , 002', I V , I V , IU )
CALL MULTI(Em2,DG,TETA,IV,10,1) RETO Rp
a К Lt
с lip і. J PG Г? Л лО А ТРАнСІіСсИРОЛлНР.Я МАТРИЦА mmm*
SUB ri OUT 1 KE Tri А л BP £ A , с , Я ri, 7 R )
fia A L * £ A ( 6 , б ) , a ( 6 , 6 )
du 11 1-1, op
0 0 1 1 j ~ J (;.; X їй j, і) -•;. (і, j) 11 CUftTlftUt
rtETU fir.
L ft D
С ГІОьЕР^І EA/ ;■) А Уг! О л. E ri И ri >J1 TP H Ц 4<- >xм< * Ф + **■ Ф **4e * *м
SUB KUUT liE VOGT I ( л , 0 , C , >'; .4,7 rt, KR)
RthL^ti A(6,6),ii[o,6),CU,6)
PC 11 1= І , Ari
DO 11 j-1,л л
SU;4~£ ,2 *. .
Du io л-1
10 S U M=S U +A <I,К)* 3 ( К , J)
G(I, Л-Ь'Оіч
11 ССАТИ,UE
RbTUTu<
E AD
c І.О.циРОГРАРі..А ИЯйЕРТигСйАНИЯ ,'їАТРИцг! **«***хг**ж
SVBhOUTINa 1 kV E RS ( A , А г.)
I ft Г К G с л P t л , Z ( 6 )
ЯйлЬ*6 A ( 6,6 ) , із ( 6 ) , C ( b ) , DET , Y , л , £ PS 1 L
D E T = I , it
CD It J~l,r;r<
" 11 ZQ)=J
DO 12 1-І,UR
K=I
YSA{ 1,1)
R^I-l
P-I-H
St- ( P , GT , к ri) GO TO 1 о
DO 13 Jsp,riR
.v-A { I , J )
IE ( DASSi 7> ) , GT , DAaSi Y ) 1 GO ?U 02
GO TO 10
л0 її К — J
Y“*
{ 10 СОлТІТиЬ
*b
~
формат ff
rocfljo?768"DtT=YM‘DETEPSIL=0..10-06
|
|
|
1>‘ (DABbW.LT.EPSIL) GO ТО 33 GO ГО lb < |
|
|
|
|
53 |
COiiTIRUE |
|
|
|
|
! . 16 ■ |
70R4AT С1Н /ЭЛЕМЕНТ МАТРИЦЫ^') PRINT 16 |
|
|
|
|
|
RiTORh - |
|
|
|
|
15 . ■ ■ |
Y=l,/Y DO Г? 0 = 1 /Я |
|
|
|
|
• |
01 J)— А(О)К) А< J,К ) = А< J , I ) AC J, I )=.-C(J)*Y At I/ )=А(Ї,J)#Y В(J)=А(1,0 ) |
|
|
f; <X> |
|
17 |
COtITIhUE А( ItI)=Y |
|
і |
і |
|
* |
J=Z( 1 ) - |
|
|
о |
|
|
Z<I)=Z(K> |
|
|
|
|
» |
Z(K)=J ; , |
|
|
ю |
|
|
DO lb K=l,SR , |
|
* |
|
|
|
IP ( KTE0.I ). GO T0H6 DO 19 0=1,йЯ ; |
|
|
|
|
|
|
|
|
с |
|
..'.'L.......s. і. |
-IE . ( J.EQ,I ) GO TO 19 |
|
|
<л |
|
19 |
AtK1 J)=A{.K, J)-B( J)*C(K) CONTINUE |
|
|
4CJ |
’■'• •• |
16 |
COKMtWE f - - . |
|
|
-Л |
|
12 |
CONTINUE ' ■ ' ' |
* |
|
*»Г—,— 4Q і |
•21 |
DO 20 1 = 1,0 • ‘ • ■ K=Z(I) * |
|
|
|
Щ-lt |
|
P (KtEQ.I) GO TO 31 DO 22 0=1 ,,4R •*=A(I,0) |
|
і |
|
сП <*Э |
|
|
A(l,J)=A(K,J) A(KtJ)=w |
|
|
|
|
|
|
|
|
о |
Sk |
... . 22 |
СОК? I !iUE |
|
|
Г*ч |
% |
|
P=Z(I) ; |
|
|
|
|
|
Zd)sZ(K) |
|
|
|
41 |
31 |
2(л)=P DfcT=-DET - GOTO 21 continue |
|
|
|
|
■ 20 |
CONTINUE j - |
|
|
|
|
|
|
||
*< <ъ <5> |
|
RETURN |
|
|
|
|
С |
DEBUG. IN IT |
|
|
|
> |
к |
|
END . |
|
|
to |
|
|
|
|
|
|
|
|
|
|
~ ГрСТТУРй•—OCT'92-4279-80 Л. 38'
Обязательное
ЗНАЧЕНИЯ .КОЭФФИЦИЕНТА К ПРИ ОЦЕНКЕ ПОГРЕШНОСТИ
С ЗАДАННОЙ ВЕРОЯТНОСТЬЮ
■ ■" О £
. П р и м.е ч а н и е.- Исследование вида закона распределения
выбор значения коэффициента К проводит разработчик при нии ИП. В зависимости от расчетного значения показателя ности законы’распределения относят к: островершинным при 0^ ф 1,25 уплощенным при А25 * <р 2,5;
двухмодальным при ip > 2,5 , . 4
Показатель двухмодальности рассчитывают по формуле
8ср / ,
проекткрова
двухмодаль^
(25)
ность оценки |
островершинные |
уплощенные |
двухмодальные |
0,6826 (СКО) |
1,00 |
1,00 |
1,00 |
0,9000 |
. 1,65 |
1,60 |
1,50 : |
0,9500 |
1,96 |
. 1,80 |
1^0 |
0,9900 |
2,58 |
2,40 |
1,90 |