Je voudrais tracer un intervalle simple sur la ligne de numéro de Mathematica. Comment puis-je faire cela?
6 Réponses :
Faites un graphique code> régulier CODE> et définir EG P> axes -> {true, false} CODE> (et cachez la boîte de sélection si on existe généralement non). Ajuster la taille de l'image ou le rapport de l'image selon le cas. Plot[
Piecewise[{
{0, And[0<x, x<1]}
}],
{x,-1,2},
Axes -> {True, False}
]
Votre code ne fonctionne pas. Il vous manque un domaine de parcelle et votre morceaux est équivalent à la fonction F (x) = 0 ...
@Simon: J'ai prévenu cela dans ma réponse. Merci pour la mention sur le domaine de la parcelle cependant.
Pour tracer des intervalles ouverts ou fermés, vous pouvez faire quelque chose comme: Suivé est la belle extension effectuée par @simon, probablement gâté par moi essayant de résoudre le problème des intervalles de chevauchement . 
< / p>
+1, mais ça vous dérange si je modifie ce qui précède pour généraliser pour plusieurs intervalles?
@Simon Les intervalles de chevauchement gâcheront la parcelle. Je pense qu'une autre stratégie de visualisation est nécessaire pour cela :(
Vrai. J'ai seulement testé ma modification de votre code sur des intervalles non superposés. Vous auriez besoin de simplifier / réduire manuellement ...
@Simon De toute façon, si vous considérez cela une amélioration, n'hésitez pas à modifier ma réponse ou à poster une nouvelle!
Sur la réflexion, il ruine la clarté de votre réponse. Voici Mon extension de votre code sur Pastebin.
@Simon merci! Étendu à nouveau et posté comme édition
Voici une solution laidée utilisant un exemple réduisant une valeur absolue: peut utiliser toute variable: régionPlot . Les limites ouvertes sont représentées avec des lignes pointillées et des limites fermées avec des lignes complètes 
Réduire S Inégalités étrangères, comparez le Suivant: 
< / p>
Voici une autre tentative qui dessine des lignes de numéro avec les cercles blancs et noirs les plus classiques, bien que tout élément graphique que vous souhaitez soit facilement échangé.
Il s'appuie sur logicalExpand [SIMPLIFY @ Réduire [EXPR, X ]] code> et Trier code> Pour obtenir l'expression dans quelque chose qui ressemble à une forme canonique que les règles de remplacement peuvent fonctionner. Ceci n'est pas testé largement et probablement un peu fragile. Par exemple, si le expr code> réduit à true code> ou false code>, mon code ne meure pas gracieusement. P> Graphics@@First@Cases[wa, GraphicsBox[__], Infinity, 1]
Merci! Je me souvenais aussi de la nuit dernière que Wolfram | Alpha peut tracer des lignes de numéro; par exemple. 0
Neat, mais :) Pourquoi pourquoi pourquoi dois-je télécharger un ordinateur portable Mathematica de la sortie s'il n'est pas utilisable?
La solution laidée précédente m'a aidé à développer la fonction InqualityPlot pour résoudre et tracer des inégalités dans deux variables.
InequalityPlot[x^2 + y^2 < 0.5 && x + y <= 0.5,{x, -1, 1}, {y, -1, 1}]
Pouvez-vous décrire exactement ce que vous voulez? Voulez-vous des points ouverts et fermés ou des parenthèses ouvertes et des crochets fermés? Voulez-vous simplement les chiffres pertinents ou une gamme de chiffres entre les importants?
La démonstration Les solutions de lignes de numéro aux équations de valeur absolue et aux inégalités fait un bon travail de dessin d'un intervalle simple.