2005/C1/山口/課題1

2005/C1/山口

書道ロボット†

sub go_straight()
{
OnFwd(OUT_B);
OnRev(OUT_A);
OnRev(OUT_C);
Wait(27);
OnRev(OUT_A);
OnFwd(OUT_C);
Wait(67);
OnRev(OUT_C+OUT_A);
Wait(15);
Off(OUT_A+OUT_C);
}
sub turn_right()
{ OnFwd(OUT_A+OUT_C);
Wait(25);
OnFwd(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(64);
Off(OUT_A+OUT_C);
}

sub turn_left()
{
OnFwd(OUT_A);OnRev(OUT_C);
Wait(98);
OnFwd(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(65);
OnRev(OUT_A+OUT_C);OnFwd(OUT_B);
Wait(37);
}
task main()
{
OnRev(OUT_B);
Wait(50);
OnFwd(OUT_A+OUT_C);OnRev(OUT_B);
Wait(70);

go_straight();

turn_right();

OnFwd(OUT_B);
Wait(30);
OnFwd(OUT_C);OnRev(OUT_A);
Wait(80);

turn_left();
OnRev(OUT_C);
OnFwd(OUT_A);
Wait(68);
OnRev(OUT_B);

Wait(50);

OnFwd(OUT_A+OUT_C);OnRev(OUT_B);
Wait(20);
OnRev(OUT_A);
OnFwd(OUT_C+OUT_B);
Wait(98);
OnRev(OUT_A+OUT_C);
Wait(27);
OnRev(OUT_B);
Wait(50);
OnFwd(OUT_A+OUT_C);Rev(OUT_B);
Wait(65);

Off(OUT_A+OUT_C+OUT_B);
}

書道ロボット†

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件