45

আপনার চ্যালেঞ্জটি হ'ল নীচের হৃদয়গুলির মধ্যে একটি আঁকতে / চক্রান্ত করা। আকারটি কমপক্ষে 50x50 পিক্সেল হতে হবে (ভেক্টরের গ্রাফিক্স ঠিক আছে)। আপনি কোন হৃদয় আঁকতে / চক্রান্ত করতে চান তা চয়ন করতে পারেন। অক্ষ, গ্রিড লাইন ইত্যাদি গ্রহণ করা হয়। হতে হবে কমপক্ষে 100 স্বতন্ত্র স্থানাঙ্ক / গ্রাফে পয়েন্ট। চাইলে হৃদয় রঙে পূর্ণ হতে পারে।

সমীকরণগুলি হয়:

অথবা

$এখানে চিত্র বর্ণনা লিখুন$

tপরিসীমা হয় [-1, 1]।

অথবা

$এখানে চিত্র বর্ণনা লিখুন$

এটি কোড-গল্ফ তাই সংক্ষিপ্ততম কোড (প্রতিটি ভাষায়) বাইট জেতে। অনুগ্রহ করে আউটপুট সরবরাহ করুন (বা একটি অনলাইন অনুবাদকের সাথে লিঙ্ক করুন)।

code-golf math graphical-output

— স্টিও গ্রিফিন
সূত্র

66

টিআই -80 বেসিক, 45 43 41 39 বাইট

