2011-11-15 12 views
6

में ग्राफिक्स का उपयोग करके ग्रेडियेंट भरें Graphics[] में Rectangle[] का उपयोग करके मैं निम्नलिखित कैसे बना सकता हूं?गणित

enter image description here

उत्तर

7

Polygon का उपयोग करना, आप कर सकते हैं

Graphics[{EdgeForm[Black], 
    Polygon[{{0, 0}, {3, 0}, {3, 1}, {0, 1}}, 
    VertexColors -> {White, Red, Red, White}]}] 
+3

और सिर्फ मनोरंजन के लिए (काम करने के लिए एक वेब कैमरा की आवश्यकता है): अंक = {{ 0, 0}, {1, 0}, {1, 1}, {0, 1}}; ग्राफिक्स [{बनावट [CurrentImage []], पॉलीगॉन [पीटीएस, वर्टेक्सटेक्चर कॉर्डिनेट्स -> अंक]}] –

+0

CurrentImage [] - एक फ़ंक्शन का एक दिलचस्प उदाहरण है जो ऑनलाइन प्रलेखन में मेरी मशीन पर इतना बेहतर काम करता है। .. :) और आप इसे कैसे बंद करते हैं ... – cormullion

+0

@cormullion यह बहुत अच्छी तरह से काम करता है। 'गतिशील @ CurrentImage [] 'आज़माएं। कैप्चर करने वाला पहला फ्रेम काला हो सकता है (इसे समायोजित करने के लिए समय चाहिए), और यदि कई 'गतिशील' हैं, तो यह थोड़ा अविश्वसनीय हो जाता है। 'ImageCapture [] 'एक यूआई खोलता है जो आपको इसे बंद करने देता है। – Szabolcs

5
इसके अलावा

:

Graphics[Raster[{Range[100]/100}, ColorFunction -> (Blend[{White, Red}, #] &)], 
AspectRatio -> .3, 
Frame  -> True, 
FrameTicks -> None] 

enter image description here