1. Dashboard
  2. Forum
    1. Unerledigte Themen
  3. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team-Mitglieder
    4. Trophäen
    5. Mitgliedersuche
  4. Tutorial Bereich
  • Anmelden
  • Registrieren
  • Suche
Dieses Thema
  • Alles
  • Dieses Thema
  • Dieses Forum
  • Seiten
  • Forum
  • Lexikon
  • Erweiterte Suche
  1. Informatik Forum
  2. Webmaster & Internet
  3. Entwicklung

Verteilungsfunktion in R

  • Brain01
  • 5. November 2012 um 15:18
  • Unerledigt
  • Brain01
    2
    Brain01
    Mitglied
    Punkte
    25
    Beiträge
    3
    • 5. November 2012 um 15:18
    • #1

    Hallo :)

    Ich habe ein Problem und bräuchte eure Hilfe bitte.
    Ich soll eine Funktion approximieren. In dieser Funktion habe ich eine Summe enthalten und eine Variable. Mein Problem dabei ist, dass wenn ich für die Variable einen Wert eingebe ich die Information bekomme, dass meine Variable kürzer ist als die Summe. Die Summe geht von 1 bis 12 und meine Werte von x sind definiert von -7 bis 7. Diese Warnmeldung erscheint beim Plotten.

    R:

    verteilung <- function(x, n = 1:12){
    z <- 1/2 + 1/pi * (x/(3*sqrt(2)) + sum(1/n*exp(-(n^2/9))*sin((n*x*sqrt(2))/3)))
    return(z)
    }

    verteilung()

    Warnmeldungen:1: In n * x : Länge des längeren Objektes ist kein Vielfaches der Länge des kürzeren Objektes2: In 1/n * exp(-(n^2/9)) * sin((n * x * sqrt(2))/3) : Länge des längeren Objektes ist kein Vielfaches der Länge des kürzeren Objektes

    danke für die Hilfe!

    Einmal editiert, zuletzt von Brain01 (5. November 2012 um 15:21)

  • emptyvi
    14
    emptyvi
    Logo 2012, Platz 2.
    Reaktionen
    102
    Punkte
    2.037
    Beiträge
    374
    • 5. November 2012 um 17:08
    • #2

    Öh.. das funktioniert bei mir irgendwie problemlos:

    Code
    > verteilung <- function(x, n = 1:12){
    + z <- 1/2 + 1/pi * (x/(3*sqrt(2)) + sum(1/n*exp(-(n^2/9))*sin((n*x*sqrt(2))/3)))
    + return(z)
    + }
    > 
    > frame = data.frame();
    > for(i in seq(-7, 7, 0.01)){
    + frame = rbind(frame, c(i, verteilung(i)));
    + }
    > names(frame) = c("x", "y");
    > 
    > png("verteilung.png", height = 640, width = 640);
    > plot(frame, type="l");
    > dev.off();
    null device 
              1
    Alles anzeigen

    Ergibt:

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    l.g.


    ¤¸¸.•´¯`•¸¸.•..>> Join the herd, join "My Little Pony @ TU-Wien" <<..•.¸¸•´¯`•.¸¸¤
    ¤¸¸.•´¯`•¸¸.•..>> (100% Twilight Sparkle approved) <<..•.¸¸•´¯`•.¸¸¤


    PP-Tutor WS2011 - WS2014
    EVC-Tutor SS2015


  • Brain01
    2
    Brain01
    Mitglied
    Punkte
    25
    Beiträge
    3
    • 12. November 2012 um 19:11
    • #3

    Danke dir! :)

  • Maximilian Rupp 27. Dezember 2024 um 00:26

    Hat das Thema aus dem Forum Programmieren nach Entwicklung verschoben.

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!

Benutzerkonto erstellen Anmelden

Benutzer online in diesem Thema

  • 1 Besucher

Rechtliches

Impressum

Datenschutzerklärung