LBL 1
RAND4-2->X
RAND4-2
IF (X²+ANS²-1)³<X²ANS³
PT-ON(X,ANS
GOTO 1

এটি কিছুক্ষণ সময় নিয়েছে এবং আমার ব্যাটারি কম তাই আমি চালিয়ে যেতে চাইনি।

আমি দ্বিতীয় সমীকরণটি ব্যবহার করার চেষ্টা করেছি, তবে ~~এটি কাজ করতে পেলাম না~~ এটি আসলে দীর্ঘতর হয়ে গেছে, তাই আমি আমার সাথে থাকা অন্য উত্তরটি কেবল খাপ খেয়েছি।

সম্পাদনা: আমি কেবল 50x50 পিক্সেলের প্রয়োজনীয়তাটি লক্ষ্য করেছি, দুর্ভাগ্যক্রমে পর্দা মাত্র 47 পিক্সেল বেশি তাই এটি সম্ভব নয়।

— 12Me21
সূত্র

1

সৃজনশীল!

— ড্যালারন

8

এটি একটি সময় হয়েছে, কিন্তু আপনি প্রতিস্থাপন করতে পারেন IF (X²+ANS²-1)³-X²ANS³<0সঙ্গে IF (X²+ANS²-1)³<X²ANS³?

— wchargin

ওহ, আমি বিশ্বাস করতে পারি না যে আমি এটি ভেবে দেখিনি! ধন্যবাদ

— 12

45

পার্ল, 86 বাইট

$y=1-$_/25,say+map$y**3*($_*=$_/1e3)-($_+$y**2-1)**3>0?$|--?v60:3:$",-40..40for-6..50

সাথে চালাও perl -E।

প্রথম সমীকরণটি ব্যবহার করে একটি পূর্ণ ASCII হার্ট প্লট করে। নোট করুন যে এক্স-অক্ষটি ~ 1.265 এর একটি ফ্যাক্টর দ্বারা প্রসারিত: এটি টার্মিনাল ফন্টগুলি অনুভূমিকের চেয়ে সাধারণত উল্লম্বভাবে আরও বড় আকারের হয় coun

আউটপুট:

                3<3<3<3<3<3<3<                   3<3<3<3<3<3<3<                 
              3<3<3<3<3<3<3<3<3<3<           3<3<3<3<3<3<3<3<3<3<               
            3<3<3<3<3<3<3<3<3<3<3<3<       3<3<3<3<3<3<3<3<3<3<3<3<             
          3<3<3<3<3<3<3<3<3<3<3<3<3<3<   3<3<3<3<3<3<3<3<3<3<3<3<3<3<           
         3<3<3<3<3<3<3<3<3<3<3<3<3<3<3< 3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<          
        3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3 <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<         
       3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3        
      <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<       
      3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3       
     <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<      
     3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3      
    <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<     
    3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3     
    <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<     
    3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3     
    <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<     
   3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3    
   <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<    
    3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3     
    <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<     
    3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3     
    <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<     
    3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3     
     <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<      
     3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3      
     <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<      
      3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3       
      <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<       
       3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3        
       <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<        
        3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3         
         <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<          
         3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3          
          <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<           
           3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3            
            <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<             
             3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3              
              <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<               
               3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3                
                <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<                 
                 3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3                  
                  <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<                   
                   3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3                    
                     <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<                      
                      3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3                       
                       <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<                        
                         3<3<3<3<3<3<3<3<3<3<3<3<3<3<3                          
                           <3<3<3<3<3<3<3<3<3<3<3<3<                            
                            3<3<3<3<3<3<3<3<3<3<3<3                             
                              <3<3<3<3<3<3<3<3<3<                               
                                3<3<3<3<3<3<3<3                                 
                                  <3<3<3<3<3<                                   
                                    3<3<3<3                                     
                                     <3<3<                                      
                                       3

ব্যাখ্যা (যেহেতু ওপি এটি চেয়েছিল):

condition := $y**3*($_*=$_/1e3)-($_+$y**2-1)**3>0

এটি কেবল প্রথম সমীকরণ, এটি সংক্ষিপ্ত করে তুলতে সামান্য পুনরায় সাজানো। formula y সূত্রে সরাসরি y প্রতিনিধিত্ব করে। $ _ প্রথমে x এর সাথে সমানুপাতিক, তবে $_*=$_/1e3এটি x² এর সাথে সমানুপাতিক হয়ে নিজেকে ( ) দিয়ে গুণিত হয় assigned যেহেতু সূত্রটিতে x² দুবার ব্যবহার করা হয়েছে, এটি কয়েক বাইট সংরক্ষণ করে।

1e3এর অর্থ 1000, এবং এটি চয়ন করা হয়েছিল কারণ এটি সংক্ষিপ্ত এবং ফলাফলটি দুর্দান্ত দেখাচ্ছে। ** পার্লের পাওয়ার অপারেটর। আমি >0বরং ==0ভরাট হৃদয় চাই বলেই ব্যবহার করি।

flip_flop := $|--?v60:3

v60 ASCII কোড 60: '<' সহ অক্ষরটি বোঝাতে প্রত্নতাত্ত্বিক সংস্করণ-স্ট্রিং সিনট্যাক্সের অপব্যবহার।

$ | একটি যাদুকরী পরিবর্তনশীল যা কেবল সর্বদা 0 বা 1 হতে পারে Dec এটি ইতিমধ্যে 0 সেট হয়ে গেলেই ক্রমহ্রাসমান 1 এ 1 প্রাকৃতিকভাবে সেট হয়ে থাকে তখন হ্রাস Thus সুতরাং, $ | - প্রায়শই একটি ফ্লিপ-ফ্লপ হিসাবে ব্যবহৃত হয়: প্রতিবার এটি মূল্যায়ন করা হয়, এটি সত্য এবং মিথ্যাতে বিকল্প হয়।

সামগ্রিকভাবে, এই প্রকাশটি '<' এবং 3 বিকল্প হিসাবে ফিরে আসে।

inner_loop := <condition> ? <flip_flop> :$"

নেস্টেড টেরিনারি যদি শর্তটি মিথ্যা হয় (→ আমরা হৃদয়ের বাইরে),, "-এর মূল্যায়ন করে, এটি একটি যাদুকরী পরিবর্তনশীল যা" "(একক স্থান) -এ ডিফল্ট হয় condition যদি শর্তটি সত্য হয় (→ আমরা হৃদয়ের ভিতরে আছি), এটি flip_flop মূল্যায়ন।

outer_loop := say+map <inner_loop> ,-40..40

_ _ (পার্লের "ডিফল্ট" ভেরিয়েবল) -৪০ থেকে ৪০ থেকে ৪ এর মধ্যে বৃদ্ধি পেয়ে ইনার_লুপটি বারবার মূল্যায়ন করে It ।

$y=1-$_/25, <outer_loop> for-6..50

এটি বারবার আউটলুপে চলে, y এর সাথে ১.২৪ (১ - (-6 / 25)) থেকে -1 (1 - 50/25) হয় 0.04 এর হ্রাস।

নোট করুন যে y 25 কে বিভক্ত করা হয়েছে, আর x² কে 1000 দ্বারা বিভক্ত করা হয়েছে যা x x দ্বারা sqrt (1000) দ্বারা বিভক্ত হবে। আমি উল্লিখিত ~ 1.265 এর ফ্যাক্টরটি স্কয়ারটি (1000) / 25।

— Grimmy
সূত্র

5

হু, আমি অনুমান করি এটি কোনও নিয়ম লঙ্ঘন করে না ... আমার এতদিনের প্রিয় :) আমি যদিও তার একটি ব্যাখ্যা পছন্দ করব :)

