آموزش نرم افزار میپل از مقدماتی تا پیشرفته - برنامه نویسی به زبان میپل

Printable View

نمايش 40 تاپيکها در يک صفحه

11-07-2012, 18:39
mofidy1

آموزش برنامه نویسی به زبان میپل!! - جلسه ی هشتم

رشته یا string (بخش پنجم)

انتقال 3 علامت آخر به اول رشته:

کد:

with(StringTools): Rotate( "12345678", 3 );

جواب:

کد:

"67812345"

تمامی جایگشت های دوری عبارت 123:

کد:

with(StringTools): [seq]( Rotate( "123", i ), i = 1..3 );

جواب:

کد:

["312", "231", "123"]

اتصال چند رشته به یکدیگر همراه با علامت - بین آنها:

کد:

with(StringTools): Join( [ "ab", "bc", "cde" ], "-" );

جواب:

کد:

"ab-bc-cde"

اتصال چند رشته به یکدیگر:

کد:

with(StringTools): Join( [ "ab", "bc", "cde" ], "" );

جواب:

کد:

"abbccde"

اتصال کاراکترها به یکدیگر با دستور دیگر:

کد:

i:=5: i || 7; p || "in"; a || (2*i); a || i || b;

جواب:

کد:

i7 pin a10 a5b

مثال دیگر:

کد:

x || (a, b, 4, 67); x || (1..2) || (1..3);

جواب:

کد:

xa, xb, x4, x67 x11, x12, x13, x21, x22, x23

تکه تکه کردن یک رشته به وسیله ی حذف علامت 6:

کد:

with(StringTools): Split( "55658261m", "6" );

جواب:

کد:

["55", "582", "1m"]

موفق باشید.
21 تیر 1391

ویرایش دوم: 2 مرداد 1391
14-07-2012, 21:04
mofidy1

آموزش برنامه نویسی به زبان میپل!! - جلسه ی نهم

رشته یا string ( بخش ششم)

تکه تکه کردن رشته به رشته هایی به طول 3:

کد:

with(StringTools): LengthSplit("abcdefgh",3);

جواب:

کد:

"abc", "def", "gh"

تبدیل ده رقم اعشاری عدد پی به یک رشته و تقسیم کردن این رشته به رشته هایی به طول 5 و نامگذاری تمام نتایج با نام l:

کد:

with(StringTools): l:=LengthSplit(convert(evalf(Pi,10),string), 5 );

جواب:

کد:

l := "3.141", "59265", "4"

فراخوانی اولین قسمت از قسمت های l (در دستور بالا، l معرفی شد):

کد:

l[1];

جواب:

کد:

"3.141"

وارونه کردن یک رشته:

کد:

with(StringTools): Reverse("123cat");

جواب:

کد:

"tac321"

مرتب کردن رشته ی abc4 با ترتیب دومین، چهارمین، سومین و اولین کاراکتر:

کد:

with(StringTools): Permute( "abc4",[2,4,3,1]);

جواب:

کد:

"b4ca"

تعویض علامت دوم و پنجم:

کد:

with(StringTools): Exchange( "abcdef", 2, 5 );

جواب:

کد:

"aecdbf"

تکرار رشته به تعداد 5 بار:

کد:

with(StringTools): Repeat( "abc", 5 );

جواب:

کد:

"abcabcabcabcabc"

موفق باشید.
24 تیر 1391
15-07-2012, 17:04
mofidy1

آموزش برنامه نویسی به زبان میپل!! - جلسه ی دهم

رشته یا string ( بخش هفتم)

تمام رشته های 3 حرفی که از رشته ی 1ba4 ساخته می شوند:

کد:

with(StringTools): Generate( 3,"1ba4" )

جواب:

کد:

["111", "114", "11a", "11b", "141", "144", "14a", "14b", "1a1", "1a4", "1aa", "1ab", "1b1", "1b4", "1ba", "1bb", "411", "414", "41a", "41b", "441", "444", "44a", "44b", "4a1", "4a4", "4aa", "4ab", "4b1", "4b4", "4ba", "4bb", "a11", "a14", "a1a", "a1b", "a41", "a44", "a4a", "a4b", "aa1", "aa4", "aaa", "aab", "ab1", "ab4", "aba", "abb", "b11", "b14", "b1a", "b1b", "b41", "b44", "b4a", "b4b", "ba1", "ba4", "baa", "bab", "bb1", "bb4", "bba", "bbb"]

تمام اعداد حداکثر 3 رقمی که از ارقام عدد 1023 ساخته می شوند:

