Inzerujte na AbcPráce.cz od 950 Kč

napište » Zprávičky

Další novinky od Applu: čipy M5 Pro a M5 Max, …

včera 21:55 | IT novinky

Apple představil nové čipy M5 Pro a M5 Max, MacBook Pro s čipy M5 Pro a M5 Max, MacBook Air s čipem M5 a Studio Display a nový Studio Display XDR.

Ladislav Hagara | Komentářů: 0

Installfest 2026 - hlasování o přednáškách a workshopech

včera 13:44 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní Installfest, jenž proběhne o víkendu 28. a 29. března v Praze na Karlově náměstí 13.

Ladislav Hagara | Komentářů: 1

GIMP 3.2 RC3

včera 04:33 | Nová verze

Byla vydána (Mastodon, 𝕏) třetí RC verze GIMPu 3.2. Přehled novinek v oznámení o vydání. Podrobně v souboru NEWS na GitLabu.

Ladislav Hagara | Komentářů: 0

iPhone 17e a iPad Air s čipem M4

2.3. 21:44 | IT novinky

Apple představil iPhone 17e a iPad Air s čipem M4.

Ladislav Hagara | Komentářů: 12

Gram 1.0

2.3. 21:11 | Zajímavý software

Byla vydána verze 1.0 editoru kódů Gram. Jedná se o fork editoru Zed bez telemetrie a umělé inteligence.

Ladislav Hagara | Komentářů: 0

Oznámena spolupráce GrapheneOS s Motorolou

2.3. 20:33 | IT novinky

Byla oznámena spolupráce GrapheneOS s Motorolou. Podrobnosti v tiskové zprávě. GrapheneOS (Wikpedie) je varianta Androidu zaměřující se na bezpečnost a soukromí.

Ladislav Hagara | Komentářů: 0

Armbian 26.2.1

2.3. 02:22 | Nová verze

Armbian, tj. linuxová distribuce založená na Debianu a Ubuntu optimalizovaná pro jednodeskové počítače na platformě ARM a RISC-V, ke stažení ale také pro Intel a AMD, byl vydán ve verzi 26.2.1. Přehled novinek v Changelogu.

Ladislav Hagara | Komentářů: 0

Začaly volby do Rady openSUSE

2.3. 02:11 | Komunita

Volí se dvě místa v Radě openSUSE. Seznamte se se čtyřmi kandidáty. Členové projektu openSUSE mohou hlasovat od 1. do 8. března. Výsledky budou oznámeny 9. března.

lkocman | Komentářů: 3

OpenAI uzavřela dohodu s Pentagonem

1.3. 19:22 | IT novinky

Společnost OpenAI uzavřela dohodu s americkým ministerstvem obrany o poskytování technologií umělé inteligence (AI) pro utajované sítě americké armády. Firma to oznámila několik hodin poté, co prezident Donald Trump nařídil vládě, aby přestala využívat služby společnosti Anthropic.

Ladislav Hagara | Komentářů: 13

Pentagon označil Anthropic za bezpečnostní riziko

1.3. 13:33 | IT novinky

Technologická společnost Anthropic v noci na dnešek oznámila, že se obrátí na soud kvůli rozhodnutí ministerstva obrany označit ji za bezpečnostní riziko dodavatelského řetězce poté, co nevyhověla jeho požadavkům týkajícím se používání umělé inteligence (AI). Prezident Donald Trump krátce před tím uvedl, že nařídil federálním úřadům postupně ukončit využívání jejích AI technologií. Spor mezi firmou vyvíjející chatbot Claude a

… více »

Ladislav Hagara | Komentářů: 18

Centrum | Napsat | Starší

navrhněte » Anketa

Komentářů: 25, poslední 3.2. 19:50

Rozcestník

AbcLinuxu

HDmag.cz

Administrace komentářů

Jste na stránce určené pro řešení chyb a problémů týkajících se diskusí a komentářů. Můžete zde našim administrátorům reportovat špatně zařazenou či duplicitní diskusi, vulgární či osočující příspěvek a podobně. Děkujeme vám za vaši pomoc, více očí více vidí, společně můžeme udržet vysokou kvalitu AbcLinuxu.cz.

Příspěvek

29.8.2008 11:14 Karluzo
Rozbalit Rozbalit vše Aproximace polynomem ve Fortranu