— স্টিভি গ্রিফিন

1

আমি কিছু সম্পর্কে বিভ্রান্ত। কেন ব্যবহার করবেন? V60 ওভার, বলুন, "<"?

— নিক হার্টলি

একই দৈর্ঘ্য, তবে টাইপ করা সহজ।

— গ্রিমি

অন্তর থেকে তৈরি একটি হৃদয়।

— দ্য ওয়ান্ডারার

34

গাণিতিক ওল্ফ্রামআল্ফা, 17 15 13 11 বাইট

মার্টিন ইেন্ডারকে (2 ম হার্ট কার্ভ -> হার্ট কার্ভ 1) ধন্যবাদ 2 বাইট বন্ধ

মার্টিন ইেন্ডারকে (হার্ট কার্ভ 1 -> হার্টকার্ভ 1) ধন্যবাদ আরও 2 বাইট বন্ধ

এটি সম্ভবত প্রতারণা (স্পষ্ট সমাধান), তবে এখানে রয়েছে।

heartcurve1

এখানে চেষ্টা করুন!

আমি নিশ্চিত যে ওল্ফ্রাম এখনও এটিকে গ্রহণ করে এমন 1 টি হৃদয় বা বাঁকানোর উপায় আছে। আচ্ছা এটি এখন ফাঁকা জায়গা থেকে মুক্ত, হৃদয়ের জন্য কিছু সংক্ষেপণ হতে পারে?

আমি কি এর মধ্যে 2 প্লট করার জন্য বোনাস পয়েন্ট পেতে পারি?

heartcurves

এখানে চেষ্টা করুন!

— Thunda
সূত্র

5

heart curve 1

— মার্টিন এন্ডার

6

আসলে, heartcurve1কাজ করে।

— মার্টিন ইন্ডার

23

@ মার্টিনইেন্ডার কি বিশ্বে

— থুন্ডা

1

হার্টকার্ফগুলির মধ্যে প্রথমটি আরও একটি বাটের মতো দেখাচ্ছে

— মিখাইল ভি

@ মিখাইলভি 0 তম হার্টকার্ভ (কার্ডয়েড) একটি বাটের মতো দেখায়।

— থুন্ডা

29

গণিত, 52 বাইট

RegionPlot[(x^2+y^2-1)^3-x^2y^3<0,{x,-2,2},{y,-2,2}]

আমরা এর সাথে আরও একটি বাইট সংরক্ষণ করতে পারি ContourPlotতবে পটভূমিটি কিছুটা ট্রিপি হয়ে যায়:

ContourPlot[(x^2+y^2-1)^3-x^2y^3,{x,-2,2},{y,-2,2}]

একটি অতিরিক্ত বাইটের জন্য আমরা চতুর্থ সূত্রটি ব্যবহার করতে পারি এবং এর PolarPlotপরিবর্তে:

PolarPlot[(x=Sin@t)Abs@Cos@t^.5/(x+7/5)-2x+2,{t,0,7}]

— মার্টিন ইন্ডার
সূত্র

23

"কিছুটা ট্রিপি" হ'ল কিছুটা অবমূল্যায়ন ...

— মেগো

কনট্যরপ্লট ওসিডিকে এত বেশি ট্রিগার করে। Aaaaaah! : ডি

— কীউইউএসআর

25

ক্যাসিও fx-7700GH, 21 বাইট