کد:

with(StringTools): Generate( 3,"1023" ): map(parse,%);

جواب:

کد:

[0, 1, 2, 3, 10, 11, 12, 13, 20, 21, 22, 23, 30, 31, 32, 33, 100, 101, 102, 103, 110, 111, 112, 113, 120, 121, 122, 123, 130, 131, 132, 133, 200, 201, 202, 203, 210, 211, 212, 213, 220, 221, 222, 223, 230, 231, 232, 233, 300, 301, 302, 303, 310, 311, 312, 313, 320, 321, 322, 323, 330, 331, 332, 333]

در عبارت ab123123d به جای اولین 123، عبارت UV را قرار بده:

کد:

with(StringTools): Substitute( "ab123123d", "123", "UV" );

جواب:

کد:

"abUV123d"

در عبارت ab123123d به جای همه ی 123 ها، عبارت UV را قرار بده:

کد:

with(StringTools): SubstituteAll( "ab123123d", "123", "UV");

جواب:

کد:

"abUVUVd"

چاپ تاریخ میلادی امروز، همراه با ساعت:

کد:

with(StringTools): FormatTime( "%c" );

جواب:

کد:

"Sun Jul 15 18:02:25 2012"

اطلاعات کامل تری از تقویم امروز و ساعت کنونی:

کد:

with(StringTools): ParseTime( "%c", % );

جواب:

کد:

Record(calendar = "Gregorian",second = 25,minute = 2,hour = 18,monthDay = 15,month = 7,year = 2012,weekDay = 1,weekDayName = "Sunday",yearDay = 197,`dst?` = false)

موفق باشید.
25 تیر 1391
17-07-2012, 14:18
mofidy1

آموزش برنامه نویسی به زبان میپل!! - جلسه ی یازدهم

عملوند op ( بخش اول)

یکی از قوی ترین دستورات میپل برای «درآوردن دل و قلوه» و مطلع شدن از جزئیات عبارات، عملوند (operand) ی است به نام op:

معرفی چند جمله ای سه متغیره ی p به میپل:

کد:

p:=x^2-3*x+2*y-x*y*z;

جواب:

کد:

p := x^2-3x+2y-xyz

جدا کردن تمام جملات p:

کد:

op(p)

جواب:

کد:

x^2, -3x, 2y, -xyz

دومین جمله ی p و جمله ی آخر p:

کد:

op(2,p);op(-1,p);

جواب:

کد:

-3x -xyz

عملی که جملات p را به یکدیگر اتصال می دهد:

کد:

op(0,p);

جواب:

کد:

+

همه ی جملات ( همان آجرهای ساختمانی!!) عبارت xyz:

کد:

op(x*y*z);

جواب:

کد:

x, y, z

جمله ی اول عبارت xyz:

کد:

op(1,x*y*z);

جواب:

کد:

x

عملی که جملات xyz را به یکدیگر اتصال می دهد:

کد:

op(0,x*y*z);

جواب:

کد:

*

همه ی جملات عبارت x^2

کد:

op(x^2);

جواب:

کد:

x, 2

جمله ی اول عبارت x^2 و جمله ی دوم x^2:

کد:

op(1,x^2);op(2,x^2);

جواب:

کد:

x 2

عملی که جملات x^2 را به یکدیگر اتصال می دهد:

کد:

op(0,x^2);

جواب:

کد:

^

همه ی جملات عبارت «1بر y» یا « یک y ام»:

کد:

op(1/y);

جواب:

کد:

y, -1

عملی که جملات « یک y ام» را به یکدیگر اتصال می دهد:

کد:

op(0,1/y);

جواب:

کد:

^

همه ی جملات عبارت x/y

کد:

op(x/y);

جواب:

کد:

x, 1/y

عملی که جملات x/y را به یکدیگر اتصال می دهد:

کد:

op(0,x/y);

جواب:

کد:

*

موفق باشید.

27 تیر 1391
18-07-2012, 20:53
mofidy1

آموزش برنامه نویسی به زبان میپل!! - جلسه ی دوازدهم

عملوند op ( بخش دوم)

جدا کردن جملات اول تا چهارم چند جمله ای x^3-5xy-z^3+4+rt:

کد:

op(1..4,x^3-5*x*y-z^3+4+r*t);

جواب:

کد:

x^3, -5*x*y, -z^3, 4

حذف پرانتزهای عبارت (r):

کد:

op((r));

جواب:

کد:

r

دومین عنصر عبارت (rx)

