minhhieuh2003

105 Reputation

3 Badges

5 years, 86 days

MaplePrimes Activity


These are replies submitted by minhhieuh2003

@Kitonum I use maple 2017 but result return 2 roots 1 and 8.95..

 

@acer Thank you very much.

@acer Thank you very much. Have a good time!

@acer Thank you very much

@tomleslie Thank you very much

@acer 

I run code dsds1d_s(3);printdata(3,widthmode=percentage, width=100)  create a table (1)

and dsds1d_s(5);printdata(5,widthmode=percentage, width=100)  create a table (2)

I want to combine table (1) and table (2) into a table

What should I do? 

please help me


 

restart;

multiple := module() option package;
  export dsds1d_s,printdata;
  local TSprintf;

  TSprintf := proc()
    uses Typesetting;
      mrow(seq(`if`(e::string, mn(e), Typeset(EV(e))), e = [args]));
    #sprintf("%a",[args]);
  end proc:

  dsds1d_s := proc( rtc,
                    {width::positive:=500},
                    {widthmode::identical(pixels,percentage):=':-pixels'} )
    global R;
    local r, topic, tudo, num, dsd, dsss1, dsss2, dsss3, xml;
    uses Typesetting, DocumentTools, DocumentTools:-Layout;
    tudo := [1, -233243, sqrt(23+x), ('int')(2*x^2+35*x+4, x)];
    num := rand(1 .. nops(tudo())); dsd := tudo[num()];
    dsss1 := tudo[num()]; dsss2 := tudo[num()]; dsss3 := tudo[num()];
    for r to rtc do
      topic[r] := TSprintf(ex, " ", r, ". SomeLongSentence ", r);
      R[r] := Row(Cell(Textfield(Equation(topic[r]),
                                 ':-alignment'=':-left'),
                       ':-columnspan'=4)),
              Row(Cell(Textfield(Equation(mrow(mtext("A","mathcolor"="#ff0000"),
                                               mtext(". "),TSprintf(dsd))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("B"), mtext(". "), TSprintf(dsss1))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("C"), mtext(". "), TSprintf(dsss2))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("D"), mtext(". "), TSprintf(dsss3))),
                                 ':-alignment'=':-left'))
                  );
    end do;return NULL;
  end proc:
printdata:=proc(rtc,
                    {width::positive:=500},
                    {widthmode::identical(pixels,percentage):=':-pixels'}) local xml;global R;
uses Typesetting, DocumentTools, DocumentTools:-Layout;
xml := Worksheet(Table(':-exterior'=':-none', ':-interior'=':-none',
                           ':-hiddenborderdisplay'=':-never', ':-alignment'=':-center',
                           ':-width'=width, ':-widthmode'=widthmode,
                           Column()$4,
                           seq(op([R[r]]),
                               r=1..rtc)
                          ));
    InsertContent(xml);
    return NULL;
end proc:
end module:

 

with(multiple):

dsds1d_s(3);

printdata(3,widthmode=percentage, width=100)

dsds1d_s(5); 1; printdata(5, widthmode = percentage, width = 100)

"I want to combine dsds1d_s(3);printdata(3,widthmode=percentage, width=100)   and dsds1d_s(5);printdata(5,widthmode=percentage, width=100) into a table, what should i do"?""

please*help*factorial(me)

``

``


 

Download goi_maple_new.mw

@acer

I cann't increase width with mtr(mtd(topic[rtc], ':-columnspan' = 50,':-columnweight' = 50), ':-columnalign' = ':-left')

Can you help me?

@acer 

Thank you very much. Good luck to you.

I try to code procedure but it doesn't.

Please help me into image below?

Please thank you very much.

Help goi_maple.mw 

@acer Can I ask you something?

T:-mtext(dsd)-----> string

if dsd is sqrt(2) --->"2^(1/2)" : unlike.

@acer 

thank you very much very much.

@Carl Love

So what to do?

I can use plots:-textplot but export *.rft very bad

Please help me.

@Carl Love 

column A: left

column B: left

column C: left

column D: left

Row 1, Row 2, Row 3, ... Row n is straight

Ex:

Download Goi_mapleprime.mw

 

Good luck to you.

@acer 

Good luck to you

@Christian Wolinski 

1 2 3 4 Page 2 of 4