sin θ √ Abs cos θ ÷ ( sin θ + 7 ÷ 5 ) - 2 sin θ + 2

কোনও মেরু সমন্বয় গ্রাফিং ফাংশন স্লটগুলির মধ্যে একটিতে প্রবেশ করতে নামকৃত গ্রাফ ফাংশন, তারপরে টিনে যা বলে তা করে does

গ্রাফিংয়ের ব্যাপ্তিটি ম্যানুয়ালি সেট করতে হবে (যদি না এটি বর্তমান সেট ব্যাপ্তির সাথে মানানসই হয়), আমি এটি সেট করে রেখেছি Xmin=-2.75, Xmax=2.75, Ymin=-4, Ymax=1।

অন্যান্য ক্যাসিও পাওয়ার গ্রাফিক সিরিজ ক্যালকুলেটরগুলিতেও কাজ করা উচিত, এবং সম্ভবত সম্ভবত ক্যাসিও গ্রাফিক গ্রন্থকারক।

(হ্যাঁ ~~আমি~~ বেশ পুরাতন এবং ধুলাবালি)

— জোনাথন অ্যালান
সূত্র

18

ম্যাটল্যাব / অক্টোবায়, 31 বাইট

ezplot('(x^2+y^2-1)^3-x^2*y^3')

— Suever
সূত্র

9

স্মাইলব্যাসিক, 85 81 বাইট

X=RNDF()*4-2Y=RNDF()*4-2GPSET X*50+99,Y*50+99,-(-X*X*Y*Y*Y>POW(X*X+Y*Y-1,3))EXEC.

— 12Me21
সূত্র

9

দেশমস , 20 16 15 বাইট

ভি 2:

xx) ^.3 y = xx + yy-1

(= xx)^.3y=xx+yy-1)

ভি 1:

xx + yy-1) ³ = xxy ³

ভি 0:

(x²+y²-1)³=x²y³

— ড্যানিয়েল
সূত্র

আপনি তার xxপরিবর্তেx^2

— 12

@ 12Me21, ওহ এটি দুর্দান্ত, ধন্যবাদ!

— ড্যানিয়েল

আপনার বাইট গণনা ভুল, আপনার কাছে একটি অতিরিক্ত নতুন লাইন।

— Rɪᴋᴇʀ

@ রিকার, আমি দেখতে পাচ্ছি না যে এটি কীভাবে ভুল। নতুন লাইন কোথায় আছে?

— ড্যানিয়েল

imgur.com/a/4eTyt V2 14 বাইট

— Rɪᴋᴇʀ

7

এমএটিএল, 36 বাইট

1e4t:w/EqXJX,JY,J|Yl**JX,X^J|.3^*&XG

এমএটিএল অনলাইন এ চেষ্টা করুন Try

— Suever
সূত্র

9

Tfw MATL সমাধান ম্যাটল্যাব চেয়ে দীর্ঘতর হয় :)

— brainkz

7

পাইথন, 119 116 বাইট

from turtle import*
from math import*
t=1
while-t<1:a=abs(t);c=cos(t);goto(sin(t)*c*log(a)*99,c**.5*a**.3*99);t-=.01

এটি অনলাইনে চেষ্টা করুন

এক্স = পাপ (টি) * কোসাইন্ (টি) * লগ (ABS (টি))

$Y = কোসাইন্ (টি) **। 5 * ABS (টি) **। 3$

— mbomb007
সূত্র

6

সেজম্যাথ, 66 বাইট

polar_plot(sin(x)*abs(cos(x))^.5/(sin(x)+7/5)-2*sin(x)+2,(0,2*pi))

এটি অনলাইনে চেষ্টা করুন

দুর্ভাগ্যক্রমে, এর দীর্ঘ নাম implicit_plotএবং parametric_plot(প্লাস পূর্বের জন্য অন্তর্নিহিত সংজ্ঞায়িত ব্যতীত অন্য কোনও পরিবর্তনশীলকে সংজ্ঞায়িত করার প্রয়োজনীয়তা x) প্রথম তিনটি বিকল্প বিবেচনা করার জন্য অনেক দীর্ঘ করে তোলে।