کد:

op(2,(r*x));

جواب:

کد:

x

حذف آکلادها از دو طرف مجموعه ی r و t و s:

کد:

op({r,t,s});

جواب:

کد:

r, s, t

دومین عنصر مجموعه ی r و t و s:

کد:

op(2,{r,t,s});

جواب:

کد:

s

اضافه کردن 1- به مجموعه ی 1و 2 و 3 و ایجاد مجموعه ی جدید:

کد:

{op({1,2,3}),-1};

جواب:

کد:

{-1, 1, 2, 3}

معرفی چند جمله ای poly:

کد:

poly:=x^2*d*f^2+3*x*y^2-5*x;

جواب:

کد:

poly := x^2df^2+3xy^2-5x

سومین عنصر از دومین جمله ی poly

کد:

op(3, op(2, poly));

جواب:

کد:

y^2

دومین عضو از سومین عنصر از اولین جمله ی poly:

کد:

op(2,op(3, op(1, poly)));

جواب:

کد:

2

معرفی دنباله (لیست) a:

کد:

a:=[1,2,3,4,5];

جواب:

کد:

a := [1, 2, 3, 4, 5]

حذف کروشه ها:

کد:

op(a);

جواب:

کد:

1, 2, 3, 4, 5

دومین عنصر a و عنصر ماقبل آخر a:

کد:

op(2,a);op(-2,a);

جواب:

کد:

2 4

سومین عنصر a:

کد:

op(a)[3];

جواب:

کد:

3

اضافه کردن 5- به لیست a و ایجاد لیست جدید:

کد:

[op(a),-5];

جواب:

کد:

[1, 2, 3, 4, 5, -5]

معرفی دنباله (لیست) b:

کد:

b:=[d,2,v,6];

جواب:

کد:

b := [d, 2, v, 6]

اتصال دو لیست a و b و ایجاد لیست جدیدی به نام L:

کد:

L:=[op(a),op(b)];

جواب:

کد:

L := [1, 2, 3, 4, 5, d, 2, v, 6]

چاپ عنصر چهارم تا عنصر ماقبل آخر L:

کد:

op(4..-2,L);

جواب:

کد:

4, 5, d, 2, v

در L به جای عنصر هفتم عبارت list را قرار بده:

کد:

subsop(7=list,L);

جواب:

کد:

[1, 2, 3, 4, 5, d, list, v, 6]

در L به جای عنصر هفتم عبارت 1-، به جای عنصر هشتم عبارت f و به جای عنصر اول، لیست a را قرار بده:

کد:

subsop(7=-1,8=f,1=a,L);

جواب:

کد:

[[1, 2, 3, 4, 5], 2, 3, 4, 5, d, -1, f, 6]

موفق باشید.

28 تیر 1391
18-07-2012, 23:16
MasterGeek

ممنون دوست عزیز یه توضیحی هم راجع به اصول سینتکس میپل میدی؟ اینجوری یه مجموعه از دستورات هست که یا باید با تجربه به دست بیاد یا اینکه به Help مراجعه بشه (من از حالت دوم استفاده میکنم)‌ ولی اگه یه آموزش هم بدین که مثلا چرا در درس رشته‌ها (قسمت پنجم)‌ دستور seq توی پرانتز اومد؟
این تیپ چیزا هم جالب هست ولی اگه فلسفه‌ی پشت یک چنین سینتکس رو بدونیم هم بهتر میپل رو میفهمیم هم بهتر میتونیم در اجرای دستورات و نوشتن برنامه‌ها ابتکار به خرج بدیم.

with(StringTools):[seq]( Rotate( "123", i ), i = 1..3 );
19-07-2012, 18:58
mofidy1

نقل قول:

