Multiplication between two numbers in the same base within decimal, with no digit limit - China DOS Union Forum

One of the results produced in the process of writing other batch files. The draft paper is in bathome's chatter section and in cn-dos's blog

Function: multiply two numbers with no digit limit

Input format like 10 20

You can choose a base within 10 for multiplication, such as 100 11 2 , where 2 means binary


@echo off &setlocal enabledelayedexpansion
title code by 523066680
set /p inp="input two numbers : "
call :naxnb %inp%
pause>nul
exit
:naxnb
set numa=%1
set numb=%2
if "%3"=="" (set /a delna=10,delnb=9) else (set /a delna=%3,delnb=%3-1)
set /a la=0,lpr=-1
:la
set /a la+=1,lb=0,lpr+=1,lp=lpr
  :lb
  set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1
  :::::::::::::::::::::::::
  set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1!
     :cuplp
     set /a cup%tlpb%+=cup%tlpa%/delna,cup%tlpa%=cup%tlpa%%%delna
     if !cup%tlpb%! gtr %delnb% (
        set /a tlpa+=1,tlpb=tlpa+1
        goto :cuplp
     ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)
  ::::::::::::::::::::::::::
  if not "!numb:~%lb%!"=="" (goto :lb)
if not "!numa:~%la%!"=="" (goto :la)
for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul

[ Last edited by 523066680 on 2009-5-1 at 23:09 ]

Hurry up and split the module out and add it to the function library...

Originally posted by BC at 2009-2-21 18:58:
Hurry up and split the module out and add it to the function library...

It doesn't support floating-point operations or positive/negative number operations, and you can't define the number of decimal places to keep, so it's not mature enough to make into a function yet...
How about this?
"Batch Function Library"

[ Last edited by moniuming on 2009-2-21 at 20:27 ]

So it still needs improvement don't rush everything starts from the simple stuff.

My time online is too limited everyone else is improving, but I am standing still , sigh
Relying on two sheets of draft paper, I'll keep working hard...

[ Last edited by 523066680 on 2009-2-22 at 12:24 ]

Floor1　523066680	Posted 2009-02-21 15:22
银牌会员　Posts 1,133　Credits 2,362
One of the results produced in the process of writing other batch files. The draft paper is in bathome's chatter section and in cn-dos's blog Function: multiply two numbers with no digit limit Input format like 10 20 You can choose a base within 10 for multiplication, such as 100 11 2 , where 2 means binary @echo off &setlocal enabledelayedexpansion title code by 523066680 set /p inp="input two numbers : " call :naxnb %inp% pause>nul exit :naxnb set numa=%1 set numb=%2 if "%3"=="" (set /a delna=10,delnb=9) else (set /a delna=%3,delnb=%3-1) set /a la=0,lpr=-1 :la set /a la+=1,lb=0,lpr+=1,lp=lpr :lb set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1 ::::::::::::::::::::::::: set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1! :cuplp set /a cup%tlpb%+=cup%tlpa%/delna,cup%tlpa%=cup%tlpa%%%delna if !cup%tlpb%! gtr %delnb% ( set /a tlpa+=1,tlpb=tlpa+1 goto :cuplp ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1) :::::::::::::::::::::::::: if not "!numb:~%lb%!"=="" (goto :lb) if not "!numa:~%la%!"=="" (goto :la) for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul [ Last edited by 523066680 on 2009-5-1 at 23:09 ]

Floor2　BC	Posted 2009-02-21 18:58
中级用户　Posts 175　Credits 338
Hurry up and split the module out and add it to the function library...

Floor3　moniuming	Posted 2009-02-21 20:24
银牌会员　Posts 574　Credits 1,335　From 广西
Originally posted by BC at 2009-2-21 18:58: Hurry up and split the module out and add it to the function library... It doesn't support floating-point operations or positive/negative number operations, and you can't define the number of decimal places to keep, so it's not mature enough to make into a function yet... How about this? "Batch Function Library" [ Last edited by moniuming on 2009-2-21 at 20:27 ]

Floor4　523066680	Posted 2009-02-22 11:32
银牌会员　Posts 1,133　Credits 2,362
So it still needs improvement don't rush everything starts from the simple stuff. My time online is too limited everyone else is improving, but I am standing still , sigh Relying on two sheets of draft paper, I'll keep working hard... [ Last edited by 523066680 on 2009-2-22 at 12:24 ]