একটি বাইট জন্য busukxuan এবং Andrea Lazzarotto ধন্যবাদ

— ঐ মেগো
সূত্র

1

কি ^.5স্থানে কাজ **.5?

— বাসুকসুয়ান

1

পুনঃটুইট সেজ পাইথনের উপর নির্মিত এবং ^এটি XOR।

— মেগো

1

কিন্তু ঋষি পরিপূরক ^সঙ্গে **। আমি ভাবছিলাম যে এটি এর কারণ এটি সঠিকভাবে প্রতিস্থাপন করতে না পারলে একটি.

— busukxuan

@ বসুকক্সুয়ান সেজ পাইথনের পাওয়ার নোটেশন ( **) ব্যবহার করে। আপনি যদি ব্যবহার করার চেষ্টা করেন ^, আপনি একটি সতর্কতা এবং একটি ভুল ফলাফল দিয়ে শেষ করতে চাই।

— মেগো

1

@ আন্দ্রেয়া লাজারোত্তো তাহলে স্পষ্টতই আমার স্মৃতি ত্রুটিপূর্ণ। ধন্যবাদ।

— মেগো

6

সি, 137 133 বাইট

p;float x,y,f;v(){for(p=4e3;p;x=(float)(p%99-50)/35,y=(float)(p/40-45)/40,f=x*x+y*y-1)putchar(p--%99?f*f*f-x*x*y*y*y<1e-3?35:32:10);}

http://codepad.org/zqqYUui8

ধন্যবাদ অ্যালবার্ট রেনশো, আমি আরও দুটি বাইটের জন্য 100 এর দশকে 99 কে পরিবর্তন করেছি

— Ahemone
সূত্র

1

+1 টি; আমি vফাংশনটির জন্য ভাল ব্যবহার করতে চাই । আপনি প্রতিস্থাপন দুটি বাইট শেভ করতে 4000সঙ্গে 4e3এবং প্রতিস্থাপন 0.001সঙ্গে1e-3

— আলবার্ট Renshaw

6

জেলি , 31 বাইট

*3×
²+’*3<çị⁾* 
25µNr÷21µ²ç@þUY

এটি অনলাইন চেষ্টা করুন!

বা পূরণের পরিবর্তে 35 বাইট সহ : মাঝের লাইনটি এতে পরিবর্তন করুন ।♥*²+’*3<ç×9829Ọ»⁶

          ♥♥♥♥♥♥♥♥♥♥           ♥♥♥♥♥♥♥♥♥♥          
        ♥♥♥♥♥♥♥♥♥♥♥♥♥♥       ♥♥♥♥♥♥♥♥♥♥♥♥♥♥        
      ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥   ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥      
     ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥ ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥     
     ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥ ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥     
    ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥    
   ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥   
   ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥   
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥  
   ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥   
   ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥   
   ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥   
    ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥    
    ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥    
     ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥     
     ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥     
      ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥      
      ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥      
       ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥       
        ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥        
        ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥        
         ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥         
          ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥          
           ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥           
            ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥            
             ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥             
              ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥              
               ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥               
                 ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥                 
                  ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥                  
                   ♥♥♥♥♥♥♥♥♥♥♥♥♥                   
                     ♥♥♥♥♥♥♥♥♥                     
                      ♥♥♥♥♥♥♥                      
                        ♥♥♥                        
                         ♥

কিভাবে?

উপাদানসমূহ: একটি 51 বাই 51 লাইন ফিডের পৃথক অক্ষরের গ্রিড।

*3× - Link 1: y, xSquared
*3  - cube y
  × - multiply the result by xSquared

²+’*3<çị⁾*  - Link 2: y, xSquared
²           - square y
 +          - add xSquared to the result
  ’         - subtract one
   *3       - cube the result
     <      - less than? (1 if True, 0 if False)
      ç     -     the result of the last link (1) as a dyad: f(y, xSquared)
       ị    - index into (1-based):
        ⁾*  - the string "* " (there is a trailing space on this line)

       ×9829Ọ»⁶ - alternative ending of link 2
       ×9829    - multiply (vectorises) by 9829
            Ọ   - cast to character (vectorises) (9829 is the ♥, 0 is the null-byte)
             »  - maximum (vectorises) of that and:
              ⁶ -     space character (ordinal of space is 32, greater than the null-byte, less than ♥)