Dobrý den, potřebuji pomoci vyřešit následující úlohu. Mám program, který zpracovává data z laserového měření. Součástí programu je malá soubroutinka, která řeší aproximaci polynomem. Problém je v tom, že když se zadá polynom vyššího řádu jak 8, program se hroutí a data začínají být nesmyslná. Potřebuji poradit, jak tuto soubrotinu upravit, případně nahradit, aby program řešil aproximace polynomem i vyšších řádů. Děkuji za pomoc a nápady. Karel

SUBROUTINE DAPRX(X,Y,N,M,CP)

C     ****************

C

C     APROXIMATION OF THE MEASURED VALUES BY THE POLYNOM

C

C     PARAMETERS    X,Y   ... INPUT VALUES IN D.P. ARRAYS

C                   N     ... NO. OF POINTS

C                   M      ... DEGREE OF POLYNOM

C                   CP    ... OUTPUT ARRAY CONTAINING THE

C                              COEFFICIENTS

C

      DOUBLE PRECISION X(1),Y(1),C(20,11),CP(20),B(40),DPV

      DOUBLE PRECISION U,S,P

      IF((N-M).GT.1) GO TO 67

      WRITE(*,66)

66    FORMAT(' *** ERROR *** IN APPROXIMATION , M >N-1 !!! ',/)

      RETURN

67    CONTINUE

      M1=M

      M=M+1

      M2=2*M1

      DO 490 K=1,M2

      B(K)=0.D0

      DO 490 I=1,N

      B(K)=B(K)+X(I)**K

490   CONTINUE

C

      DO 570 I=1,M

      DO 570 J=1,M

      I2=I+J-2

      IF(I2.NE.0) GO TO 560

      C(1,1)=N

      GO TO 570

560   C(I,J)=B(I2)

570   CONTINUE

C

      C(1,M+1)=0.D0

      DO 630 I=1,N

630   C(1,M+1)=C(1,M+1)+Y(I)

      DO 690 K=2,M

      C(K,M+1)=0.D0

      DO 690 I=1,N

      C(K,M+1)=C(K,M+1)+Y(I)*(X(I)**(K-1))

690   CONTINUE

C

      N1=M+1

      J=1

      K=1

      I=1

740   I3=I+K

      DPV=C(I,J)*C(I3,J)

      IF(DPV.NE.0.D0) GO TO 790

      U=1.D0

      S=0.0D0

      GO TO 820

790   P=DSQRT(C(I,J)*C(I,J)+C(I3,J)*C(I3,J))

      U=C(I,J)/P

      S=-1.D0*C(I3,J)/P

820   DO 860 J1=J,N1

      P=U*C(I,J1)-S*C(I3,J1)

      C(I3,J1)=S*C(I,J1)+U*C(I3,J1)

      C(I,J1)=P

860   CONTINUE

      K=K+1

      KH=K+I-M

      IF(KH.LE.0) GO TO 740

      K=1

      I=I+1

      J=J+1

      IF((J-M).LT.0) GO TO 740

C

      I=M

950   C(I,N1)=C(I,N1)/C(I,I)

      K=I-1

970   IF(K.LE.0) GO TO 1010

      C(K,N1)=C(K,N1)-C(K,I)*C(I,N1)

      K=K-1

      GO TO 970

1010  I=I-1

      IF((I-1).GE.0) GO TO 950

C

      DO 1011 I=1,20

1011  CP(I)=C(I,M+1)

      RETURN

      END

V tomto formuláři můžete formulovat svou stížnost ohledně příspěvku. Nejprve vyberte typ akce, kterou navrhujete provést s diskusí či příspěvkem. Potom do textového pole napište důvody, proč by měli admini provést vaši žádost, problém nemusí být patrný na první pohled. Odkaz na příspěvek bude přidán automaticky.

Offtopic diskuse použijte pro diskusi mimo záběr našeho portálu (včelařství, windows), která by měla být smazána.
Duplicitní diskuse je určena pro případ, kdy uživatel odeslal svůj dotaz několikrát.
Návrh na cenzuru použijte, pokud komentář obsahuje urážky, vulgarismy nebo porušuje zákony.
Návrh na smazání komentáře je velmi neobvyklá akce používaná obvykle při nepovolené reklamě či spamu, výkřicích psychicky nemocných jedinců (ještírci) nebo pro smazání duplikátních komentářů.
Oprava formátování je žádost pro úpravu formy příspěvku, například pokud někdo píše bez odstavců nebo použije PRE pro celý komentář. Žádosti o změnu obsahu budou zamítnuty.

Vaše jméno
Váš email
Typ požadavku

Slovní popis