نوشته شده توسط MasterGeek [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون دوست عزیز یه توضیحی هم راجع به اصول سینتکس میپل میدی؟ اینجوری یه مجموعه از دستورات هست که یا باید با تجربه به دست بیاد یا اینکه به Help مراجعه بشه (من از حالت دوم استفاده میکنم)‌ ولی اگه یه آموزش هم بدین که مثلا چرا در درس رشته‌ها (قسمت پنجم)‌ دستور seq توی پرانتز اومد؟
این تیپ چیزا هم جالب هست ولی اگه فلسفه‌ی پشت یک چنین سینتکس رو بدونیم هم بهتر میپل رو میفهمیم هم بهتر میتونیم در اجرای دستورات و نوشتن برنامه‌ها ابتکار به خرج بدیم.

with(StringTools):[seq]( Rotate( "123", i ), i = 1..3 );

با سلام

حرف شما کاملاً درست است، منتهی به یک نکته ی خیلی مهم توجه بفرمایید و آن هم مخاطب شناسی است. این حقیر سالهاست که در تدریس میپل به این نکته رسیده ام که وارد کردن سریع مخاطب به اصول سینتکس در بسیاری از اوقات نتیجه عکس دارد. به طور مثال برای مخاطبی که از مراحل مقدماتی میپل گذشته، می خواهد در این زبان برنامه نویسی کند، وارد کردن او در جزئیاتی مثل همین موردی که فرمودید «چرا دستور seq توی پرانتز اومد؟» زود است. او باید از دستوراتی که آموزش می بیند، تقلید و کم کم با وارد کردن سلیقه ی خود به یک خودکفایی نسبی برسد. البته قبول دارم که این تقلید کردن ها نباید طولانی باشد. قبول بفرمایید که در ابتدای آموزش برنامه نویسی، نمی توان از «فلسفه‌ی پشت سینتکس ها» صحبت کرد مگر به صورت گذرا. راستش را بخواهید یکی از نقاط ضعف معلمی!! همین توجه افراطی به مخاطب است. هدف بنده هم سوق دادن دانشجو یا حتی دانش آموز به سمت ابتکار است. این حقیر در چند جلسه ی بعد، انشاءالله پس از این که مقدمات لازم برای برنامه نویسی به زبان میپل فراهم شد، به طور رسمی وارد برنامه نویسی مقدماتی و پیشرفته خواهم شد و مطمئناً در آن جا به تدریج درباره اصول سینتکس ها هم بحث خواهیم کرد.
از تذکر شما هم بسیار ممنونم و امیدوارم که حقیر را در ادامه ی کار یاری فرمایید.

موفق باشید.
29 تیر 1391
20-07-2012, 10:48
mofidy1

2 پيوست (پيوستها)

آموزش برنامه نویسی به زبان میپل!! - جلسه ی سیزدهم

عملوند op ( بخش سوم)

معرفی لیست l:

کد:

l:=[1,1,2,3,4,5];

جواب:

کد:

l := [1, 1, 2, 3, 4, 5]

تعداد عناصر l:

کد:

nops(l);

جواب:

کد:

6

تعداد جملات a+b+x^2

کد:

nops(a+b+x^2);

جواب:

کد:

3

تعداد عناصر x^2 و تعداد عناصر x/y :

کد:

nops(x^2);nops(x/y);

جواب:

کد:

2 2

بسط عبارت x+y)^4)

کد:

expand( (x+y)^4 );

جواب:

کد:

x^4+4x^3y+6x^2y^2+4xy^3+y^4

تعداد جملات عبارت قبل:

کد:

nops(%);

جواب:

کد:

5

تعداد همه ی رشته هایی به طول 10 که با استفاده از کاراکترهای رشته ی abc ساخته می شوند:

کد:

nops( Generate( 10, "abc" ) );

جواب:

کد:

59049

برنامه ی 1: محاسبه ی بزرگترین عدد اول شمارنده ی عدد 49000:

کد:

ifactor( 49000 ); op( nops(%), % ); op( 1, % ); op( 1, % );

جواب:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

توضیح برنامه ی 1:

خط 1: عدد 49000 را تجزیه کن.
خط 2: آخرین بخش عبارت قبل را جدا کن.
خظ 3: اولین بخش عبارت قبل را جدا کن.
خط 4: اولین بخش عبارت قبل را جدا کن.

برنامه ی 2: محاسبه ی کوچکترین عدد اول شمارنده ی عدد 49000:

کد:

ifactor( 49000 ); op( 1, % ); op( 1, % ); op( 1, % );

جواب:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

توضیح برنامه ی 2:

خط 1: عدد 49000 را تجزیه کن.
خط 2: اولین بخش عبارت قبل را جدا کن.
خظ 3: اولین بخش عبارت قبل را جدا کن.
خط 4: اولین بخش عبارت قبل را جدا کن.

موفق باشید.

30 تیر 1391
21-07-2012, 19:44
mofidy1

3 پيوست (پيوستها)

آموزش برنامه نویسی به زبان میپل!! - جلسه ی چهاردهم

دنباله ها

دنباله ی اعداد صحیح متوالی 2- تا 3:

کد:

$-2..3;

جواب:

کد:

-2, -1, 0, 1, 2, 3

اندیس گذاری متوالی:

کد:

s[i]$i=-2..3;