25µNr÷21µ²ç@þUY - Main link: no arguments
25              - 25
  µ             - monadic chain separation call that i
   N            - negate i
    r           - inclusive range(negated i, i) -> [-25, -24, ..., 24, 25]
     ÷21        - divide by 21 (vectorises) -> [-1.1904761904761905, -1.1428571428571428, ..., 1.1428571428571428, 1.1904761904761905]
        µ       - monadic chain separation call that r
         ²      - square r (vectorises) (make the xSquared values, left to right)
             U  - upend r (make the y values, top to bottom)
            þ   - outer product using:
          ç@    -     last link (2) as a dyad with reversed arguments: f(y, xSquared)
              Y - join with line feeds
                - implicit print

— জোনাথন অ্যালান
সূত্র

5

জাভাস্ক্রিপ্ট (ES6), 151 147 বাইট

document.write`<canvas id=c>`;for(i=0;x=2-i/24,i<97;i++)for(j=0;y=2-j/24,z=x*x+y*y-1,j<97;j++)z*z*z-x*x*y*y*y<0&&c.getContext`2d`.fillRect(i,j,1,1)

স্নিপেট প্রসারিত করুন

সম্পাদনা: সংরক্ষিত 4 বাইট @ ইউজার 2428118 এর জন্য ধন্যবাদ। 143 বাইটের জন্য ES7 সংস্করণ:

document.write`<canvas id=c>`;for(i=0;i<97;i++)for(x=2-i/24,j=0;j<97;j++)x*x*(y=2-j/24)**3-(x*x+y*y-1)**3>0&&c.getContext`2d`.fillRect(i,j,1,1)

স্নিপেট প্রসারিত করুন

— নিল
সূত্র

তার y**3বদলে কেমন হয় y*y*y?

— স্বরোগ

1

@ এসভরোগ এভাবে আমার নোটটি "ES7 এ কিছুটা খাটো হবে" ...

— নীল

ভাল, এটি ক্রোমিয়াম 55 এ কাজ করে, তবে কেন একটি এস 7 সংস্করণ যুক্ত করবেন না?

— স্বরোগ

1

@ এসভারোগের কারণ আমার কাছে ক্রোমিয়াম 55 হ্যান্ডি নেই ...

— নিল

1

@ThisSuitIsBlackNot আমি চেষ্টা করার পরে এটি অঘোষিত ভেরিয়েবল সম্পর্কে অভিযোগ করেছিল।

— নিল

4

বিবিসি বেসিক, 80

আগামীকাল গল্ফিং শেষ করবে।

Http://www.bbcbasic.co.uk/bbcwin/bbcwin.html এ দোভাষী ডাউনলোড করুন

ORIGIN99,99F.u=-56TO56x=u/50b=x^2^.33/2r=(b^2-x^2+1)^.5*50L.u,b*50-r,u,r+b*50N.

প্রথম সমীকরণটি ব্যবহার করে একটি পূর্ণ হৃদয় আঁকুন, যা আমরা পুনরায় সাজাই এবং এর কিউব রুটটি গ্রহণ করি (একটি বাস্তব সংখ্যার 3 টি কিউব মূল রয়েছে, একটি বাস্তব এবং 2 জটিল তবে আমরা কেবল এখানে আসল মূলের প্রতি আগ্রহী) একটি চতুর্ভুজ পেতে y

x^2+y^2-1=(x^0.66)y

y^2-(x^0.66)y+x^2-1=0

ধরণের অভিব্যক্তির জন্য স্ট্যান্ডার্ড চতুষ্কোণ সূত্রটি ব্যবহার করে ay^2+by+c=0, এবং aআমরা যে = 1 পেয়েছি তার সুবিধা গ্রহণ করছি

y = -b/2 +/- sqrt((b/2)^2-c)

y = -b/2 +/- sqrt((b/2)^2-x^2+1)

যেখানে -b/2 = (x^0.66)/2( bপ্রোগ্রামে উপস্থাপিত ।)

একটি শক্ত আকৃতি তৈরির xজন্য yআমরা প্রতিটি জোড় বৈধ মানগুলির মধ্যে একটি উল্লম্ব রেখা আঁকতে, কেবল বাম থেকে ডানে মানগুলির মাধ্যমে স্ক্যান করি ।

