XProfan

Titre de la fenêtre upper$("   (x,R) - Q u a l i t ä t s k o n t r o l l k a r t e")
'Q:Müller:BASIC-Prog.f.d.angew.Statistik, Oldenbourg 1983, S.270f
'Demoübersetzung pour XProfan11, 2017-11 by P.Specht/vienne, OHNE JEDE GEWÄHR!
Fenêtre Style 24:cls:font 2
declare R![10],X![10,20],X1![10]
declare D$,DATA$,E$,K$
declare E&,I&,j&,K&,N&
declare A!,D1!,D2!,K0!,K9!,R0!,R1!,R9!,tmp!,X0!,X2!,X9!
DATA$=\
"1.88, 0.00, 3.27,"+\
"1.02, 0.00, 2.57,"+\
"0.73, 0.00, 2.28,"+\
"0.58, 0.00, 2.11,"+\
"0.48, 0.00, 2.00,"+\
"0.42, 0.08, 1.92,"+\
"0.37, 0.14, 1.86,"+\
"0.34, 0.18, 1.82,"+\
"0.31, 0.22, 1.78,"+\
"0.29, 0.26, 1.74,"+\
"0.27, 0.28, 1.72,"+\
"0.25, 0.31, 1.69,"+\
"0.24, 0.33, 1.67,"+\
"0.22, 0.35, 1.65,"+\
"0.21, 0.36, 1.64,"+\
"0.20, 0.38, 1.62,"+\
"0.19, 0.39, 1.62,"+\
"0.19, 0.40, 1.60,"+\
"0.18, 0.41, 1.59"
K$="XProfan-PC"
Start:
CLS
imprimer "\n    date ?: ";:INPUT D$

si D$=»:D$=date$(0):locate %csrlin-1,14:imprimer d$

    imprimer "    Kennung: ";k$:imprimer
    PRINT " 1 = Einrichten einer Kontrollkarte sur Grund de bien-Proben"
    PRINT " 2 = Stichprobenauswertung et Einträge dans qui Kontrollkarte"
    PRINT
    G150:
    imprimer " Gewünschte l'élection-Nr.?: ";:input E&
    cas (E&<1) OU (E&>2):goto "G150"
    PRINT
    G180:
    imprimer " Nombre de Stichproben [2..10]?: ";:INPUT N&

    si (N&<=1) OU (N&>10):beep:Goto "G180":endif

        G200:
        imprimer "      Stichprobenumfang [3..20]?: ";:INPUT K&
        PRINT

        si (K&<=2) OU (K&>20):beep:goto "G200":endif

            Whileloop N&:I&=&Boucle

                PRINT "\n ";I&;". Stichprobe\n --------------------------"

                whileloop k&:j&=&Boucle

                    PRINT " ";J&;". Eingabewert?: ";
                    input tmp!:X![I&,J&]=tmp!

                endwhile

                PRINT

            endwhile

            '    ----------------------------------------------------
            plus:
            '    Ausdruck
            Cls:PRINT " ";D$;"   ";K$:PRINT
            GOTO si(E&=1,"G380","G400")
            G380:
            PRINT " Einrichten qui Kontrollkarte"
            GOTO "G410"
            G400:
            PRINT " Eintragen dans qui Kontrollkarte"
            G410:
            PRINT
            PRINT " Anzahl dsr Stichproben: ";N&
            PRINT " Jew. Stichprobenumfang: ";K&
            PRINT

            whileloop n&:i&=&Boucle

                PRINT
                PRINT " ";I&;". Stichprobe"
                PRINT

                whileloop k&:j&=&Boucle

                    PRINT " ";J&;". Eingabewert: ";format$("%g",X![I&,J&])

                endwhile

                PRINT

            endwhile

            '    ---------------------------
            '    Berechnung

            whileloop n&:i&=&Boucle

                X1![I&]=0

            endwhile

            X2!=0:R1!=0

            whileloop n&:i&=&Boucle

                X0!=X![I&,1]
                X9!=X![I&,1]

                whileloop k&:j&=&Boucle

                    cas X0!>X![I&,J&]:X0!=X![I&,J&]
                    cas X9!<X![I&,J&]:X9!=X![I&,J&]
                    X1![I&]=X1![I&]+X![I&,J&]

                endwhile

                X1![I&]=X1![I&]/K&
                R![I&]=X9!-X0!
                R1!=R1!+R![I&]
                X2!=X2!+X1![I&]

            endwhile

            X2!=X2!/N&
            R1!=R1!/N&
            Goto si(E&=1,"G790","G1200")
            G790:
            A! =val(substr$(data$,3*(k&-2)+1,»))
            D1!=val(substr$(data$,3*(k&-2)+2,»))
            D2!=val(substr$(data$,3*(k&-2)+3,»))
            K0!=X2!-A!*R1!
            K9!=X2!+A!*R1!
            R0!=D1!*R1!
            R9!=D2!*R1!
            G1200:
            ' Ausgabeteil
            PRINT:PRINT:PRINT
            cas E&=1:GOTO "G1230"
            cas E&=2:goto "G1290"
            G1230:
            PRINT " TOLERANZBÄNDER D' DIE KONTROLLKARTE"
            PRINT " ------------------------------------"
            PRINT " Untere Kontrollgrenze pour Stichproben-Mittelwerte: ";format$("%g",K0!)
            PRINT "  Obere Kontrollgrenze pour Stichproben-Mittelwerte: ";format$("%g",K9!)
            PRINT " Ontere Kontrollgrenze pour Stichproben-Spannweite:  ";format$("%g",R0!)
            PRINT "  Obere Kontrollgrenze pour Stichproben-Spannweite:  ";format$("%g",R9!)
            G1290:
            PRINT
            PRINT " ERRECHNUNG DER STICHPROBENMITTELWERTE UND -SPANNWEITEN"
            Imprimer " ------------------------------------------------------"
            PRINT " Nr.";tab(14);"Mittelwert";tab(32);"Spannweite"

            whileloop n&:i&=&Boucle

                PRINT " ";I&;TAB(14);format$("%g",X1![I&]);TAB(32);format$("%g",R![I&])

            endwhile

            PRINT
            G1350:
            imprimer:locate %csrlin-1,1
            imprimer " sommes weitere Berechnungen gewünscht (j/n)?: ";:INPUT E$
            cas left$(lower$(E$),1)="j":goto "Start"
            FIN