جواب:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تکرار x سه بار:

کد:

x$3;

جواب:

کد:

x, x, x

ابتدا تعریف تابع f و سپس ایجاد دنباله ای از توان های x که توان ها مقادیر f روی 1 تا 4 است:

کد:

f:=x->x^2+x+1; x^f(i)$i=1..4;

جواب:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

رسم تصویری زیبا با استفاده از دنباله ها:

کد:

with(plots): polarplot( {c*cos(6*t) $ c = 1..12}, t = 0..2*Pi, scaling = constrained);

جواب:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
توضیح:

در دستور بالا، توابع (c*cos(6*t در مختصات قطبی با مقیاس مقید رسم شده اند که c عدد صحیحی است که از 1 تا 12 تغییر می کند، و پارامتر t از 0 تا 2pi (در واقع 12 تصویر با رنگ های مختلف در یک دستگاه)

موفق باشید.

31 تیر 1391 - اول ماه مبارک رمضان 1433
27-07-2012, 22:54
mofidy1

آموزش برنامه نویسی به زبان میپل!! - جلسه ی پانزدهم

تصمیم گیری با if و elif
در بسیاری از برنامه ها، مجبور به تصمیم گیری هستیم که فلان دستور اجرا بشود یا نه؛ به عبارت دقیق تر!! اگر فلان اتفاق افتاد یا فلان عبارت منطقاً درست بود، چه دستوری اجرا شود. به مثال های ساده ی زیر توجه کنید:

برنامه ی 3:

اگر 2 کمتر یا مساوی 3 بود، آنگاه عبارت "*" چاپ شود. (دقت کنید که آخر برنامه با fi یا end if تمام می شود. این نکته، ساده اما بسیار مهم است.)

کد:

if 2<=3 then print("*"); fi;

جواب:

کد:

"*"

برنامه ی 4:

اگر 2 بزرگتر از 3 بود، آنگاه عبارت "*" چاپ شود.

کد:

if 2>3 then print("*");end if;

جوابی دریافت نخواهید کرد (چرا؟)

برنامه ی 5:

متغیر a را 2 و متغیر b را 3 تعریف کن. اگر a مثبت و حاصل ضرب ab از 4 کوچکتر بود، a و در غیر این صورت (else) متغیر b را تحویل بده. (در غیر این صورت، یعنی اگر a مثبت نبود یا حاصل ضرب ab از 4 کوچکتر نبود).

کد:

a:=2: b:=3: if a>0 and a*b<4 then a else b; fi;

جواب:

کد:

3

توضیح دهید که چرا برنامه ی 5، عدد 3 را به عنوان جواب، به ما تحویل داد.

برنامه ی 6:

متغیر a را 2 و متغیر b را 3 تعریف کن. اگر a بزرگ تر از 5 یا حاصل ضرب ab از 7 کوچک تر بود، a و در غیر این صورت (else) متغیر b را تحویل بده. (در غیر این صورت، یعنی اگر a بزرگ تر از 5 نبود و حاصل ضرب ab از 7 کوچکتر نبود).

کد:

a:=2: b:=3: if a>5 or a*b<7 then a else b fi;

جواب:

کد:

2

توضیح دهید که چرا برنامه ی 6، عدد 2 را به عنوان جواب، به ما تحویل داد.

برنامه ی 7:

متغیر a را (sin(1.8 و متغیر b را (ln(1.8 تعریف کن. اگر a بزرگ تر از b بود، عبارت "a is larger" و در غیر این صورت، عبارت "a is not larger" را چاپ کن.

کد:

a := sin(1.8): b := ln(1.8): if a > b then print( "a is larger" ); else print( "a is not larger" ); end if;

جواب:

کد:

"a is larger"

برنامه ی 8:

به کار بردن if در یک تابع:
تعریف تابعی با نام f و متغیر صحیح n: اگر باقیمانده ی تقسیم عدد صحیح n بر 2 صفر بود (n زوج بود)، آنگاه عبارت even را چاپ کن و در غیر این صورت چاپ کن: odd.

کد:

f:=n->if irem(n,2)=0 then print(even) else print(odd) fi:

دستور زیر را تایپ کنید و Enter را بزنید:

کد:

f(2);

جواب:

کد:

even

دستور زیر را تایپ کنید و Enter را بزنید:

کد:

f(9);

جواب:

کد:

odd

موفق باشید.

7 مرداد 1391
ویرابش دوم: 12 مرداد 1391

نمايش 40 تاپيکها در يک صفحه