ORIGIN99,99F.u=-56TO56x=u/50b=x^2^.33/2r=(b^2-x^2+1)^.5*50L.u,b*50-r,u,r+b*50N.

ungolfed

ORIGIN99,99
FORu=-56TO56
  x=u/50
  b=x^2^.33/2
  r=(b^2-x^2+1)^.5*50
  LINEu,b*50+r,u,b*50-r
NEXT

— স্তর নদী সেন্ট
সূত্র

4

রুবি, 80 বাইট

রুবিকে কিছু ভালবাসা দেখান।

-2.step(2,0.2){|y|-2.step(2,0.1){|x|$><<'. O'[(y*y-1+x*=x)**3+x*y**3<=>0]};puts}

আউটপুট:

         OOOOO     OOOOO             
      .OOOOOOOOO.OOOOOOOOO.          
     OOOOOOOOOOOOOOOOOOOOOOO         
     OOOOOOOOOOOOOOOOOOOOOOO         
     OOOOOOOOOOOOOOOOOOOOOOO         
      OOOOOOOOOOOOOOOOOOOOO          
      .OOOOOOOOOOOOOOOOOOO.          
        OOOOOOOOOOOOOOOOO            
         OOOOOOOOOOOOOOO             
           OOOOOOOOOOO               
              OOOOO                  
                .

উপরে এবং নীচে কিছু খালি লাইন রয়েছে

— গিগাবাইট
সূত্র

2

প্রসেসিং.জেএস: 123 119 বাইট

ungolfed:

t = 0; 

void setup() {
    size(99, 300); 
} 

void draw() {
    point(59+99*sin(t)*cos(t)*log(t),350-400*sqrt(cos(t))*pow(t,0.3));
    t+=0.01;
}

golfed:

t=0;void setup(){size(99,300);}void draw(){point(59+99*sin(t)*cos(t)*log(t),350-400*sqrt(cos(t))*pow(t,0.3));t+=0.01;}

এটি দুটি প্রচ্ছদ হিসাবে টি-তে সংরক্ষণ করার জন্য ছবিতে দেখানো হয়েছে -1 থেকে 1-এর পরিবর্তে 0 থেকে অনন্তের দিকে # 2 প্লট করার কারণে এটি একটি বেশ ছলাকার। 100 টিরও বেশি পয়েন্ট রয়েছে বলে এটি প্রযুক্তিগতভাবে সঠিক।

130 বাইট "সংশোধনকারী" এক

t=-1;void setup(){size(99,300);}void draw(){point(59+99*sin(t)*cos(t)*log(abs(t)),350-400*sqrt(cos(t))*pow(abs(t),0.3));t+=0.01;}

অনলাইনে চেষ্টা করুন

দ্রষ্টব্য: সম্ভবত ডিফল্ট 100x100 ক্যানভাসে 100 পয়েন্ট পাওয়ার এবং সেটআপটি শেভ করার একটি উপায় সম্ভবত রয়েছে।

— satibel
সূত্র

প্রসেসিংয়ের স্থানীয় সংস্করণে আপনার স্নিপেটগুলির কোনও কিছুই আমার জন্য কিছুই করেনি (দ্বিতীয়টি যা কেবলমাত্র 1 পয়েন্ট আঁকেন ব্যতীত)

— ক্রিটিকি লিথোস

আপনি স্কেচপ্যাড চেষ্টা করেছেন? ("এটি অনলাইনে চেষ্টা করুন") আপনার "রেন্ডার স্কেচ" ক্লিক করতে হবে

— স্যাটেল

তবে আমি মনে করি এর পরিবর্তে "প্রসেসিং.জেএস" বলা হবে। স্নিপেটটি আমার পক্ষে কাজ করার জন্য আপনাকে তার floatপরিবর্তে ব্যবহার করতে হবেint

— ক্রিটিক্সী লিথোস

ওফস, জাজগুলি ভুলে গিয়েছিলাম এবং ধন্যবাদ যে আমি অকেজো ইনট সরিয়ে 4 বাইট সংরক্ষণ করেছি।

— স্যাটিবেল

2

টিআই -৪৪ বেসিক, 40 38 বাইট

@ 12Me21 এর উত্তর এবং ফলাফলের মতো, তবে পরিবর্তে টিআই -83 / 84 সিরিজের জন্য।

While 1:2rand-1→A:2rand-1:If (A²+Ans²-1)³>A²Ans³:Pt-On(A,Ans:End

— Timtech
সূত্র

উত্তর এখানে ব্যবহার করা কি আসলেই ছোট? আমি ভেবেছিলাম আনস 2 বাইট ছিল।

— 12

@ 12Me21 না, এটি একই আকার এবং দ্রুতও। (কমপক্ষে টিআই -৩ / / ৮৮ এর জন্য, আমি টিআই -80 সম্পর্কে জানি না)।

— টিমটেক

1

বিবিসি বেসিক (বিবিসি মাইক্রো) (126 বাইট)

এটি লেভেল রিভার স্ট্রিটের উত্তরের একটি ভিন্নতা , তবে বিবিসি বেসিকের মূল বিবিসি মাইক্রোর পুনরাবৃত্তির জন্য।

আপনি https://bbc.godbolt.org/ (একটি জাভাস্ক্রিপ্ট চালিত বিবিসি মাইক্রো এমুলেটর) তে জেএসবিবের নতুন পেস্ট কার্যকারিতাটিতে নিম্নলিখিতগুলির কোনওটি অনুলিপি করে আটকান করতে পারেন , এটি একবার পেস্ট হয়ে গেলে, নতুন দেখানোর জন্য 'স্ক্রিনের ভিতরে' এন্টার টিপুন প্রম্পট করুন, তারপরে রুন টাইপ করুন, তারপরে যে কোনও সংস্করণ চালাতে এন্টার টিপুন।

golfed। (126 বাইট)

1MO.1:V.29,64;64;:MOVE-57,20:GC.0,1:F.U=-56TO56:X=U/50:IFX<>0TH.B=X^2^.33/2
2R=(B^2-X^2+1)^.5*50:DRAWU,B*50+R:DRAW U,B*50-R:N.

ungolfed। (176 বাইট)

1 MODE 1
2 VDU 29,64;64;
3 MOVE -57,20
4 GCOL 0,1
5 FOR U = -56 TO 56
6 X = U/50
7 IF X <> 0 THEN B = X^2^.33/2
8 R = (B^2-X^2+1)^.5*50
9 DRAW U,B*50+R
10 DRAW U,B*50-R
11 NEXT

লুপের মাধ্যমে X 0 অর্ধেক পথ হয়ে গেলে "লগ রেঞ্জ" ত্রুটি রোধ করতে লাইন 7 এর এক্স এর জন্য একটি চেক প্রয়োজন। এটি ব্যতীত, এটি প্রায় একই রকম। একটি আসল মেশিনে আঁকতে এটি অনেক ধীর গতির, যা জেএসবিব বেশ ভালভাবে অনুকরণ করে।

— sassquad
সূত্র

একটি হৃদয় গ্রাফ আঁকুন / প্লট করুন

টিআই -80 বেসিক, 45 43 41 39 বাইট

পার্ল, 86 বাইট

গাণিতিক ওল্ফ্রামআল্ফা, 17 15 13 11 বাইট

গণিত, 52 বাইট

ক্যাসিও fx-7700GH, 21 বাইট

ম্যাটল্যাব / অক্টোবায়, 31 বাইট

স্মাইলব্যাসিক, 85 81 বাইট

দেশমস , 20 16 15 বাইট

এমএটিএল, 36 বাইট

পাইথন, 119 116 বাইট

সেজম্যাথ, 66 বাইট

সি, 137 133 বাইট

জেলি , 31 বাইট

কিভাবে?

জাভাস্ক্রিপ্ট (ES6), 151 147 বাইট

বিবিসি বেসিক, 80

রুবি, 80 বাইট

আউটপুট:

প্রসেসিং.জেএস: 123 119 বাইট

টিআই -৪৪ বেসিক, 40 38 বাইট

বিবিসি বেসিক (বিবিসি মাইক্রো) (126 বাইট)